SaveAs .xls in 2007

[Giordano Bruno]

I am using Excel 2007 and want to allow users of a workbook to save the file as any name they choose, but only as an xls, not an xlsm. I can't find code that works for this in Excel 2007.

 

[dantheman9]

It must be from some other section of your code? (running it as a standalone seem to work fine...only asked once).

What is this bit of code doing?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

 

[Giordano Bruno]

Hi dantheman,

Interesting question and I'm not entirely sure of the answer. I put the code in ThisWorkbook to trap the save event and that always comes up automatically.

 

[RoryA]

If you save the workbook in the beforesave event, then you will trigger the event again. You need to disable events before saving:

Application.enableevents = false
' save code here
Application.enableevents = true

You should also only run your code if saveasui = true