Vba实现工作薄和工作表密码破解

最新推荐文章于 2025-02-08 20:32:47 发布

啊东东_

最新推荐文章于 2025-02-08 20:32:47 发布

阅读量7.1k

点赞数 8

分类专栏： VBA 文章标签：程序人生测试用例

本文链接：https://blog.csdn.net/h_XUYUAN/article/details/124574957

版权

一、案例叙述：
在excel中给工作薄和工作表设置了密码后忘记了原密码应该怎么办呢？别着急，几行代码帮你搞定。
加密图片：

二、破解工作薄密码：
（1）代码部分：

'破解工作薄密码
Sub pojie1()

Dim sh As Worksheet


ActiveWorkbook.Sheets.Copy

For Each sh In ActiveWorkbook.Sheets

sh.Visible = True

Next
End Sub

（2）图片展示：
三、破解工作表密码：

（1）代码部分：

'破解工作表密码
Sub pojie2()

    Dim a As Worksheet

    Application.DisplayAlerts = False

    On Error Resume Next

    For Each a In Worksheets

        a.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, AllowUsingPivotTables:=Tru