Excel VBA請教

' 巨集1
ActiveSheet.Unprotect Password:="3007"

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True, AllowFormattingColumns:=True

ActiveSheet.Protect Password:="3007"
'ActiveWorkbook.Save
End Sub


請高手幫幫忙!
「允許使用者在受保護的工作表上設定任何儲存格的格式」
請指點哪邊有錯?
巨集執行後，「允許使用者在受保護的工作表上設定任何儲存格的格式」的勾勾都會不見，變成不能設定任何儲存格格式。