根据属性名称的字符串获取该属性的值

【问题描述】如何根据属性名称的字符串获取该属性的值呢？

下图中A2:A6均为工作表的Protection对象的属性名称，如何批量获取它们的值呢？

【小千解答】借助CallByName函数。

代码如下：

Sub xqoffice()
    ActiveSheet.Unprotect
    Dim i As Byte
    For i = 2 To 6
        Cells(i, 2).Value = CallByName(ActiveSheet.Protection, Cells(i, 1).Value, VbGet)
    Next i
End Sub

运行结果：

【参考资料】

1. CallByName函数

2. VBA小探CallByName

3. 利用CallByName函数对对象进行操作