巧用宏命令来为Excel工作表公式加密码
时间:2022-11-05 08:31:10
工作表中很多数据都是由公式计算生成的,那么如何让别人只看到计算的结果,而将使用的公式隐藏起来呢?今天我们就向大家介绍使用宏来解决这一问题。
一、创建宏
启动Excel,依次选择“工具”—“宏”—“录制新宏”,在打开的窗口中输入宏的名称,并把“保存在”项设为“个人宏工作簿”,单击“确定”按钮进入宏录制模式。此时我们可以在当前窗口中看到宏录制的工具栏,单击“停止录制”退出宏的录制。
退出后,在Excel中按下“Alt+F11”键,在打开的VB编辑窗口中选择“VBAProject(PERSONAL.XLS)”—“模块”—“模块1”,然后将右侧窗口中的内容替换成:
Sub 密码保护() //宏的名称
ActiveSheet.Unprotect ("888888") //默认密码
Cells.Select
Selection.Locked = False
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
Selection.Locked = True
Selection.FormulaHidden = True
ActiveSheet.Protect ("123456")
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub
做好之后保存设置退出编辑窗口。当然,在自己的Excel中,还是要将默认的888888换成自己的密码,以免造成泄露。
二、应用宏
在Excel中打开“工具”菜单中的“自定义”命令,在“命令”选项卡的“类别”中选择“宏”,在“命令”中选择“自定义按钮”,并将其拖放到工具栏上,单击工具栏上的按钮,在弹出的窗口中选择我们创建的宏名并保存设置。
至此,我们要加密时只需单击该按钮,就可以将当前工作表保护起来,并且默认密码为888888,怎么样这样的操作是不是够方便呢。
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
WPS PPT思维导图更改主题结构的方法
![](https://img.aspxhome.com/file/2023/10/a351013_0s.png)
Excel表格怎么使用求差公式
Win11系如何解除网络限制?Win11系统解除网络限制教程
![](https://img.aspxhome.com/file/2023/27/a238297_0s.jpg)
Win10怎么进入VGA模式?
![](https://img.aspxhome.com/file/2023/26/a223671_0s.jpg)
如何在 iOS 设备上实现“家长控制”功能?
![](https://img.aspxhome.com/file/2023/2/a200532_0s.png)
MP4tools for mac如何编辑文件选项卡,MP4tools mac使用教程
![](https://img.aspxhome.com/file/2023/0/a212870_0s.png)
为什么win7玩游戏时全屏会自动弹回桌面
![](https://img.aspxhome.com/file/2023/29/a261978_0s.jpg)
联想IdeaPad 14s笔记本重装win7系统教程
![](https://img.aspxhome.com/file/2023/30/a264216_0s.png)
Win7怎么使用自带工具进行内存检测?
![](https://img.aspxhome.com/file/2023/27/a230597_0s.jpg)
如何在win7旗舰版电脑中卸载IE10浏览器?
Win10专业版软件怎么卸载?Win10专业版软件卸载方法
![](https://img.aspxhome.com/file/2023/26/a223426_0s.png)
WPS怎么画烟斗图形? wps绘制烟斗简笔画的教程
![](https://img.aspxhome.com/file/2023/4/a167274_0s.png)
Win10电脑睡眠后蓝牙键盘无法唤醒怎么解决?
![](https://img.aspxhome.com/file/2023/28/a239796_0s.jpg)
Excel中 F1 到 F12 的神奇用法,你知道几个?
![](https://img.aspxhome.com/file/2023/9/a154339_0s.jpg)
Win7桌面图标显示不正常图标变大怎么还原?
![](https://img.aspxhome.com/file/2023/27/a233369_0s.jpg)
快手2022世界杯直播回放在哪看?快手怎么看2022卡塔尔世界杯完整回放教学
![](https://img.aspxhome.com/file/2023/7/a327299_0s.png)
wps表格如何设置行间距
![](https://img.aspxhome.com/file/2023/1/a182651_0s.png)
Excel表格技巧—工作表不见了怎么办
excel中分列功能使用教程
Win10小键盘不能使用怎么办?Win10小键盘不能使用解决办法
![](https://img.aspxhome.com/file/2023/6/a323317_0s.jpg)