錄製巨集寫入-校閱-保護工作表?

Question

請問我將所有儲存格勾選保護,只開放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"
 請問有什麼方法可以解決 ，謝謝

Cheng · Answer

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

錄製巨集寫入-校閱-保護工作表?

1 個解答