excel表格怎样解除密码

发布网友发布时间：2022-05-07 14:46

共2个回答

热心网友时间：2022-06-16 02:39

Sub UnProtct() '来自ExcelHome，请自行测试
MsgBox "破解提示：当要求输入密码时请点击取消！”"
Application.DisplayAlerts = False
On Error Resume Next
Dim sht As Worksheet
For Each sht In Worksheets
With sht
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, AllowFiltering:=True, AllowUsingPivotTables:=True
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=False, AllowFiltering:=True, AllowUsingPivotTables:=True
.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
.Unprotect
End With
Next
Application.DisplayAlerts = True
MsgBox "ok"
End Sub

热心网友时间：2022-06-16 04:14

网上搜索可以下载一个excel工作表密码破解宏程序
注意：不是打开excel文件