VBA:动态范围的Protection.AllowEditRanges

Question

昨天我问了一个问题(Marking an area with a double 'For' loop)，@Excel给了我一个很好的回答。我使用他的代码将一个范围存储在变量‘k’中：

Sub ErosRam()
    Dim i&, j&, area$, k As Range, r As Range

    Const COL_PERIOD = 3
    Const ROW_PERIOD = 3
    Const REPS_HORIZONTAL = 3
    Const REPS_VERTICAL = 2

    Set r = [f7:g8]
    Set k = r

    For i = 0 To REPS_VERTICAL - 1
        For j = 0 To REPS_HORIZONTAL - 1
            Set k = Union(k, r.Offset(i * ROW_PERIOD, j * COL_PERIOD))
        Next
    Next

    area = k.Address(0, 0)
    MsgBox area   
End Sub

现在，我希望保持'k‘给出的区域未锁定，并锁定其余的。所以我想用这样的词：

     ActiveSheet.Protection.AllowEditRanges.Add Title:="test", Range:=Range(k)

但这行不通。如何在protection.alloweditranges中使用变量范围？

Answer 1

它已经是一个范围，所以您不想用Range()方法包装k：

ActiveSheet.Protection.AllowEditRanges.Add Title:="test", Range:=k