更新时间：2023-08-05 11:40
Private ，编程语句在模块级别中使用，用于声明私有变量及分配存储空间。
Private 语句的语法包含下面部分：
WithEvents，可选的。关键字，说明 varname 是用来响应由 ActiveX 对象所触发的事件的对象变量。只有在类模块中才是合法的。使用 WithEvents，可以定义任意个所需的单变量，但不能用 WithEvents 创建数组。New 和 WithEvents 不能一起使用。
varname必需的。变量的名称；遵循标准的变量命名约定。
subscripts可选的。数组变量的维数；最多可以定义 60 维的多维数组。subscripts 参数的使用语法如下： [lower To] upper [,[lower To] upper] . . . 如果不显式指定 lower，则数组的下界由 Option Base 语句控制。如果没有 Option Base 语句则下界为 0。
New可选的。使其可以隐式地创建对象的关键字。如果使用 New 声明对象变量，则在第一次引用该变量时创建该对象的新实例，因此不必使用 Set 语句来对该对象引用赋值。New 关键字不能声明任何内部数据类型的变量以及从属对象的实例，也不能与 WithEvents 一起使用。
type可选的。变量的数据类型；可以是 Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（尚不支持）、Date、String（对可变长的字符串）、String * length（对定长的字符串）、Object、Variant、用户定义类型或对象类型。所声明的每个变量都要一个单独的 As type 子句。
说明：Private 变量只能在包含其声明的模块中使用。可以使用 Private 语句声明变量的数据类型。例如，下面的语句声明了一个 Integer 类型的变量：“Private NumberOfEmployees As Integer” 也可以使用 Private 语句来声明变量的对象类型。
下面的语句为工作表的新实例声明了一个变量。Private X As New Worksheet如果在定义对象变量时没有使用 New 关键字，则在使用该变量之前，必须使用 Set 语句将一个已有的对象赋给该引用对象的变量。
在赋值之前，所声明的这个对象变量有一个特定值 Nothing，这个值表示该变量没有指向任何对象的实例。如果不指定数据类型或对象类型，且在模块中没有使用 Deftype 语句，则按缺省情况该变量为 Variant 类型。可以用带空圆括号的 Private 语句来声明动态数组，然后可以在过程内用 ReDim 语句来定义该数组的维数和元素。如果试图在 Private，Public 或 Dim 语句中重新定义一个已显式定义了大小的数组的维数，就会发生错误。当初始化变量时，数值变量被初始化为 0，变长的字符串各自独立的变量进行初始化。注意 当在过程中使用 Private 语句时，通常将 Private 语句放在过程的开始。
区分：private，空，protected，public 权限
使用private修饰符可以完全隐藏类的成员，使得不能从类外直接访问它们。
不使用修饰符允许同一个包里的任何类直接访问类的成员，但是其他包中的类不可以。
使用protected修饰符允许任何包中的子类或同一包的类的成员。
使用public修饰符允许任何类访问类的成员。