Excel VBA保護工作表

　　

'設定可編輯區域
ActiveSheet.Protection.AllowEditRanges.Add Title:="區域1", Range:=Range("E5:H12")

'保護工作表，但允許上面設定的區域可以編輯
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="123"

'撤銷工作表保護
'ActiveSheet.Unprotect