第一步：執(zhí)行“工具→宏→錄制新宏”命令，打開“錄制新宏”對話框，見圖1所示。

　　第二步：單擊右側(cè)“保存在”下拉按鈕，在隨后出現(xiàn)的下拉列表中，選擇“個(gè)人宏工作簿”選項(xiàng)，確定進(jìn)入錄制狀態(tài)。

　　第三步：單擊“停止錄制”工具欄上的“停止錄制”按鈕，退出錄制狀態(tài)。

　　注意:前面的操作是為了在Excel中添加“個(gè)人宏工作簿”。

　　第四步：按下Alt＋F11組合鍵進(jìn)入VBA編輯狀態(tài)(見圖2)，在左側(cè)依次展開“VBAProject(PERSONAL.XLS)”、“模塊”選項(xiàng)，雙擊下面的“模塊1”。

　　第五步：用下面的代碼替換右側(cè)編輯區(qū)域中的代碼:

        Sub 保護(hù)公式()

            ActiveSheet.Unprotect ("123456")   '解除對工作表的保護(hù)

            Cells.Select  '選中整個(gè)表格

            Selection.Locked = False    '解除鎖定

            Selection.SpecialCells(xlCellTypeFormulas, 23).Select   '選中包含公式的單元格

            Selection.Locked = True   '添加鎖定

            Selection.FormulaHidden = True    '添加隱藏

            ActiveSheet.Protect ("123456")    '保護(hù)工作表，并設(shè)置密碼

            ActiveSheet.EnableSelection = xlUnlockedCells   '讓鎖定單元格不能選中

            '以下代碼用于保存文件

            If Left(ActiveWorkbook.Name, 4) = "Book" Then

                y = InputBox("請輸入保存文件名稱:")

                z = InputBox("請輸入文件保存路徑:")

                ChDir z

                ActiveWorkbook.SaveAs Filename:=z & "\" & y & ".xls"

            Else

                ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & ActiveWorkbook.Name

            End If

        End Sub

　　輸入完成后，關(guān)閉VBA編輯窗口返回。

　　小提示

　　★上述代碼中，“保護(hù)公式”為宏名稱，在實(shí)際輸入時(shí)可以更換為其他名稱。

　　★代碼中，英文單引號(hào)及其后面字符是對代碼的解釋，在實(shí)際輸入時(shí)可以不輸入。

　　★代碼中的密碼(“123456”)請根據(jù)實(shí)際需要修改(需要保持前后的一致)。

　　添加按鈕

　　在工具欄上添加一個(gè)宏按鈕，方便隨時(shí)調(diào)用。

　　第一步：執(zhí)行“工具→自定義”命令，打開“自定義”對話框，見圖3所示。

　　第二步：切換到“命令”標(biāo)簽下，在“類別”下面選中“宏”選項(xiàng)，然后將右側(cè)“命令”下面的“自定義按鈕”選項(xiàng)拖到工具欄上合適位置上。

　　第三步：右擊剛才添加的按鈕，在隨后彈出的快捷菜單中,選擇“總是只用文字”選項(xiàng)，并將“命名”后面的字符修改為“保護(hù)公式”(見圖4)。

　　第四步：再次右擊上述按鈕，在隨后彈出的快捷菜單中，選擇“指定宏”選項(xiàng)，打開“指定宏”對話框(見圖5)，選中剛才制作的宏“保護(hù)公式”，確定返回，并關(guān)閉“自定義”對話框。

　　以后，工作表中的公式編輯完成后，單擊一下工具欄上的“保護(hù)公式”按鈕，包含公式的單元格全部被鎖定，不能進(jìn)行選中、編輯和查看等操作，安全可靠。