保護工作表公式不被竊視/修改,錄製巨集綁定工具列按鈕,一鍵完成「解除保護→解鎖全表→鎖定公式儲存格→隱藏公式→保護工作表→僅允許選取未鎖定儲存格」全流程。
密碼保護 → 存「個人巨集活頁簿」 → 確定 → 立即點「停止錄製」(先建空殼)。VBAProject(PERSONAL.XLS) → 模組1 → 替換為:Sub 密碼保護()
ActiveSheet.Unprotect ("888888") ' 原保護密碼,實務請改強密碼
Cells.Select
Selection.Locked = False ' 先全解鎖
Selection.SpecialCells(xlCellTypeFormulas, 23).Select ' 選所有公式儲存格
Selection.Locked = True ' 鎖定公式儲存格
Selection.FormulaHidden = True ' 隱藏公式
ActiveSheet.Protect ("123456") ' 新保護密碼,實務請改強密碼
ActiveSheet.EnableSelection = xlUnlockedCells ' 僅允許選取未鎖定儲存格
End Sub

密碼保護 → 確定。此后點一下按鈕,當前工作表公式即被鎖定隱藏,僅留輸入區可編輯。務必修改預設密碼 888888/123456 防洩露。巨集存於 PERSONAL.XLSB,所有活頁簿通用。