Using vba to save a file without a password

[rammi125]

I have a file that has a password on it. To save the file without a password I click save as and then next to save choose tools, general options, delete the password that's already there and then save the workbook.

What's the VBA code to do the above so that the file gets saved without a password? My code is below:


COLLATERALfile = "\\Nas01\shared\RSH\TECH\Operations\Futures Ops\Archive\Futures Pledged Collateral Report " & _
Format(Date, "mm.dd.yy") & ".xlsx"

Workbooks.Open COLLATERALfile, Password:="Agico6nm"

ActiveWorkbook.SaveAs Filename:= _
"\\us1.1corp.org\NY1\Users\RSingh\Documents\Download #2 - Futures Pledged Collateral Report.xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False, WriteresPassword:=""




Set COLLATERALBook = ActiveWorkbook

COLLATERALBook.Close savechanges:=False

 

[Jerry Sullivan]

When you click Save as > Tools > General Options there are two passwords that can be set or cleared. One to open the workbook, one to modify the workbook.
Your current code is just clearing the latter with WriteresPassword:="". To clear the password that allows opening of the workbook, use Password:=""

ActiveWorkbook.SaveAs Filename:= _
 "\\us1.1corp.org\NY1\Users\RSingh\Documents\Download #2 - Futures Pledged Collateral Report.xlsx" _
 , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False, WriteresPassword:="", [B]Password:=""[/B]