VBA学习笔记（一）：自动添加代码&VBA修改注册表

是的，这是VBA学习笔记的第一篇文章，涵盖两个主题：自动添加代码和VBA修改注册表。下面是更详细的介绍：

## 自动添加代码

在VBA中，我们可以使用代码自动添加代码。这通常用于在编写宏时自动添加模板代码或辅助代码。下面是一个简单的示例，演示如何使用VBA自动添加代码：

Sub AddCode()
    '获取当前文档中的VBProject对象
    Dim vbProj As VBIDE.VBProject
    Set vbProj = ActiveWorkbook.VBProject
    
    '获取当前文档中的Sheet1模块
    Dim sheetMod As VBIDE.CodeModule
    Set sheetMod = vbProj.VBComponents("Sheet1").CodeModule
    
    '添加VBA代码
    sheetMod.InsertLines 1, "Sub HelloWorld()" & vbCrLf & _
                           "    MsgBox ""Hello, World!""" & vbCrLf & _
                           "End Sub"
End Sub

上述代码将在当前文档的Sheet1模块中添加一个名为"HelloWorld"的子例程，并在调用该例程时显示一个消息框。

## VBA修改注册表

VBA可以使用Windows API函数来修改Windows注册表。这对于配置或自定义Windows系统非常有用。下面是一个简单的示例，演示如何使用VBA修改注册表中的一个键值：

Option Explicit

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" ( _
    ByVal hKey As Long, _
    ByVal lpSubKey As String, _
    ByVal ulOptions As Long, _
    ByVal samDesired As Long, _
    ByRef phkResult As Long) As Long

Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" ( _
    ByVal hKey As Long, _
    ByVal lpValueName As String, _
    ByVal Reserved As Long, _
    ByVal dwType As Long, _
    ByVal lpData As Any, _
    ByVal cbData As Long) As Long

Private Declare Function RegCloseKey Lib "advapi32.dll" ( _
    ByVal hKey As Long) As Long

Private Const HKEY_CURRENT_USER = &H80000001
Private Const KEY_SET_VALUE = &H2
Private Const REG_SZ = 1

Sub ModifyRegistryKey()
    Dim hKey As Long
    Dim result As Long
    
    '打开注册表键
    result = RegOpenKeyEx(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", 0, KEY_SET_VALUE, hKey)
    
    If result = 0 Then
        '设置键值的值
        result = RegSetValueEx(hKey, "Hidden", 0, REG_SZ, "2", 2)
        
        '关闭注册表键
        result = RegCloseKey(hKey)
    End If
End Sub

上述代码演示了如何将 "Hidden" 键的值设置为 "2"，这将隐藏文件资源管理器中的隐藏文件和文件夹。请注意，修改注册表可能会导致系统不稳定，因此在进行任何修改之前，请备份您的注册表。