68手游网

在Excel中经常进行设置密码的保护工作表或撤消工作表保护的操作时，每次都单击菜单或功能区中的“保护工作表”命令，并在对话框中设置密码显得有些繁琐。如果能用快捷键来保护工作表或取消工作表保护就方便多了。下面的宏就可以实现这个目的。

1.按Alt+F11，打开VBA编辑器，单击菜单“插入→模块”，在代码窗口中粘贴下列代码：

Sub ProtectOrUnprotect()
On Error GoTo l_end
If ActiveSheet.ProtectContents Then
ActiveSheet.Unprotect Password:="123"
Else
ActiveSheet.Protect Password:="123"
End If
l_end:
End Sub

代码中保护工作表和撤消工作表保护的密码都为“123”，可根据需要自行更改。

2.返回工作表界面，按Alt+F8，打开“宏”对话框，选择“ProtectOrUnprotect”宏，单击“选项”按钮，为该宏指定一个快捷键，如输入字母“e”，则快捷键“Ctrl+E”则为执行该宏命令的快捷键，如图。

3.单击“确定”，关闭“宏”对话框。以后选择某个工作表，反复按快捷键“Ctrl+E”即可在保护工作表和撤消工作表保护之间切换。需要注意的是，执行宏命令前须确保工作簿已设计完毕，因为宏命令运行后将无法撤消到工作簿以前的状态。