首页 > Excel专区 > Excel函数 >

Excel VBA:工作表保护图解教程

Excel函数 2022-02-11 18:04:34

实例:保护工作表,并禁止选定锁定的单元格,同时允许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


标签: 保护单元格工作指定excel函数

office教程网 Copyright © 2016-2020 https://www.office9.cn. Some Rights Reserved.