Vor Abspeichern auf Tabelle1 bringen
Wolfgang
ich hatte mit folgendem Code vesucht, das Ziel zu erreichen, dass innerhalb einer Mappe zunächst vor dem Abspeichern die Tabelle "Einstellungen" und hierin "A1" angesteuert wird. Grundsätzlich läuft auch der Code, allerdings kann ich mit dem eingebauten Code die Mappe nicht mehr freigeben, da irgendwie die erforderliche Speicherung für die Freigabe nicht mehr erfolgt. Hat jemand einen Rat, wie ich den Code umstellen kann, damit die Freigabe dennoch läuft? Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
Dim bln As Boolean
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.DisplayAlerts = False
If bln = False Then
Cancel = True
bln = True
Worksheets("Einstellungen").Select
Range("A1").Activate
ThisWorkbook.Save
bln = False
End If
Application.DisplayAlerts = True
End Sub
Anzeige