ThisWorkbook.ChangeFileAccess xlReadWrite 在 VBA 窗口中为工作簿创建多个 VBAProject

使用 VBA 窗口中的代码 "ThisWorkbook.ChangeFileAccess xlReadWrite" 可以为工作簿创建多个 VBAProject。这个功能非常有用，因为它允许用户在同一个工作簿中使用多个不同的 VBA 项目，从而提供更大的灵活性和功能扩展性。

ThisWorkbook.ChangeFileAccess xlReadWrite

vba
Sub CreateMultipleVBAProjects()
    ' 将文件访问权限设置为可读写
    ThisWorkbook.ChangeFileAccess xlReadWrite
    
    ' 创建第一个 VBA 项目：数据处理
    Dim vbProj1 As VBIDE.VBProject
    Set vbProj1 = ThisWorkbook.VBProject.VBProjects.Add
    
    ' 设置第一个 VBA 项目的名称
    vbProj1.Name = "数据处理"
    
    ' 在第一个 VBA 项目中添加相关代码
    With vbProj1.VBComponents.Add(vbext_ct_StdModule)
        .Name = "模块1"
        .CodeModule.AddFromString "Sub 数据提取和处理()" & vbCrLf & "    ' 在这里编写数据提取和处理的代码" & vbCrLf & "End Sub"
    End With
    
    ' 创建第二个 VBA 项目：图表制作
    Dim vbProj2 As VBIDE.VBProject
    Set vbProj2 = ThisWorkbook.VBProject.VBProjects.Add
    
    ' 设置第二个 VBA 项目的名称
    vbProj2.Name = "图表制作"
    
    ' 在第二个 VBA 项目中添加相关代码
    With vbProj2.VBComponents.Add(vbext_ct_StdModule)
        .Name = "模块1"
        .CodeModule.AddFromString "Sub 图表制作和可视化()" & vbCrLf & "    ' 在这里编写图表制作和可视化的代码" & vbCrLf & "End Sub"
    End With
End Sub