在知道密碼的情況下解除保護請使用這個辦法：
Sub 批次解除保護（）
Dim gzb As Worksheet
For Each gzb In Worksheets
gzb。Unprotect （“password”） ‘請將password改成自己的密碼，將Unprotect改成protect即變成保護工作表
Next
End Sub
在不知道密碼的情況下，請使用下列方法，如果不可用可以選擇其他，總有一個能解開：
一、
Sub Excel工作表保護密碼破解（）
Dim gzb As Worksheet
For n = 1 To Sheets。Count
For i = 1 To 4
gzb。Protect ， i Mod 4， （i + 1） Mod 4， （i + 2） Mod 4
Next
gzb。Unprotect
Next
End Sub
二、
Sub Excel工作表保護密碼破解（）
For n = 1 To Sheets。Count
Sheets（n）。Protect AllowFiltering：=True
Sheets（n）。Unprotect
Next
End Sub
三、
Sub Excel工作表保護密碼破解（）
For n = 1 To Sheets。Count
Sheets（n）。Select
ActiveSheet。Protect DrawingObjects：=True， Contents：=True， AllowFiltering：=True
ActiveSheet。Protect DrawingObjects：=False， Contents：=True， AllowFiltering：=True
ActiveSheet。Protect DrawingObjects：=True， Contents：=True， AllowFiltering：=True
ActiveSheet。Protect DrawingObjects：=False， Contents：=True， AllowFiltering：=True
ActiveSheet。Unprotect
Next
End Sub
說了這麼多的破解，來個保護吧：
Sub 批次保護工作表（）
For n = 1 To Sheets。Count
Sheets（n）。Protect “seedsay” ’雙引號裡面就是密碼
Next
End Sub
