跟我学VBA，我这里专注VBA, 授人以渔。我98年开始，从源码接触VBA已经20余年了，随着年龄的增长，越来越觉得有必要把这项技能传递给需要这项技术的职场人员。希望职场和数据打交道的朋友，都来学习VBA,利用VBA,起码可以提高自己的工作效率，可以有时间多陪陪父母，多陪陪家人，何乐而不为呢？我的教程一共九套，从入门开始一直讲到程序的分发，是学习利用VBA的实用教程。这份API资料是随高级教程赠送的.
这讲我们继续学习VBA 64位API声明语句第007讲，这些内容是MS的权威资料，看似枯燥，但对于想学习API函数的朋友是非常有用的。
【分享成果，随喜正能量】 大喜易失言，大怒易失礼，大惊易失态，大哀易失颜，大乐易失察，大惧易失节，大醉易失德，大话易失信，大欲易失命。谨记！。
当学员学习到高级阶段，如果引用API，这个资料可以直接查到64位写法。大多数情况下我们是将低版本的程序文件升级到高版本，这时您就不必为如下的错误提示所困扰了：
' //////////////////////////////////////////////////////////////////////
' //
' LUID_AND_ATTRIBUTES //
' //
' //////////////////////////////////////////////////////////////////////
'
Type LUID
LowPart As Long
HighPart As Long
End Type
Type LUID_AND_ATTRIBUTES
pLuid As LUID
Attributes As Long
End Type
' //////////////////////////////////////////////////////////////////////
' //
' ACL and ACE //
' //
' //////////////////////////////////////////////////////////////////////
'
' Define an ACL and the ACE format. The structure of an ACL header
' followed by one or more ACEs. Pictorally the structure of an ACL header
' is as follows:
'
' The current AclRevision is defined to be ACL_REVISION.
'
' AclSize is the size, in bytes, allocated for the ACL. This includes
' the ACL header, ACES, and remaining free space in the buffer.
'
' AceCount is the number of ACES in the ACL.
'
' begin_ntddk begin_ntifs
' This is the *current* ACL revision
Const ACL_REVISION = (2)
' This is the history of ACL revisions. Add a new one whenever
' ACL_REVISION is updated
Const ACL_REVISION1 = (1)
Const ACL_REVISION2 = (2)
Type ACL
AclRevision As Byte
Sbz1 As Byte
AclSize As Integer
AceCount As Integer
Sbz2 As Integer
End Type
' typedef ACL *PACL;
' end_ntddk
' The structure of an ACE is a common ace header followed by ace type
' specific data. Pictorally the structure of the common ace header is
' as follows:
' AceType denotes the type of the ace, there are some predefined ace
' types
'
' AceSize is the size, in bytes, of ace.
'
' AceFlags are the Ace flags for audit and inheritance, defined Integerly.
Type ACE_HEADER
AceType As Byte
AceFlags As Byte
AceSize As Integer
End Type
'
' The following are the predefined ace types that go into the AceType
' field of an Ace header.
Const ACCESS_ALLOWED_ACE_TYPE = &H0
Const ACCESS_DENIED_ACE_TYPE = &H1
Const SYSTEM_AUDIT_ACE_TYPE = &H2
Const SYSTEM_ALARM_ACE_TYPE = &H3
' The following are the inherit flags that go into the AceFlags field
' of an Ace header.
Const OBJECT_INHERIT_ACE = &H1
Const CONTAINER_INHERIT_ACE = &H2
Const NO_PROPAGATE_INHERIT_ACE = &H4
Const INHERIT_ONLY_ACE = &H8
Const VALID_INHERIT_FLAGS = &HF
' The following are the currently defined ACE flags that go into the
' AceFlags field of an ACE header. Each ACE type has its own set of
' AceFlags.
'
' SUCCESSFUL_ACCESS_ACE_FLAG - used only with system audit and alarm ACE
' types to indicate that a message is generated for successful accesses.
'
' FAILED_ACCESS_ACE_FLAG - used only with system audit and alarm ACE types
' to indicate that a message is generated for failed accesses.
' SYSTEM_AUDIT and SYSTEM_ALARM AceFlags
'
' These control the signaling of audit and alarms for success or failure.
Const SUCCESSFUL_ACCESS_ACE_FLAG = &H40
Const FAILED_ACCESS_ACE_FLAG = &H80
'
' We'll define the structure of the predefined ACE types. Pictorally
' the structure of the predefined ACE's is as follows:
' Mask is the access mask associated with the ACE. This is either the
' access allowed, access denied, audit, or alarm mask.
'
' Sid is the Sid associated with the ACE.
'
' The following are the four predefined ACE types.
' Examine the AceType field in the Header to determine
' which structure is appropriate to use for casting.
Type ACCESS_ALLOWED_ACE
Header As ACE_HEADER
Mask As Long
SidStart As Long
End Type
Type ACCESS_DENIED_ACE
Header As ACE_HEADER
Mask As Long
SidStart As Long
End Type
Type SYSTEM_AUDIT_ACE
Header As ACE_HEADER
Mask As Long
SidStart As Long
End Type
Type SYSTEM_ALARM_ACE
Header As ACE_HEADER
Mask As Long
SidStart As Long
End Type
' The following declarations are used for setting and querying information
' about and ACL. First are the various information classes available to
' the user.
'
Const AclRevisionInformation = 1
Const AclSizeInformation = 2
'
' This record is returned/sent if the user is requesting/setting the
' AclRevisionInformation
'
Type ACL_REVISION_INFORMATION
AclRevision As Long
End Type
'
' This record is returned if the user is requesting AclSizeInformation
'
Type ACL_SIZE_INFORMATION
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
