一鍵加密Excel工作表公式

工作表中很多數(shù)據(jù)都是由公式計(jì)算生成的，那么如何讓別人只看到計(jì)算的結(jié)果，而將使用的公式隱藏起來(lái)呢？今天我們就向大家介紹使用宏來(lái)解決這一問(wèn)題。

　　一、創(chuàng)建宏

　　啟動(dòng)Excel，依次選擇“工具”—“宏”—“錄制新宏”，在打開(kāi)的窗口中輸入宏的名稱，并把“保存在”項(xiàng)設(shè)為“個(gè)人宏工作簿”，單擊“確定”按鈕進(jìn)入宏錄制模式。此時(shí)我們可以在當(dāng)前窗口中看到宏錄制的工具欄，單擊“停止錄制”退出宏的錄制。

　　退出后，在Excel中按下“Alt+F11”鍵，在打開(kāi)的VB編輯窗口中選擇“VBAProject(PERSONAL.XLS)”—“模塊”—“模塊1”，然后將右側(cè)窗口中的內(nèi)容替換成：

　　Sub 密碼保護(hù)() //宏的名稱

　　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è)置退出編輯窗口(圖1)，在實(shí)際的操作過(guò)程中需要將默認(rèn)的888888換成自己的密碼，以免造成泄露。



圖1

　　二、應(yīng)用宏

　　在Excel中打開(kāi)“工具”菜單中的“自定義”命令，在“命令”選項(xiàng)卡的“類別”中選擇“宏”，在“命令”中選擇“自定義按鈕”，并將其拖放到工具欄上，單擊工具欄上的按鈕，在彈出的窗口中選擇我們創(chuàng)建的宏名并保存設(shè)置。

　　至此，我們要加密時(shí)只需單擊該按鈕，就可以將當(dāng)前工作表保護(hù)起來(lái)，并且默認(rèn)密碼為888888，怎么樣這樣的操作是不是夠方便呢。