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

Question

我有一个带有用户表单的工作簿，它将数据保存到远程主工作簿。后者是密码保护 - 设置为只读。我试图通过使用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

更改您的Workbook.Open线follwos Set wb = Workbooks.Open("C:\Users\Jasiek\Desktop\Multiple Test\premote.xlsx", WriteResPassword:="Bartek")