如果樓主是想保護工作簿中的各工作表，使其不可隨意編輯，可以用以下程式碼。

Sub ProtectAllWorkSheets()"執行程式碼後，當前工作簿中的所有工作表都將不允許編輯，除非撤銷工作表保護 On Error Resume Next Dim ws As Worksheet, myPassword As String myPassword = InputBox("請輸入您的密碼" & vbCrLf & _ "(不輸入表明無密碼)" & vbCrLf & vbCrLf & _ "確保您沒有忘記密碼！", "輸入密碼") For Each ws In ThisWorkbook.Worksheets ws.Protect (myPassword) Next wsEnd SubSub UnprotectAllWorkSheets()"執行程式碼後，解除工作簿各工作表的保護 On Error Resume Next Dim ws As Worksheet Dim myPassword As String myPassword = InputBox("請輸入您的密碼" & vbCrLf & _ "(不輸入表示無密碼)", "輸入密碼") For Each ws In ThisWorkbook.Worksheets ws.Unprotect (myPassword) Next wsEnd Sub