今宵月は何処を照らすの

將多個工作表中只要有公式的儲存格用鎖定保護，以免輸入資料改到公式



1.設定儲存格: 在有公式欲保護的儲存格, 先使用 [格式]-[儲存格格式], 到 [保護] 頁面, 將 [鎖定] 及 [隱藏] 均打勾, 不要鎖定尚要輸入資料的儲存格則不要打勾

2.複製程式碼: 按 [工具]-[巨集]-[VB編輯器], 或按快速鍵 [Alt]-[F11], 叫出VBA的編輯頁面, 左方會有您的每個工作表名稱, 在任意處按 [右鍵]-[新增模組], 在模組的 [Module1] 上方連點二下, 將下列程式碼複製到模組裡

3.做兩個按鈕: 找一個頁面作控制主頁, 在工具列任一個空白處按右鍵, 將 [表單工具列] 打勾, 此工具列即會出現, 按工具列內長得像按鈕的小圖樣, 然後在要設定按鈕處框出按鈕, 此時會跳出選擇巨集, 分別在兩個按鈕各設定一個名稱

4.開始使用: 按有設定SheetsProtect巨集的按鈕者, 即馬上將所有的工作表作保護, 要取消所有保護, 則按另一個按鈕


以下是程式碼:

Sub SheetsProtect()
'保護工作表
Dim sht As Worksheet
Dim mySheet As String
On Error Resume Next
Application.ScreenUpdating = False
For Each sht In Worksheets
mySheet = sht.Name
Sheets(mySheet).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next sht
Application.ScreenUpdating = True
End Sub



Sub SheetsUnProtect()
'取消保護工作表
Dim sht As Worksheet
Dim mySheet As String
On Error Resume Next
Application.ScreenUpdating = False
For Each sht In Worksheets
mySheet = sht.Name
Sheets(mySheet).Unprotect
Next sht
Application.ScreenUpdating = True
End Sub