Quote:
Originally Posted by macropod
I suspect your basic issue is that you have unqualified sheet & workbook references (plus you're code is telling Excel to open an xlsm file whereas the one you provided for testing is an xlsx file). Try:
Code:
Sub Test()
Dim xlWkBk As Workbook
Set xlWkBk = Workbooks.Open(Filename:="c:\My Documents\Try this.xlsx", _
Password:="one", WriteResPassword:="two", AddToMRU:=False)
With xlWkBk
.SaveAs Filename:="C:\My Documents\New\Try this 1.xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False, AddToMRU:=False
.Sheets("Sheet1").Unprotect Password:="Test"
End With
End Sub
Note that there is no need for the ChDir code. |
Superb! That has solved my issue. Thank you so much.
