一鍵加密Excel工作表公式

時(shí)間：2024-08-04 14:27:39 office辦公

一鍵加密Excel工作表公式

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

　　一、創(chuàng)建宏

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

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

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

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