excel - 修改类 AllowEditRanges 中的范围

Question

我已经在类 AllowEditRange 中手动设置了名为“Test”的项目。
我只需要通过 VBA 更改此项目的范围，但我不能。
我尝试了以下代码，但它什么也没做(没有引发错误)
谢谢大家可以帮忙。

Option Explicit
Option Compare Text

Private Sub Modify_User_EditRange()

    Dim ws As Worksheet
    Set ws = ThisWorkbook.ActiveSheet

    ws.Protection.AllowEditRanges("Test").Range = ws.Range("A2:A8")

End Sub

Answer 1

ws.Protection.AllowEditRanges("Test").Range返回 Range对象所以要修改它，你需要使用 Set陈述:Set ws.Protection.AllowEditRanges("Test").Range = ws.Range("A2:A8")