「VBA」EXCEL解除/保护工作表保护-excel保护密码破解

在知道密码的情况下解除保护请使用这个办法：

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