Excel Can';t锁定正在访问的私有属性
我有一个类Excel Can';t锁定正在访问的私有属性,excel,vba,Excel,Vba,我有一个类clssobject,它有一组私有属性(名称中带有大写字母“p”的变量)和字母/setter对。代码如下: Option Explicit Private PName As String Private PStatus As String Private PINN As String Private POGRN As String Private PAddress As String Property Let Name(val As String) PName = val
clssobject
,它有一组私有属性(名称中带有大写字母“p”的变量)和字母/setter对。代码如下:
Option Explicit
Private PName As String
Private PStatus As String
Private PINN As String
Private POGRN As String
Private PAddress As String
Property Let Name(val As String)
PName = val
End Property
Property Get Name() As String
Name = PName
End Property
Property Let Status(val As String)
PStatus = val
End Property
Property Get Status() As String
Status = PStatus
End Property
Property Let INN(val As String)
PINN = val
End Property
Property Get INN() As String
INN = PINN
End Property
Property Let OGRN(val As String)
POGRN = val
End Property
Property Get OGRN() As String
OGRN = POGRN
End Property
Property Let Address(val As String)
PAddress = val
End Property
Property Get Address() As String
Address = PAddress
End Property
下面是这个类的一个示例(作为另一个类的一部分)
显然,我的“私有”变量是可见的,并且可以与字母/设置符一起使用。我还可以在即时窗口中直接从它们获取值,如
?Lcase.Client.PName
。据我所知,这些数据应该是不可用的。我做错了什么?阅读Mat的解释,然后尝试代替Mat的解释,然后尝试