實(shí)例:保護(hù)工作表,并禁止選定鎖定的單元格,同時允許VBA在后臺對工作表中被保護(hù)的單元格進(jìn)行修改,而不彈出對話框。當(dāng)blnEnabledIt=0時解除工作表保護(hù)。代碼如下:
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