Liebe Gäste, wenn es euch bei Office 2010 - Hilfe gefallen hast, könnt ihr euch hier registrieren, und in Zukunft einige Vorteile genießen.
Danke, das Office2010-Hilfe Team
Lieber Gast, wenn du bei uns findest wonach du gesucht hast, dann kannst du dich auch registrieren. Hier geht es zur Registrierungs Seite. Die Registrierung nimmt sicher nicht mehr als 2 Min. deiner Zeit in Anspruch und bringt die einige Vorteile bei Office 2010 - Hilfe
Danke, das Office2010-Hilfe Team


Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.EnableEvents = False
ThisWorkbook.Save
Application.DisplayAlerts = False
ThisWorkbook.SaveCopyAs "t:\Datentausch\Dokumente\" & ThisWorkbook.Name
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub
Mitglieder in diesem Forum: 0 Mitglieder und 0 Gäste