Makro "Blatt löschen" mit Dialog

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object) Application.DisplayAlerts = False 'Die Systemwarnung unterdrückst du mit antw = MsgBox("Möchtest du das Sheet " & Sh.Name & " wirklich löschen?", vbYesNo + vbQuestion) If antw = vbYes Then Sh.Delete 'Achtung! Muss zwingend nachher wieder eingeschaltet werden: Application.DisplayAlerts = True End Sub

Private Sub CommandButton4_Click() Workbook_SheetBeforeDelete(ByVal Sh As Object) Application.DisplayAlerts = False 'Die Systemwarnung unterdrückst du mit antw = MsgBox("Möchtest du das Sheet " & Sh.Name & " wirklich löschen?", vbYesNo + vbQuestion) If antw = vbYes Then Sh.Delete 'Achtung! Muss zwingend nachher wieder eingeschaltet werden: Application.DisplayAlerts = True End Sub

also ...
Habe das in der Arbeitsmappe:


Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object)
Application.DisplayAlerts = False 'Die Systemwarnung unterdrückst du mit
antw = MsgBox("Möchtest du das Blatt " & Sh.Name & " wirklich löschen?", vbYesNo + vbQuestion)
If antw = vbYes Then Sh.Delete
'Achtung! Muss zwingend nachher wieder eingeschaltet werden:
Application.DisplayAlerts = True
If ActiveSheet.Index = Sheets.Count Then MsgBox "löschen nicht erlaubt"
Exit Sub
End Sub

und der Code läuft beim XActive-Button:


Private Sub CommandButton4_Click()
ActiveSheet.Delete
End Sub

wenn ich jetzt ein Blatt mittels XActiveButton lösche, fragt micht erst das System, dann die MessageBox von MCO's Code und wenn ich in der MessageBox "Nein" drücke, wird das Blatt trotzdem gelöscht =D
Beim letzten Blatt kommt weiterhin die Fehlermeldung zum Debuggen ...
Ich bitte um weiteren Rat - Danke!
Gruß

Private Sub CommandButton4_Click() If ActiveSheet.Index = Sheets.Count Then MsgBox "löschen nicht erlaubt": Exit Sub antw = MsgBox("Möchtest du das Blatt " & ActiveSheet.Name & " wirklich löschen?", vbYesNo + vbQuestion) If antw = vbYes Then ActiveWorkbook.Unprotect "" Application.DisplayAlerts = False 'Die Systemwarnung unterdrückst du mit ActiveSheet.Delete Application.DisplayAlerts = True 'Achtung! Muss zwingend nachher wieder eingeschaltet werden: ActiveWorkbook.Protect "" End If End Sub

Wirklich vielen Dank für euer Engagement und eure schnellen Antworten!
leider läuft es noch nicht so wie es soll. Im Anhang findet ihr eine Beispieldatei (Blattschutz = 123) & Blatt "Datenbank" ist ausgeblendet
Mir ist auf- bzw. eingefallen, dass Gerds Code zwar prima läuft, aber der Fall "Nothing" nie eintreten wird, da ich ein Blatt Namens "Datenbank" für die Benutzerfreundlichkeit ausgeblendet habe. Dh auch hier kommt beim, wenn auch versehentlichen, Löschen des letzten Blattes immer eine Fehlermeldung. Wenn man diese Fehlermeldung abstellen könnte wäre es perfekt!
@MCO: dein Code spuckt gleich nach dem Löschen eine Fehlermeldung aus, auch wenn das mit der MessageBox jetzt deutlich besser funktioniert.
https://www.herber.de/bbs/user/154791.xlsm
Danke und Gruß!

Beliebteste Forumthreads (12 Monate)

Makro "Blatt löschen" mit Dialog

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro "Blatt löschen" mit Dialog

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread