批量给工作表加解密码【Excel分享】

批量给工作表加解密码

大家好，今天和大家分享“批量给工作表加解密码”，这是个学员提出来的，也就是一下把100个工作表加密码，一下了把100个工作表解密码，Ok，请看下面的动画效果

一、动画效果

二、所用的代码

Option Explicit

Sub 批量加密工作表()

    Dim x 

    For x = 1 To Sheets.Count

        Sheets(x).Protect 1234

    Next x

End Sub

Sub 批量解密工作表密码()

    Dim x

    For x = 1 To Sheets.Count

        With Sheets(x)

            .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 x

End Sub

三、操作方法

1. 复制上面绿色的代码

2. 快捷键Alt F11打开VBE后台

3. 插入菜单→模块

   
   

4. 把代码粘贴到空白处

5. 工作表里的插入选项卡→横排文本框，内容输入“批量加密工作表”

   
   

6. 对着文本框的边框→右击→指定宏...→选定过程名“批量加密工作表”→确定

7. 同理，另一个文本也是这样设置的

8. 你现在可以测试了，点相应的文本框。