巧用宏命令來為Excel工作表公式加密碼
工作表中很多數(shù)據(jù)都是由公式計算生成的,那么如何讓別人只看到計算的結(jié)果,而將使用的公式隱藏起來呢?今天我們就向大家介紹使用宏來解決這一問題。
一、創(chuàng)建宏
啟動Excel,依次選擇“工具”—“宏”—“錄制新宏”,在打開的窗口中輸入宏的名稱,并把“保存在”項設(shè)為“個人宏工作簿”,單擊“確定”按鈕進入宏錄制模式。此時我們可以在當(dāng)前窗口中看到宏錄制的工具欄,單擊“停止錄制”退出宏的錄制。
退出后,在Excel中按下“Alt+F11”鍵,在打開的VB編輯窗口中選擇“VBAProject(PERSONAL.XLS)”—“模塊”—“模塊1”,然后將右側(cè)窗口中的內(nèi)容替換成:
Sub 密碼保護() //宏的名稱
ActiveSheet.Unprotect ("888888") //默認(rèn)密碼
Cells.Select
Selection.Locked = False
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
Selection.Locked = True
Selection.FormulaHidden = True
ActiveSheet.Protect ("123456")
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub
做好之后保存設(shè)置退出編輯窗口。當(dāng)然,在自己的Excel中,還是要將默認(rèn)的888888換成自己的密碼,以免造成泄露。
二、應(yīng)用宏
在Excel中打開“工具”菜單中的“自定義”命令,在“命令”選項卡的“類別”中選擇“宏”,在“命令”中選擇“自定義按鈕”,并將其拖放到工具欄上,單擊工具欄上的按鈕,在彈出的窗口中選擇我們創(chuàng)建的宏名并保存設(shè)置。
至此,我們要加密時只需單擊該按鈕,就可以將當(dāng)前工作表保護起來,并且默認(rèn)密碼為888888,怎么樣這樣的操作是不是夠方便呢