Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 打开电子表格并自动输入链接电子表格的密码_Excel_Vba - Fatal编程技术网

Excel 打开电子表格并自动输入链接电子表格的密码

Excel 打开电子表格并自动输入链接电子表格的密码,excel,vba,Excel,Vba,我有一个电子表格设置,其中有一些公式链接到受保护的电子表格(示例B),这意味着即使我的初始电子表格(示例a)如果未受保护,每次更新数据时我都必须输入另一个的密码-是否有任何方法可以添加一些VBA,以便在打开ExA时自动输入ExB的密码 我在ExA中尝试了以下作为私人密码的密码,但没有任何乐趣,它仍然要求输入密码 Private Sub Workbook_Open() Workbooks.Open Filename:="file path", Password:="Password" End

我有一个电子表格设置,其中有一些公式链接到受保护的电子表格(示例B),这意味着即使我的初始电子表格(示例a)如果未受保护,每次更新数据时我都必须输入另一个的密码-是否有任何方法可以添加一些VBA,以便在打开ExA时自动输入ExB的密码

我在ExA中尝试了以下作为私人密码的密码,但没有任何乐趣,它仍然要求输入密码

Private Sub Workbook_Open()

Workbooks.Open Filename:="file path", Password:="Password"

End Sub

如果只有工作表受保护,而不是整个工作簿,请尝试使用:

Sub uncode()

'code to unprotect
Sheets("Sheet1").Unprotect "password"

'your code, updating data

'code to protect
Sheets("Sheet1").Protect "password"

End Sub

不要试图从第一个工作簿打开第二个工作簿。试试这个

  • 先打开ExB
  • 下一步打开ExA
  • 关闭ExB
  • 试试这个

    Private Sub Workbook_Open()
        Dim wbA As Workbook
        Dim wbB As Workbook
    
        Set wbB = Workbooks.Open(Filename:="C:\SomePath\ExB.xlsx", Password:="SomePassword")
        Set wbA = Workbooks.Open(Filename:="C:\SomePath\ExA.xlsx", Password:="SomePassword")
        wbB.Close (False)
    End Sub
    

    链接的工作簿受到保护,我希望VBA所在的工作簿没有保护。如果整个工作簿受到保护,那么您就倒霉了。如果可能的话,您应该考虑将其转换为数据库。您是否尝试过工作簿。打开文件名:=“文件路径”,密码:=“通过打开”,写入密码:=“通过重写”?