我们有时需要对某些数据进行统计阐发,这时就需要用到EXCEL函数,为了避免别人利用时删失落了公式,要对包含公式的单位格进行庇护,那怎么经由过程VBA进行主动选择包含公式的单位格进行庇护呢?小编和大师分享一下。

工具/原料
- EXCEL2003
方式/步骤
- 1
先打开EXCEL2003,点击视图——东西栏——勾选 控件东西箱——选择号令按钮,在EXCEL页面画一下号令按钮,默认定名是.CommoButton1。

- 2
第二步,改变号令按钮的属性:右击号令按钮选择属性——在caption中从头定名为:公式庇护——然后在font属性那边设置好字体,完当作后点击确定 。

- 3
第三步,右击号令按钮——查看代码——然后输入如下图中的代码,代码中首先要解除密码庇护,然后再选择所有的含有公式的单位格,如Selection.SpecialCells(xlCellTypeFormulas, 23).Select,然后再锁定埋没并加密码庇护。

- 4
第四步,运行代码:首先要退出设计模式,按照步调1的方式调出控件东西箱,然后点击左上角的退出设计模式(若是不是选择状况就是退出状况),然后就可以直接点击号令按钮进行主动庇护包含公式的单位格了。

- 5
第五步,若是要点窜庇护工作表名或者点窜密码,也是右击号令按钮——查看代码,把本来设置的密码改当作新的密码就可以了。也可以点击东西——宏——Visual Basic 编纂器,然后再到号令按钮的代码去点窜就可以了。

- 6
第六步,为了防止别人知道密码点窜了密码,最好给VBA编纂器也加上一锁。同时按ALT+F11,打开VBA编纂器——点击东西——VBAProject属性——庇护——勾选:查看时锁定工程——输入两次密码确定。保留退出就可以了。

注重事项
- 但愿能帮忙到你








