前天发了个将行使加载宏来制作我方的爱惜具的著述。

见底下的聚拢：

EXCEL汇集VBA代码造成我方个东谈主的爱惜具箱

今天不时来增多一个小代码，逐步壮大我方的爱惜具箱。

01

—

盛开我的爱惜具箱XLSM文献

盛开我的爱惜具.xlsm这个文献，添加模块，将汇集到的VBA代码添加进去。

如下图所示：

图片卫浴

安适代码如下：这个代码是保护和遮蔽函数公式。

Sub 保护函数公式()   On Error Resume Next    With ActiveSheet        .Protect DrawingObjects:=True， CONTENTS:=True， AllowFiltering:=True        .Protect DrawingObjects:=False，首页-汉名索染料有限公司 CONTENTS:=True，
江苏春花杰佳电器有限公司 AllowFiltering:=True        .Unprotect        '破除职责表保护        .UsedRange.Locked = False    '取消通盘单位格体式》保护 中的锁定选项        With .UsedRange.SpecialCells(xlCellTypeFormulas)  '定位通盘含有公式的单位格            .Locked = True               '选中通盘单位格体式》保护 中的锁定选项            .FormulaHidden = True        '遮蔽公式        End With        pw = InputBox(prompt:="请输入密码"，
首页-科仕词过滤有限公司 Title:="输入职责表保护密码")        .Protect Password:=pw    '保护职责表，并将密码竖立为aaa123    End WithEnd Sub

将文献保存好后。再将文献另存为xlam体式。

今天我将文献改了称号为：我的爱惜具.xlam

图片

02

—

从头加载我的爱惜具.xlam文献

裁减盛开一个EXCEL，卫浴加载我的爱惜具。淌若也曾加载，则不需要。

图片

相似竖立好选项卡，如下图所示。

安适的步调不错参考上头聚拢的第一篇著述，内部的实质有具体的操作步调

图片

这么号召就在我的爱惜具选项卡中了。

图片

测试一下后果，领预知下图，这是有函数公式的格式：

图片

点击保护函数公式的号召，会弹出对话框，条件输入职责表密码。

图片

输入密码后的截至：函数公式遮蔽了。

图片

函数公式处所的单位格也不允许剪辑。

图片

该代码每次初始皆会自动打消上一次的职责表密码。

然后遮蔽好函数公式后才会从头条件竖立职责表密码。

具体见底下的GIF

图片

• 我方
• 逐步
• 爱惜
• 卫浴
• 壮大