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