摘要：跟我学VBA，我这里专注VBA, 授人以渔。我98年开始，从源码接触VBA已经20余年了，随着年龄的增长，越来越觉得有必要把这项技能传递给需要这项技术的职场人员。希望职场和数据打交道的朋友，都来学习VBA,利用VBA,起码可以提高自己的工作效率，可以有时间多陪

跟我学VBA，我这里专注VBA, 授人以渔。我98年开始，从源码接触VBA已经20余年了，随着年龄的增长，越来越觉得有必要把这项技能传递给需要这项技术的职场人员。希望职场和数据打交道的朋友，都来学习VBA,利用VBA,起码可以提高自己的工作效率，可以有时间多陪陪父母，多陪陪家人，何乐而不为呢？我的教程一共九套，从入门开始一直讲到程序的分发，是学习利用VBA的实用教程。这份API资料是随高级教程赠送的.

这讲我们继续学习VBA 64位API声明语句第008讲，这些内容是MS的权威资料，看似枯燥，但对于想学习API函数的朋友是非常有用的。

【分享成果，随喜正能量】 102 我们不是圣人，所以常走错路，路，没有错，错的只是选择。如果，在一条走错的路上，别人都步履蹒跚，愁眉不展，而我们却依旧笑颜如花，坦然前行，久而久之，就成了错误路上的一道风景，亮丽了别人的眼睛，也愉悦了自己的心。当我们的心不同了，脚下的路也就不同了，阳光会明媚，伤痛也会远离。。

当学员学习到高级阶段，如果引用API，这个资料可以直接查到64位写法。大多数情况下我们是将低版本的程序文件升级到高版本，这时您就不必为如下的错误提示所困扰了：

AceCount As Long

AclBytesInUse As Long

AclBytesFree As Long

End Type

' //////////////////////////////////////////////////////////////////////

' //

' SECURITY_DESCRIPTOR //

' //

'

' Define the Security Descriptor and related data types.

' This is an opaque data structure.

'

' begin_ntddk begin_ntifs

'

' Current security descriptor revision value

'

Const SECURITY_DESCRIPTOR_REVISION = (1)

Const SECURITY_DESCRIPTOR_REVISION1 = (1)

' end_ntddk

'

' Minimum length, in Bytes, needed to build a security descriptor

' (NOTE: This must manually be kept consistent with the)

' (sizeof(SECURITY_DESCRIPTOR) )

'

Const SECURITY_DESCRIPTOR_MIN_LENGTH = (20)

Const SE_OWNER_DEFAULTED = &H1

Const SE_GROUP_DEFAULTED = &H2

Const SE_DACL_PRESENT = &H4

Const SE_DACL_DEFAULTED = &H8

Const SE_SACL_PRESENT = &H10

Const SE_SACL_DEFAULTED = &H20

Const SE_SELF_RELATIVE = &H8000

'

' Where:

'

' SE_OWNER_DEFAULTED - This boolean flag, when set, indicates that the

' SID pointed to by the Owner field was provided by a

' defaulting mechanism rather than explicitly provided by the

' original provider of the security descriptor. This may

' affect the treatment of the SID with respect to inheritence

' of an owner.

'

' SE_GROUP_DEFAULTED - This boolean flag, when set, indicates that the

' SID in the Group field was provided by a defaulting mechanism

' rather than explicitly provided by the original provider of

' the security descriptor. This may affect the treatment of

' the SID with respect to inheritence of a primary group.

'

' SE_DACL_PRESENT - This boolean flag, when set, indicates that the

' security descriptor contains a discretionary ACL. If this

' flag is set and the Dacl field of the SECURITY_DESCRIPTOR is

' null, then a null ACL is explicitly being specified.

'

' SE_DACL_DEFAULTED - This boolean flag, when set, indicates that the

' ACL pointed to by the Dacl field was provided by a defaulting

' mechanism rather than explicitly provided by the original

' provider of the security descriptor. This may affect the

' treatment of the ACL with respect to inheritence of an ACL.

' This flag is ignored if the DaclPresent flag is not set.

'

' SE_SACL_PRESENT - This boolean flag, when set, indicates that the

' security descriptor contains a system ACL pointed to by the

' Sacl field. If this flag is set and the Sacl field of the

' SECURITY_DESCRIPTOR is null, then an empty (but present)

' ACL is being specified.

'

' SE_SACL_DEFAULTED - This boolean flag, when set, indicates that the

' ACL pointed to by the Sacl field was provided by a defaulting

' This flag is ignored if the SaclPresent flag is not set.

'

' SE_SELF_RELATIVE - This boolean flag, when set, indicates that the

' security descriptor is in self-relative form. In this form,

' all fields of the security descriptor are contiguous in memory

' and all pointer fields are expressed as offsets from the

' beginning of the security descriptor. This form is useful

' for treating security descriptors as opaque data structures

' for transmission in communication protocol or for storage on

' secondary media.

'

'

'

' In general, this data structure should be treated opaquely to ensure future

' compatibility.

'

'

Type SECURITY_DESCRIPTOR

Revision As Byte

Sbz1 As Byte

Control As Integer

Owner As LongPtr

Group As LongPtr

Sacl As ACL

Dacl As ACL

End Type

' Where:

'

' Revision - Contains the revision level of the security

' descriptor. This allows this structure to be passed between

' systems or stored on disk even though it is expected to

' change in the future.

'

' Control - A set of flags which qualify the meaning of the

' security descriptor or individual fields of the security

' descriptor.

'

' Owner - is a pointer to an SID representing an object's owner.

' If this field is null, then no owner SID is present in the

' security descriptor. If the security descriptor is in

' self-relative form, then this field contains an offset to

' the SID, rather than a pointer.

'

' Group - is a pointer to an SID representing an object's primary

' group. If this field is null, then no primary group SID is

' present in the security descriptor. If the security descriptor

' is in self-relative form, then this field contains an offset to

'

' Sacl - is a pointer to a system ACL. This field value is only

' valid if the DaclPresent control flag is set. If the

' SaclPresent flag is set and this field is null, then a null

' ACL is specified. If the security descriptor is in

' the ACL, rather than a pointer.

'

' Dacl - is a pointer to a discretionary ACL. This field value is

' only valid if the DaclPresent control flag is set. If the

' DaclPresent flag is set and this field is null, then a null

' ACL (unconditionally granting access) is specified. If the

' security descriptor is in self-relative form, then this field

' contains an offset to the ACL, rather than a pointer.

'

' //

' Privilege Related Data Structures //

' //

' Privilege attributes

'

Const SE_PRIVILEGE_ENABLED_BY_DEFAULT = &H1

Const SE_PRIVILEGE_ENABLED = &H2

Const SE_PRIVILEGE_USED_FOR_ACCESS = &H80000000

'

' Privilege Set Control flags

'

Const PRIVILEGE_SET_ALL_NECESSARY = (1)

'

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

来源：VBA语言专业教育