使用VBA在多台计算机上打开受保护的工作簿

Sub OpenProtectedWorkbook()
    Dim filePath As String
    Dim password As String
    
    ' 设置受保护的工作簿的文件路径和密码
    filePath = "C:\Path\to\ProtectedWorkbook.xlsx"
    password = "password"
    
    ' 创建一个新的Excel应用程序对象
    Dim excelApp As Object
    Set excelApp = CreateObject("Excel.Application")
    
    ' 打开工作簿
    Dim workbook As Object
    Set workbook = excelApp.Workbooks.Open(filePath, , , , password)
    
    ' 在这里进行其他操作，如读取或修改工作簿的数据
    
    ' 关闭工作簿和Excel应用程序
    workbook.Close False
    excelApp.Quit
    
    ' 释放对象引用
    Set workbook = Nothing
    Set excelApp = Nothing
End Sub