我们有时需要对某些数据进行统计阐发,这时就需要用到EXCEL函数,为了避免别人利用时删失落了公式,要对包含公式的单位格进行庇护,那怎么经由过程VBA进行主动选择包含公式的单位格进行庇护呢?小编和大师分享一下。
先打开EXCEL2003,点击视图——东西栏——勾选 控件东西箱——选择号令按钮,在EXCEL页面画一下号令按钮,默认定名是.CommoButton1。
第二步,改变号令按钮的属性:右击号令按钮选择属性——在caption中从头定名为:公式庇护——然后在font属性那边设置好字体,完当作后点击确定 。
第三步,右击号令按钮——查看代码——然后输入如下图中的代码,代码中起首要解除暗码庇护,然后再选择所有的含有公式的单位格,如Selection.SpecialCells(xlCellTypeFormulas, 23).Select,然后再锁心猿意马埋没并加暗码庇护。
第四步,运行代码:起首要退出设计模式,按照步调1的方式调出控件东西箱,然后点击左上角的退出设计模式(若是不是选择状况就是退出状况),然后就可以直接点击号令按钮进行主动庇护包含公式的单位格了。
第五步,若是要点窜庇护工作表名或者点窜暗码,也是右击号令按钮——查看代码,把本来设置的暗码改当作新的暗码就可以了。也可以点击东西——宏——Visual Basic 编纂器,然后再到号令按钮的代码去点窜就可以了。
第六步,为了防止别人知道暗码点窜了暗码,最好给VBA编纂器也加上一锁。同时按ALT+F11,打开VBA编纂器——点击东西——VBAProject属性——庇护——勾选:查看时锁心猿意马工程——输入两次暗码确定。保留退出就可以了。
0 篇文章
如果觉得我的文章对您有用,请随意打赏。你的支持将鼓励我继续创作!