如何在受密码保护的工作簿vba中保存数据

Question

我有一个带有userform的工作簿，它将数据保存到远程主工作簿。后者受密码保护 - 设置为只读。我试图通过使用VBA密码打开工作簿作为readwrite，但无论如何我都被提示输入密码。这是我的代码，请你指导我，我做错了什么？请帮忙。

Dim wb As Workbook
Dim nr As Long

Set wb = Workbooks.Open("C:\Users\Jasiek\Desktop\Multiple Test\premote.xlsx", Password:="Bartek")
nr = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row + 1

Application wants to save as copy instead of original file, even though the password is typed in manually:

@Storax谢谢，但问题仍然存在。我写了代码，保存，重新打开，复制代码，保存，重新打开。点击提交后我就是这样：

知道为什么会这样吗？

由于

Answer 1

更改您的工作簿。打开以下行   Set wb = Workbooks.Open("C:\Users\Jasiek\Desktop\Multiple Test\premote.xlsx", WriteResPassword:="Bartek")