我們有時需要對某些數據進行統計闡發,這時就需要用到EXCEL函數,為了避免別人利用時刪失落了公式,要對包含公式的單位格進行庇護,那怎么經由過程VBA進行主動選擇包含公式的單位格進行庇護呢?小編和大師分享一下。
先打開EXCEL2003,點擊視圖——東西欄——勾選 控件東西箱——選擇號令按鈕,在EXCEL頁面畫一下號令按鈕,默認定名是.CommoButton1。
第二步,改變號令按鈕的屬性:右擊號令按鈕選擇屬性——在caption中從頭定名為:公式庇護——然后在font屬性那邊設置好字體,完當作后點擊確定 。
第三步,右擊號令按鈕——查看代碼——然后輸入如下圖中的代碼,代碼中起首要解除暗碼庇護,然后再選擇所有的含有公式的單位格,如Selection.SpecialCells(xlCellTypeFormulas, 23).Select,然后再鎖心猿意馬埋沒并加暗碼庇護。
第四步,運行代碼:起首要退出設計模式,按照步調1的方式調出控件東西箱,然后點擊左上角的退出設計模式(若是不是選擇狀況就是退出狀況),然后就可以直接點擊號令按鈕進行主動庇護包含公式的單位格了。
第五步,若是要點竄庇護工作表名或者點竄暗碼,也是右擊號令按鈕——查看代碼,把本來設置的暗碼改當作新的暗碼就可以了。也可以點擊東西——宏——Visual Basic 編纂器,然后再到號令按鈕的代碼去點竄就可以了。
第六步,為了防止別人知道暗碼點竄了暗碼,最好給VBA編纂器也加上一鎖。同時按ALT+F11,打開VBA編纂器——點擊東西——VBAProject屬性——庇護——勾選:查看時鎖心猿意馬工程——輸入兩次暗碼確定。保留退出就可以了。
0 篇文章
如果覺得我的文章對您有用,請隨意打賞。你的支持將鼓勵我繼續創作!