Sub test()
Workbooks.Open Filename:="c:\My Documents\Try this.xlsm", Password:="one", WriteResPassword:="two"
ChDir "c:\New\"
ActiveWorkbook.SaveAs Filename:= _
"C:\My Documents\New\Try this 1.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Sheets("sheet1").Activate
ActiveSheet.Unprotect Password:="Test"
End Sub