Msg Box beim Schließen von Excel

Hallo Gemeinde,

ich habe da mal zwei kurze Fragen.
Meine Arbeitsmappe besteht aus zwei Arbeitsblättern. Beim Schließen der Arbeitsmappe erfolgt per Msg Box eine Ja/Nein Abfrage mit Hinweis auf Blatt 2. Bei "Ja" schließt sich die Arbeitsmappe, bei "Nein" bleibt sie geöffnet. Das funktioniert auch soweit einwandfrei.
Meine Idee war jetzt, dass bei "Nein" die Arbeitsmappe geöffnet bleibt, aber dann direkt zu Blatt 2 springt. Gibt es diese Möglichkeit?
Zweite Frage ist, könnte man das ganze Prozedere so einstellen, dass die Msg Box nur erscheint, wenn ich die Arbeitsmappe aus Blatt 1 schließe, weil, wenn ich mich schon auf Blatt 2 befinde, dann wäre die Msg Box mit dem Hinweis auf das zweite Blatt eigentlich überflüssig.

Hier der bereits eingefügte Code:

Public Sub Workbook_BeforeClose(Cancel As Boolean)
'Abfrage Restarbeiten
JN = MsgBox("Bitte Blatt Restarbeiten überprüfen", vbYesNo)
If JN > 6 Then
Cancel = True
End If
End Sub

Ich bedanke mich schonmal für Eure Hilfe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Code:

Public Sub Workbook_BeforeClose(Cancel As Boolean)
'Abfrage Restarbeiten
 
 If ActiveSheet.Name <> "Restarbeiten" Then
    If MsgBox("Bitte Blatt Restarbeiten überprüfen!", vbYesNo Or vbExclamation) = vbYes Then
       Sheets("Restarbeiten").Select
       Cancel = True
    End If
 End If
End Sub

Jetzt kann ich zwar über "Datei" "Schließen" das Ganze beenden, aber die Msg Box tut nicht mehr das was sie soll. Die Ja/Nein Abfrage kommt, aber egal welchen Button ich jetzt drücke, Excel wird sofort beendet. :D :D :D
Ich häng den kompletten Worksheet Code nochmal an, vielleicht hab ich das Application.Quit ja nur an die falsche Stelle gesetzt.

Private Sub Workbook_Open()
'Öffnen immer mit Seite 1
    ThisWorkbook.Saved = True
    Worksheets(1).Activate
    [D14].Select
     
'Blattschutz für manuelle Eingabe
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
    ws.Protect UserInterfaceOnly:=True
    Next ws
End Sub

Public Sub Workbook_BeforeClose(Cancel As Boolean)
'Abfrage Restarbeiten
    If ActiveSheet.Name > "Restarbeiten" Then
    If MsgBox("Hast Du Blatt Restarbeiten überprüft?", vbYesNo Or vbExclamation) = vbNo Then
       Sheets("Restarbeiten").Select
       Cancel = True
       Application.Quit
    End If
    End If
End Sub

Public Sub Workbook_BeforeClose(Cancel As Boolean) 'Abfrage Restarbeiten If ActiveSheet.Name > "Restarbeiten" Then If MsgBox("Hast Du Blatt Restarbeiten überprüft?", vbYesNo Or vbQuestion) = vbNo Then Sheets("Restarbeiten").Select Cancel = True exit sub End If End If Application.Quit End Sub

Beliebteste Forumthreads (12 Monate)

Msg Box beim Schließen von Excel

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread