Warning: file_get_contents(/data/phpspider/zhask/data//catemap/3/templates/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel Can';t锁定正在访问的私有属性_Excel_Vba - Fatal编程技术网

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的解释,然后尝试