vba给每个工作簿设置密码（如何使用VBA解除工作表密码）

首先打开设有密码的工作表，然后打开开发工具，VBA编辑器（快捷键ctrl 11）然后插入模块，在输入以下：Sub密码破解()，今天小编就来说说关于vba给每个工作簿设置密码?下面更多详细答案一起来看看吧!

vba给每个工作簿设置密码

首先打开设有密码的工作表，然后打开开发工具，VBA编辑器（快捷键ctrl 11）然后插入模块，在输入以下：Sub密码破解()

Dim pj As Worksheet

For Each pj In Worksheets

pj.Protect AllowFiltering:=True

pj.Unprotect

Next

End Sub

点击运行就可以了。