Got this macro, but it still prompts for password.


Any clues as to why?


Sub Macro7()
'
' Macro7 Macro


Workbooks.Open Filename:="X:\FHI Share\pcp\NEW PCP DATA.xls",
PASSWORD:="pcp123"


ActiveWorkbook.Save
ActiveWindow.Close


End Sub