Našel jsem tyto dva kody ale nějak to mauzu rozchodit.
Děkuji za pomoc
Kód: Vybrat vše
Sub Makro1()
For Each w In Application.Workbooks
w.Save
Next w
Application.Quit
End Sub
Sub ExitWithoutPrompt()
Application.DisplayAlerts = True
Application.Quit
End Sub