利用快捷键保护excel工作表和撤消工作表保护

网友投稿 1377 2022-12-03

利用快捷键保护excel工作表和撤消工作表保护

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

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

利用快捷键保护excel工作表和撤消工作表保护

Sub ProtectOrUnprotect()On Error GoTo l_endIf ActiveSheet.ProtectContents ThenActiveSheet.Unprotect Password:="123"ElseActiveSheet.Protect Password:="123"End Ifl_end:End Sub

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

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

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

版权声明:本文内容由网络用户投稿,版权归原作者所有,本站不拥有其著作权,亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容,请联系我们jiasou666@gmail.com 处理,核实后本网站将在24小时内删除侵权内容。

上一篇:Excel vba中chr函数实例用法
下一篇:Excel中vba变量类型小结
相关文章