在Excel中要對工作表進行保護，可以通過單擊菜單“工具→保護→保護工作表”的方法來進行。如果要用VBA來保護工作表或撤消工作表保護，可以用下面的代碼：
Public Sub Protect_Sheet()
‘保護工作表，設置密碼為“password”
ActiveSheet.Protect Password:="password"
End Sub
上述代碼可以對活動工作表進行保護，并設置保護密碼為“password”。下面的代碼撤消活動工作表保護：
Public Sub Unprotect_Sheet()
‘用已知密碼“password”撤消工作表保護
ActiveSheet.Unprotect Password:="password"
End Sub
這種撤消工作表保護的方法必需用已知密碼進行，如果密碼不正確，會產生一個錯誤，如圖。
