Board logo

標題: [發問] 請問如何把工作表中所有含公式的儲存格設定為不可編輯後，保護工作表 [打印本頁]
作者: df2001tw    時間: 2016-5-12 11:31     標題: 請問如何把工作表中所有含公式的儲存格設定為不可編輯後，保護工作表

小弟剛接觸VBA
想要試著把原本做好的excel 檔案 有公式的部分自動加上保護 避免其他人不小心修改 然後其餘儲存格需要由使用者輸入
嘗試了一下，結果我只會把有公式的儲存格弄成可編輯，與我想要的剛好相反

Sub protect_formula()
ActiveSheet.Unprotect
ActiveSheet.Protection.AllowEditRanges.Add _
        Title:="formula", _
        Range:=Selection.SpecialCells(xlCellTypeFormulas)
ActiveSheet.protect
End Sub

有前輩能教我嗎?
作者: stillfish00    時間: 2016-5-12 18:49

回復 1# df2001tw
利用儲存格格式>保護>鎖定
  1. Sub Test()
  2.   With ActiveSheet
  3.     .Unprotect
  4.     .Cells.Locked = False
  5.     .Cells.SpecialCells(xlCellTypeFormulas).Locked = True
  6.     .Protect
  7.   End With
  8. End Sub
複製代碼
作者: df2001tw    時間: 2016-5-17 09:52

回復 2# stillfish00


原來如此，小弟是先用錄製巨集方式模仿的，
原來有這麼方便的方法
謝謝前輩指導~



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)