利用快捷键保护excel工作表和撤消工作表保护
时间:2022-03-14 21:29:37
在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”即可在保护工作表和撤消工作表保护之间切换。需要注意的是,执行宏命令前须确保工作簿已设计完毕,因为宏命令运行后将无法撤消到工作簿以前的状态。
标签:保护,工作,快捷键,撤消,Excel函数
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
Win10停止服务是什么意思?Win10停止服务会怎么样?
2023-12-08 00:05:10
![](https://img.aspxhome.com/file/2023/5/51305_0s.jpg)
excel单元格引用 Excel中各种单元格引用的技巧和方法
2023-09-17 20:23:29
![](https://img.aspxhome.com/file/2023/0/43030_0s.jpg)
戴尔笔记本投屏电视怎么弄?戴尔win10笔记本投屏电视方法步骤
2023-11-21 23:24:06
![](https://img.aspxhome.com/file/2023/1/50281_0s.png)
excel表格内如何设置文字居中
2023-02-22 12:13:48
在Word2003中怎样添加文档修订备注修改内容
2023-02-24 01:12:35
Excel输入日期快捷键(静态动态日期输入技巧)
2023-06-13 09:18:10
word表格数据如何快捷计算 word求和,求平均值等,而且也能像Excel那样进行批量计算哦
2022-09-08 10:04:14
Win10更新遇到问题提示"你需要关注的事项"怎么解决?
2023-12-12 19:51:43
![](https://img.aspxhome.com/file/2023/2/51362_0s.png)
如何把excel转成vcf的方法
2023-11-23 06:56:20
向图表添加数据系列:学习Excel图表第5课
2023-11-18 02:31:30
![](https://img.aspxhome.com/file/2023/4/a143094_0s.jpg)
Excel2019怎么去掉网格线?Excel2019隐藏网格线教程
2022-06-02 00:25:45
![](https://img.aspxhome.com/file/2023/9/39869_0s.jpg)
Win10总弹出提示你的电脑遇到问题需要重新启动
2023-12-14 07:31:26
![](https://img.aspxhome.com/file/2023/1/51931_0s.jpg)
windows10系统录音机不能录音的解决方法
2023-08-11 14:52:46
![](https://img.aspxhome.com/file/2023/2/46802_0s.jpg)
word 圈九怎么打
2023-03-22 20:48:41
![](https://img.aspxhome.com/file/2023/7/32457_0s.png)
excel表格怎么计算2021年2月春节假期出勤薪资?
2022-10-19 13:07:58
![](https://img.aspxhome.com/file/2023/5/39885_0s.jpg)
win7旗舰版如何升级win10系统?win7旗舰版升级win10系统的方法
2023-11-14 01:24:36
![](https://img.aspxhome.com/file/2023/1/49301_0s.png)
零基础学习Word,从小白到高手
2022-04-23 10:54:39
![](https://img.aspxhome.com/file/2023/9/34259_0s.jpg)
excel 2010文件扩展名是什么
2023-02-26 01:09:29
![](https://img.aspxhome.com/file/2023/9/a156919_0s.png)
excel菜单栏如何添加自动求和快捷键
2023-08-21 01:08:44
Excel怎样复制粘贴筛选结果
2022-10-24 21:38:36