检查属性是否可以设置为其他值或是否为只读

Question

有没有办法在VBA中确定对象的属性是否可以设置为不同的值？

比如检查属性是否可写或不是只读？

Answer 1

检查属性的最简单方法是突出显示它并使用光标在VBA编辑器中按Shift + F2。这将在对象浏览器中显示其定义，它将告诉您它是否是只读的。

以下屏幕截图是workbook.worksheets.count属性。

您可以在代码中通过挂起尝试设置属性的错误然后检查属性来检查只读。即

iCountCheck = ThisWorkbook.Worksheets.Count
On Error Resume Next
ThisWorkbook.Worksheets.Count = 123   'Something that doesn't already equal iCountCheck
On Error Goto 0

If iCountCheck <> 123
   MsgBox "This is not read only"
Else
   MsgBox "This is read only"
End If