在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”则为执行该宏命令的快捷键，如图。

    http://excel123.cn/Article/UploadFiles/201109/2011092311224396.jpg

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