在Excel中經(jīng)常進行設(shè)置密碼的保護工作表或撤消工作表保護的操作時，每次都單擊菜單或功能區(qū)中的“保護工作表”命令，并在對話框中設(shè)置密碼顯得有些繁瑣。如果能用快捷鍵來保護工作表或取消工作表保護就方便多了。下面的宏就可以實現(xiàn)這個目的。
1.按Alt+F11，打開VBA編輯器，單擊菜單“插入→模塊”，在代碼窗口中粘貼下列代碼：
Sub ProtectOrUnprotect()
On Error GoTo l_end
If ActiveSheet.ProtectContents Then
ActiveSheet.Unprotect Password:="123"
Else
ActiveSheet.Protect Password:="123"
End If
l_end:
End Sub
代碼中保護工作表和撤消工作表保護的密碼都為“123”，可根據(jù)需要自行更改。
2.返回工作表界面，按Alt+F8，打開“宏”對話框，選擇“ProtectOrUnprotect”宏，單擊“選項”按鈕，為該宏指定一個快捷鍵，如輸入字母“e”，則快捷鍵“Ctrl+E”則為執(zhí)行該宏命令的快捷鍵，如圖。
3.單擊“確定”，關(guān)閉“宏”對話框。以后選擇某個工作表，反復(fù)按快捷鍵“Ctrl+E”即可在保護工作表和撤消工作表保護之間切換。需要注意的是，執(zhí)行宏命令前須確保工作簿已設(shè)計完畢，因為宏命令運行后將無法撤消到工作簿以前的狀態(tài)。
