Question

我有一张受保护的纸张，但是单元格B12：B27没有锁定。此代码不适用于锁定的工作表。任何想法？。

If Not Application.Intersect(Target, Range("B12:B37")) Is Nothing Then
    With Range("B" & ActiveCell.Row).Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="B,E,R,TG,TU,V"
    End With
End If

由于

Answer 1

保护工作表时，您可以选择允许删除行或删除列。删除单个单元格不是一种选择，因为它可能会影响锁定的单元格。

.Delete命令将完全删除单元格，这意味着下方或右侧的现有单元格需要分别向上或向左移动。如果这是您想要的，您需要先取消保护。

ActiveSheet.Unprotect
' your code
ActiveSheet.Protect

如果您只想清除单元格的内容，可以使用

.ClearContents

VBA-数据验证错误

1 个答案: