how to save data in password protected workbook vba

Question

I have a workbook with userform, which saves data to remote master workbook. The latter is password protected - set as read only. I am trying to open the workbook as readwrite by using VBA password, however I'm being prompted for a password anyway. Here is my code, could you please guide me, what is it I'm doing wrong? Please help.

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 Thanks, but the issue still persists. I wrote the code, saved, reopened, copied the code, saved, reopened. After hitting submit I've this:

Any idea why this might be the case?

Thanks

Answer 1

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