Try this...

Sub SaveWbWithoutPrompt()

Activeworkbook.Saved=True

End Sub