實例:保護工作表,并禁止選定鎖定的單元格,同時允許VBA在后臺對工作表中被保護的單元格進行修改,而不彈出對話框。當blnEnabledIt=0時解除工作表保護。代碼如下:
Sub ProtectIt(Optional blnEnabledIt As Boolean = True)
‘ blnEnabledIt = False
With ActiveSheet
If blnEnabledIt Then
.EnableSelection = xlUnlockedCells
.Protect Contents:=True, UserInterfaceOnly:=True
Else
.EnableSelection = xlNoRestrictions
.Unprotect
End If
End With
End Sub