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

三、操作方法

复制上面绿色的代码

快捷键Alt F11打开VBE后台

插入菜单→模块



把代码粘贴到空白处

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



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

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

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