請問我將所有儲存格勾選保護,只開放D1:D12後
以錄製巨集寫入-校閱-保護工作表-在設定儲存格格式勾選
再設定密碼-結束錄製，如下
' ActiveSheet.Unprotect "123"
Range("D1:D12").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True
ActiveSheet.Protect "123"
End Sub
完成後執行程式,
為何原先設定好的-校閱-保護工作表-中勾選"設定儲存格格式"
會被取消
導致 D1:D12儲存格 變成無法更換文字顏色
但在保護工作表-設定儲存格格式勾選
不設定密碼-結束錄製
（也就是把 ActiveSheet.Protect "123"刪掉）
完成後執行程式,D1:D12儲存格 就可更換文字顏色
**可是我希望設定密碼"123"
請問有什麼方法可以解決 ，謝謝
錄製巨集寫入-校閱-保護工作表?
2019-05-27 6:52 pm
回答 (1)
2019-05-28 10:32 am
Sub 保護()
Range("D1:D12").Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True
ActiveSheet.Protect "123"
End Sub
Sub 取消保護()
ActiveSheet.Unprotect "123"
End Sub
Range("D1:D12").Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True
ActiveSheet.Protect "123"
End Sub
Sub 取消保護()
ActiveSheet.Unprotect "123"
End Sub
收錄日期: 2021-05-03 06:49:09
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20190527105226AASe8UO