Excel VBA:工作表保護圖解教程

實例：保護工作表，并禁止選定鎖定的單元格，同時允許VBA在后臺對工作表中被保護的單元格進行修改，而不彈出對話框。當blnEnabledIt=0時解除工作表保護。代碼如下：

Sub ProtectIt(Optional blnEnabledIt As Boolean = True)‘ blnEnabledIt = FalseWith ActiveSheetIf blnEnabledIt Then.EnableSelection = xlUnlockedCells.Protect Contents:=True, UserInterfaceOnly:=TrueElse.EnableSelection = xlNoRestrictions.UnprotectEnd IfEnd WithEnd Sub