VBA：Protection.AllowEditRanges 具有动态范围

Question

昨天我问了一个问题() @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

VBA：Protection.AllowEditRanges 具有动态范围

VBA: Protection.AllowEditRanges with dynamic range

vba

range