vba - 清除未 protected 单元格的按钮

Question

我是 VBA 的新手。我正在尝试制作一个按钮来清除我未 protected 单元格中的值。我有一张 protected 工作表，但我想确保只清除未 protected 单元格。我需要一个单元格范围吗？提前致谢

Answer 1

工作表是 protected , 单元格是 锁定 .

试试这个:

Sub ClearStuff()
    Dim r As Range, rClear As Range
    Set rClear = Nothing
    For Each r In ActiveSheet.UsedRange
        If r.Locked = False Then
            If rClear Is Nothing Then
                Set rClear = r
            Else
                Set rClear = Union(rClear, r)
            End If
        End If
    Next r
    rClear.Clear
End Sub

编辑#1:这将清除 内容 只要:

Sub ClearStuff()
    Dim r As Range, rClear As Range
    Set rClear = Nothing
    For Each r In ActiveSheet.UsedRange
        If r.Locked = False Then
            If rClear Is Nothing Then
                Set rClear = r
            Else
                Set rClear = Union(rClear, r)
            End If
        End If
    Next r
    rClear.ClearContents
End Sub