Nur aktuelle Datei schließen, wenn
02.02.2025 12:16:43
philipp
ich habe folgendes Makro, was leider nicht funktioniert:
If ActiveWorkbook.Name ="Fahrtenbuch*" Then
MsgBox "Es ist die Fahrtenbuch-Kontrolle, " _
& Chr(13) & Chr(13) & "diese kann so nicht geschlossen werden ! " & Chr(13) & Chr(13) " _
& Chr(13) & Chr(13) & "Sie dürfen die Fahrtenbuch-Kontroll-Bücher, nicht löschen ! " _
& Chr(13) & Chr(13) & "Name: " & Environ("Username")
Else
ActiveWorkbook.Close 'true
End If
Es gibt mehrere Fahrtenbücher, deshalb alle die mit Fahrtenbuch* anfangen und aktiv sind also
nicht löschen.
mfg philipp
Anzeige