Saving a password protected workbook without a password

[baldwynward]

I have a workbook with a macro to save the file with a new name. However I can't seem to save it as a .xlsx - when I go to open it I get a message saying it doesn't recognise the format. And also it opens up as password protected.

My code is:

Sub FolderPicker_SaveAs()

'Aug 29, 2014

'file name in cell e6

Sheets("Client Data").Select
Range("d5").Copy
Range("e5").PasteSpecial Paste:=xlPasteValues


Dim fPath
Dim fName
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = True Then
fPath = .SelectedItems(1) & "\"
fName = fPath & Range("e5").Value & ".xlsm"
Call MsgBox(fName, vbInformation, "Save Path")
ThisWorkbook.SaveAs Filename:=fName

Range("e5").Select
Selection.ClearContents

Range("b5").Select

Worksheets("Client Data").Visible = False

Sheets("Questionnaire").Select

End If
End With
End Sub
​

I'm guessing I'm missing something to do with WriteResPassword but can't see how to put this in the code. I'm also guessing I need to replace .xlsx with FileFormat:=51 but can't work out how to put this in either.

Can anyone help?

Thanks

 

[Ron Coderre]

Try using something like this:

ThisWorkbook.SaveAs _
Filename:=fName, _
Password:="" _
FileFormat:=xlOpenXMLWorkbookMacroEnabled

Is that something you can work with?

 

[baldwynward]

Hi Ron

I've tried adding

fName = fPath & Range("e5").Value & ".xlsm"
Password:="" 
Call MsgBox(fName, vbInformation, "Save Path")

But i get a Compile error?

Re the file format, i actually want to save it as a non-macro enabled - so just an .xlsx. If I change the .xlsm in my code to .xlsx then it won't open properly?