VBA open Excel 2016 file with password

[nd4spd]

Hi all, having tried the below macro I still get asked to input password even though it's in the code not sure if its 2016 issue or the code?

Sub OpenPass()
'
 
 Set wbk = Workbooks.Open(Filename:="L:\General\Blue1920.xlsx", Password:=Password1)
 Set wbk = Workbooks.Open(Filename:="L:\General\Red1920.xlsx", Password:=Password1)

End Sub

Thanks

Solution :

Set wbPasteTo = Workbooks.Open(Filename:="L:\General\Blue1920.xlsx", Password:="Password1", WriteResPassword:="Password")