VBA code to save workbook with no prompt

Hi, save this macro in the ThisWorkbook object rather than in a module.

Thanks for the suggestion; I couldn't get that to work, but I did find a solution that did work for me to disable the prompt; here's an example:

Application.DisplayAlerts = False 'IT WORKS TO DISABLE ALERT PROMPT

'SAVES FILE USING THE VARIABLE BOOKNAME AS FILENAME
ActiveWorkbook.SaveAs Filename:="C:\Data\" & BookName, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

Application.DisplayAlerts = True 'RESETS DISPLAY ALERTS

Theres always more than one way.

The code I posted should be saved in ThisWorkbook rather than Module1 (or whatever you have called your module). I was presuming the file your saving is the same one as where the code is run from. Sorry if I misinterpreted you.

The before_close event runs automatically as opposed to a normal macro where you have to do an action.

You can also have done this which saves and closes the workbook...



hth

Hi ppl ,
i need help in macros of excel
The requirement is:
Coulmn1 Column2
ASD-op null
wer-it null
wert-yu null
dft-op null


When a user is trying to save, i want an macro to run were it ill have a search functionality in column 1 wic has -op suffixed and if corresponding column2 is null user shld get an alert asking to fill the column two

Hi swathis

Can you please start your own new thread? This one relates to a different discussion altogether.

sagain2k said:

Thanks for the suggestion; I couldn't get that to work, but I did find a solution that did work for me to disable the prompt; here's an example:

Application.DisplayAlerts = False 'IT WORKS TO DISABLE ALERT PROMPT

'SAVES FILE USING THE VARIABLE BOOKNAME AS FILENAME
ActiveWorkbook.SaveAs Filename:="C:\Data\" & BookName, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

Application.DisplayAlerts = True 'RESETS DISPLAY ALERTS

Click to expand...

Your solution used to work for me, but now I get another alert:
Any ideas?

PS. I use Windows XP, Excel 2007.

Try this...

Sub SaveWbWithoutPrompt()

Activeworkbook.Saved=True

End Sub

Thank You for this too, it saved me some annoying work regularly~~~~

I have written the macro for the save as functionality but once the routine iis over the normal save as box comes up. can someone help.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Val(Application.Version) < 12 Then
restart1:
vFile = Application.GetSaveAsFilename("", "Excel files (*.xls),*.xls")

If TypeName(vFile) = "Boolean" Then

iRet = MsgBox("Quit without saving file?", vbYesNo)
If iRet = vbNo Then
GoTo restart1
Else
Exit Sub
End If
'Exit Sub ' user cancelled
Else
ActiveWorkbook.SaveAs Filename:=vFile, FileFormat:= _
-4143
iRet = MsgBox("Your file has been saved in " & FPath, vbOK)
End If

End Sub