habe folgendes Makro:
Private Sub Schließen_Click()
Application.ScreenUpdating = False
Dim Verzeichnis As String
Verzeichnis = "c:\1_PKW_Verkauf"
Worksheets("Prov-Blatt").Select
Range("A1").Select
Worksheets("Prov-Blatt").Unprotect ("wwpa") 'schutz aufheben
Columns("A:A").Select
Selection.ColumnWidth = 120
Columns("B:B").Select
Range("B2").Activate
ActiveWindow.FreezePanes = True
Columns("A:A").Select
Range("A2").Activate
Selection.ColumnWidth = 170
Worksheets("Prov-Blatt").ScrollArea = "A1:A30" 'Zeilen bis sperren
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True, Password:="wwpa"
Dim Antwort
Antwort = MsgBox("Letzte Warnung !!! Beenden >>> JA drücken" & _
Chr(13) & Chr(13) & " oder" & Chr(13) & Chr(13) & _
"Datei OFFEN lassen, für späteres arbeiten ? dann >>> NEIN drücken", vbCritical + vbYesNo)
If Antwort = vbYes Then
Windows("1-NW-PLK-Datenbank.xls").Activate
Range("D5").Select
Application.DisplayAlerts = False ' Sicherheitsabfrage unterdrücken
ActiveWorkbook.SaveAs Filename:="C:\1_PKW_Verkauf\1-NW-PLK-Datenbank.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
Worksheets("Prov-Blatt").Select
Range("A1").Select
ActiveWorkbook.SaveAs Filename:="C:\1_PKW_Verkauf\1-NW-PLK-VB.XLS", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
''' ? geht nicht>>> MsgBox "Bitte warten... Datei wird gespeichert !"
Else
Unload Me
Worksheets("GF-TAB-Neu").Select
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True, Password:="wwpa"
Worksheets("Auftragsblatt").Select
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True, Password:="wwpa"
Sheets("Auftragsblatt").Visible = False
Sheets("GF-TAB-Neu").Visible = False
If Worksheets("Kulanzblatt-VK").Visible = True Then
Worksheets("Kulanzblatt-VK").Select
Range("A40").Select
Worksheets("Kulanzblatt-VK").Unprotect ("wwpa")
Sheets("Kulanzblatt-VK").Visible = False
End If
Worksheets("Prov-Blatt").Select
Range("A1").Select
End If
Sheets("Kulanzblatt-VK").Visible = False
Application.ScreenUpdating = True
End Sub
Da die Datei sehr groß ist, möchte ich beim schließen eine MsgBox offen lassen
oder einen Balken, bis die Datei geschlossen ist ?
Geht das ?
Gruß Walter