将表格的正文范围及其下的所有单元格设置为已解锁

Question

我想将表体范围和表下所有单元格的并集设置为解锁。我该怎么做？更具体地说，我不知道如何瞄准桌子下面的区域。。。

Answer 1

您可以这样做：

With ActiveSheet.ListObjects(1).DataBodyRange.Rows(1)
.Resize(1 + Rows.Count - .Row).Locked = False
Debug.Print "Unlocked", .Resize(1 + Rows.Count - .Row).Address
End With

Answer 2

引用范围

Sub ReferencingRanges()

Dim srg As Range: Set srg = ThisWorkbook.Worksheets("Sheet1") _
.ListObjects("Table1").DataBodyRange

Dim drg As Range

With srg

' Reference the range.
Set drg = .Cells
Debug.Print "DataBodyRange: " & drg.Address(0, 0)

' Reference the range below the range.
Set drg = .Resize(.Worksheet.Rows.Count - .Row - .Rows.Count + 1) _
.Offset(.Rows.Count)
Debug.Print "Below... :     " & drg.Address(0, 0)

' Reference the range and the range below the range.
Set drg = .Resize(.Worksheet.Rows.Count - .Row + 1)
Debug.Print "Both... :      " & drg.Address(0, 0)

End With

'drg.Locked = False

End Sub