去年《電腦愛好者》上的文章，作一個(gè)宏，以后就省事了 許多從事財(cái)會(huì)工作的人員對(duì)Excel電子表格也許并不陌生，但面對(duì)張張密密麻麻的數(shù)據(jù)表格已是一籌莫展，而對(duì)其中復(fù)雜的計(jì)算公式更是望而生畏，生怕一不小心改變或刪除其中某一公式導(dǎo)致計(jì)算錯(cuò)誤。Excel中保護(hù)工作表具有鎖定公式的功能，但必須對(duì)公式一一鎖定，極不方便。利用Excel中宏的功能可以一次性準(zhǔn)確地鎖定全部公式，方法如下: 一、簡(jiǎn)單制作好一個(gè)帶有公式的表格，然后用鼠標(biāo)點(diǎn)擊“工具”菜單，在下拉菜單中指向“保護(hù)”，單擊級(jí)連菜單“保護(hù)工作表”命令，在出現(xiàn)的對(duì)話框中輸入密碼確定后返回。二、鼠標(biāo)點(diǎn)擊“工具”菜單，在下拉菜單中指向“宏”，單擊級(jí)連菜單“錄制新宏”，出現(xiàn)錄制新宏對(duì)話框，在“宏名”下輸入“鎖定公式”，并將其保存在“新工作簿”，確定后返回。三、開始宏的操作錄制，步驟如下： 1、鼠標(biāo)點(diǎn)擊“工具”菜單，在下拉菜單中指向“保護(hù)”，單擊級(jí)連菜單“撤消工作表保護(hù)”命令。 2、將光標(biāo)定位在行號(hào)列標(biāo)的左上角空白處點(diǎn)擊，選中整個(gè)工作表，然后右擊鼠標(biāo)，在出現(xiàn)的快捷菜單中左擊“設(shè)置單元格格式”，出現(xiàn)“單元格格式”選項(xiàng)卡，選擇“保護(hù)”標(biāo)簽卡，清除其中“鎖定”前的“√”，確定后返回。 3、鼠標(biāo)點(diǎn)擊“編輯”菜單，在下拉菜單中左擊“定位”命令，在其出現(xiàn)的“定位”對(duì)話框中點(diǎn)擊“定位條件”按鈕，出現(xiàn)“定位條件”對(duì)話框，在“選擇”下的單選項(xiàng)中選中“公式”，確定后返回，這樣凡有公式的地方均被選中。此時(shí)鼠標(biāo)右擊選中區(qū)域，在出現(xiàn)的快捷菜單中左擊“設(shè)置單元格格式”，出現(xiàn)“單元格格式”選項(xiàng)卡，選擇“保護(hù)”標(biāo)簽卡，選中其中“鎖定”前的“√”，確定后返回。 4、鼠標(biāo)點(diǎn)擊“工具”菜單，在下拉菜單中指向“保護(hù)”，單擊級(jí)連菜單“保護(hù)工作表”命令，在出現(xiàn)的對(duì)話框中輸入密碼，確定后返回。 5、鼠標(biāo)點(diǎn)擊“工具”菜單，在下拉菜單中指向“宏”，單擊級(jí)連菜單“停止錄制”。 6、鼠標(biāo)點(diǎn)擊“工具”菜單，在下拉菜單中指向“宏”，單擊級(jí)連菜單“宏”，出現(xiàn)“宏”對(duì)話框，在其中點(diǎn)擊“編輯”按鈕，出現(xiàn)Excel自帶的VB、編程窗口，直接將剛才錄制的宏按一定的路徑、名稱保存（如:C:\鎖定公式）后退出，至此鎖定公式的宏錄制已完成。四、定制鎖定公式工具按鈕，方法如下： 1、鼠標(biāo)右擊常用工具欄的空白處，在出現(xiàn)的快捷菜單中點(diǎn)擊“自定義”命令，出現(xiàn)“自定義”選項(xiàng)卡，選擇其中“命令”標(biāo)簽，在“類別”下選取“宏”，將其右側(cè)對(duì)應(yīng)的“自定義按鈕”拖放到常用工具欄中。 2、鼠標(biāo)右擊“自定義按鈕”，在出現(xiàn)的快捷菜單中將其命名為“鎖定公式”后，點(diǎn)擊下面的“指定宏”，在出現(xiàn)“指定宏”對(duì)話框中，用鼠標(biāo)點(diǎn)中前面錄制的“鎖定公式”的宏，確定后返回，最后關(guān)閉“自定義”對(duì)話框。至此鎖定公式常用工具定制完成，據(jù)此還可以自定義自己的菜單。
在Excel中出于保密需要，通常不希望使用者查看和修改公式。你可以利用Excel鎖定、隱藏和保護(hù)工作表的功能，把公式隱藏和鎖定起來。但如果按照常規(guī)方法設(shè)置會(huì)比較麻煩，而利用Excel的宏，在工具欄上添 加一個(gè)“保護(hù)公式”的按鈕，需要隱藏和鎖定公式時(shí)，只要輕輕一按即可完成保護(hù)。
將其保存到“個(gè)人宏工作簿”中。
第一步:執(zhí)行“工具→宏→錄制新宏”命令，打開“錄制新宏”對(duì)話框，見圖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") '解除對(duì)工作表的保護(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("請(qǐng)輸入保存文件名稱:")
z = InputBox("請(qǐng)輸入文件保存路徑:")
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)及其后面字符是對(duì)代碼的解釋，在實(shí)際輸入時(shí)可以不輸入。
★代碼中的密碼(“123456”)請(qǐng)根據(jù)實(shí)際需要修改(需要保持前后的一致)。
添加按鈕
在工具欄上添加一個(gè)宏按鈕，方便隨時(shí)調(diào)用。
第一步:執(zhí)行“工具→自定義”命令，打開“自定義”對(duì)話框，見圖3所示。
第二步:切換到“命令”標(biāo)簽下，在“類別”下面選中“宏”選項(xiàng)，然后將右側(cè)“命令”下面的“自定義按鈕”選項(xiàng)拖到工具欄上合適位置上。
第三步:右擊剛才添加的按鈕，在隨后彈出的快捷菜單中,選擇“總是只用文字”選項(xiàng)，并將“命名”后面的字符修改為“保護(hù)公式”(見圖4)。
第四步:再次右擊上述按鈕，在隨后彈出的快捷菜單中，選擇“指定宏”選項(xiàng)，打開“指定宏”對(duì)話框(見圖5)，選中剛才制作的宏“保護(hù)公式”，確定返回，并關(guān)閉“自定義”對(duì)話框。
以后，工作表中的公式編輯完成后，單擊一下工具欄上的“保護(hù)公式”按鈕，包含公式的單元格全部被鎖定，不能進(jìn)行選中、編輯和查看等操作，安全可靠。
在Excel中辛辛苦苦編制的計(jì)算公式，通常不希望使用者查看和修改。怎么辦呢？利用Excel鎖定、隱藏和保護(hù)工作表的功能，把公式隱藏和鎖定起來。
1、選中整個(gè)工作表數(shù)據(jù)區(qū)域，執(zhí)行“格式→單元格”命令，打開“單元格格式”對(duì)話框。
2、切換到“保護(hù)”標(biāo)簽，清除“鎖定”選項(xiàng)前面復(fù)選框中的“∨” 號(hào)，確定返回。
3、執(zhí)行“編輯定位”命令，打開“定位”對(duì)話框，單擊其中的“定位條件”按鈕，打開“定位條件”對(duì)話框。
4、選中其中的“公式”選項(xiàng)，確定返回，一次性選定工作表中所有包含公式的單元格。
5、再次打開“單元格格式”對(duì)話框，切換到“保護(hù)”標(biāo)簽下，在“鎖定”和“隱藏”選項(xiàng)前面復(fù)選框中加上“∨” 號(hào)，確定返回。
6、執(zhí)行“工具→保護(hù)→保護(hù)工作表”命令，打開“保護(hù)工作表”對(duì)話框，輸入密碼，確定，再確認(rèn)輸入一次密碼，確定返回即可。
注意：如果自己需要查看或修改公式，請(qǐng)先執(zhí)行“工具→保護(hù)→撤銷工作表保護(hù)”命令，解除對(duì)工作表的保護(hù)。
具體操作的動(dòng)畫演示過程如下：
聯(lián)系客服
