在Excel中經常進行設置密碼的保護工作表或撤消工作表保護的操作時，每次都單擊菜單或功能區中的“保護工作表”命令，并在對話框中設置密碼顯得有些繁瑣。如果能用快捷鍵來保護工作表或取消工作表保護就方便多了。下面的宏就可以實現這個目的。
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”，可根據需要自行更改。
2.返回工作表界面，按Alt+F8，打開“宏”對話框，選擇“ProtectOrUnprotect”宏，單擊“選項”按鈕，為該宏指定一個快捷鍵，如輸入字母“e”，則快捷鍵“Ctrl+E”則為執行該宏命令的快捷鍵，如圖。
3.單擊“確定”，關閉“宏”對話框。以后選擇某個工作表，反復按快捷鍵“Ctrl+E”即可在保護工作表和撤消工作表保護之間切換。需要注意的是，執行宏命令前須確保工作簿已設計完畢，因為宏命令運行后將無法撤消到工作簿以前的狀態。
