excel用vba保护工作表 (excel自动保护工作表代码vba)

不少人尝试过给工作组设定工作表保护，但是，没能成功，而且，总不甘心。

好在，用VBA处理起来不算麻烦。

右键点击任一工作表标签，将下面的代码粘贴到光标处：

1. Sub 保护()
2. Dim Sh As Worksheet
3. For Each Sh In Worksheets
4. Sh.Protect
5. Next
6. MsgBox "OK"

End Sub

将光标定位到该代码的任意位置，按F5运行该代码。

如果要给工作表保护设置密码，可在 Protect 后面写入密码，用空格分开，密码前后加上半角双引号，假如密码为123：

Sh.Protect "123"

如果要批量撤销工作表保护，可将命令Protect改为Unprotect，如果有密码，同样在后面写入密码，如：

1. Sub 撤销保护()
2. Dim Sh As Worksheet
3. For Each Sh In Worksheets
4. Sh.Unprotect "123"
5. Next
6. MsgBox "OK"
7. End Sub

我们会注意到，Excel基本操作中，用同一个菜单项或命令按钮执行“保护”和“撤销保护”两个操作。我们也可以把上面两段代码合并为一段代码：

1. Sub 保护全部工作表()
2. Dim pc As Boolean, cMM$, Sh As Worksheet
3. pc = Me.ProtectContents
4. On Error Resume Next
5. cMM = Application.InputBox("请输入" & IIf(pc, "撤销", "") & "工作表保护密码：", "密码", Type:=2)
6. If cMM <> "123" Then Exit Sub ’输入的密码是123
7. Application.ScreenUpdating = False
8. For Each Sh In Worksheets
9. If pc Then
10. Sh.Unprotect ("xx") ’实际工作表保护密码是xx
11. Else
12. Sh.Protect ("xx")
13. End If
14. Next
15. Application.ScreenUpdating = True
16. End Sub

使用Excel的人中，一部分人的工作十分需要VBA的功能，比如分页打印，便他的工作需要中，除此以外，不再需要VBA，重要一点，他也没有学习VBA的兴趣。

他们需要一种拿来就用的，像新建、打开、保存、打印一样简单的功能。

为了能满足更多人的需求，欢迎各位共同出谋献策。