制作宏
為了使此宏對所有工作簿有效，需要將其保存到“個人宏工作簿”中。
第一步:執(zhí)行“工具→宏→錄制新宏”命令，打開“錄制新宏”對話框，見圖1所示。
第二步:單擊右側“保存在”下拉按鈕，在隨后出現(xiàn)的下拉列表中，選擇“個人宏工作簿”選項，確定進入錄制狀態(tài)。
第三步:單擊“停止錄制”工具欄上的“停止錄制”按鈕，退出錄制狀態(tài)。
注意:前面的操作是為了在Excel中添加“個人宏工作簿”。
第四步:按下Alt＋F11組合鍵進入VBA編輯狀態(tài)(見圖2)，在左側依次展開“VBAProject(PERSONAL.XLS)”、“模塊”選項，雙擊下面的“模塊1”。
第五步:用下面的代碼替換右側編輯區(qū)域中的代碼:
Sub 保護公式()
ActiveSheet.Unprotect ("123456") '解除對工作表的保護
Cells.Select '選中整個表格
Selection.Locked = False '解除鎖定
Selection.SpecialCells(xlCellTypeFormulas, 23).Select '選中包含公式的單元格
Selection.Locked = True '添加鎖定
Selection.FormulaHidden = True '添加隱藏
ActiveSheet.Protect ("123456") '保護工作表，并設置密碼
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
輸入完成后，關閉VBA編輯窗口返回。
小提示
★上述代碼中，“保護公式”為宏名稱，在實際輸入時可以更換為其他名稱。
★代碼中，英文單引號及其后面字符是對代碼的解釋，在實際輸入時可以不輸入。
★代碼中的密碼(“123456”)請根據(jù)實際需要修改(需要保持前后的一致)。
添加按鈕
在工具欄上添加一個宏按鈕，方便隨時調用。
第一步:執(zhí)行“工具→自定義”命令，打開“自定義”對話框，見圖3所示。
第二步:切換到“命令”標簽下，在“類別”下面選中“宏”選項，然后將右側“命令”下面的“自定義按鈕”選項拖到工具欄上合適位置上。
第三步:右擊剛才添加的按鈕，在隨后彈出的快捷菜單中,選擇“總是只用文字”選項，并將“命名”后面的字符修改為“保護公式”(見圖4)。
第四步:再次右擊上述按鈕，在隨后彈出的快捷菜單中，選擇“指定宏”選項，打開“指定宏”對話框(見圖5)，選中剛才制作的宏“保護公式”，確定返回，并關閉“自定義”對話框。
以后，工作表中的公式編輯完成后，單擊一下工具欄上的“保護公式”按鈕，包含公式的單元格全部被鎖定，不能進行選中、編輯和查看等操作，安全可靠。