Excel工作表保护可以对表格格式和数据进行很好的保护，防止其它人对工作表修改，是表保护的一个 重要方法。

下面介绍一下给所有表一次加密的方法。

Excel工作表加密

编制一个简单的窗体，插入文本框，用来输入密码。按钮对象"设置保护"调用一个函数功能，依次对表进行加密操作。

excel用vba批量保护工作表（Excelvba对工作表保护加密）(1)

加密函数

setProtect()'对当前活动工作薄内所有表进行遍历，并加密。

函数代码

Sub setProtect() '设置所有表保护 On Error Resume Next Dim sheetPW As String sheetPW = VBA.UCase(VBA.Trim(Me.TextBox1.Value)) If VBA.Len(sheetPW) = 0 Then MsgBox "江觅提示您：密码不能为空值！": Exit Sub Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.ProtectContents = False Then '判断是否保护 ws.Activate ActiveSheet.Protect Password:=sheetPW End If Next ws If VBA.Err.Number <> 0 Then MsgBox "密码错误，请重新输入！", vbInformation, "错误提示": Exit Sub MsgBox "表保护成功！", vbOKOnly, "成功！江觅.头条" End Sub

加密函数截图

excel用vba批量保护工作表（Excelvba对工作表保护加密）(2)

关注

江觅头条，将不断介绍 Excel vba 编程思想，函数功能，提供各种应用系统，方案解决等内容。

点击下方“了解更多”真的有很多...

,