Office: (Office 2010) Makro vor dem Schließen einer Excel Datei

Hi,

ich bräuchte mal den Code für das Makro für eine Msgbox.
Wir haben nämlich immer mal wieder Praktikaten die vor dem schließen der Datein vergessen bestimmte Dinge zu aktivieren oder zu speichern.
Daher wäre es gut wenn sich wenn man auf X zu schließen klickt eine Box erscheint.
In der halt der Hinweis steht. 'Haben Sie das Dokument aktiviert' (oder sowas ähnliches)
Wäre nett wenn mir dafür einer den Code geben könnte.

 

Hallo,

nachfolgender VBA-Code muss in das Codemodul der Arbeitsmappe einer Excel-Datei gespeichert/kopiert werden, also in "DieseArbeitsmappe" oder englisch "ThisWorkbook":

Code:

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Dim Antwort As VBA.VbMsgBoxResult
  Antwort = MsgBox(Prompt:="Haben Sie das Dokument aktiviert?", Buttons:=vbQuestion + vbYesNo, Title:="Abschließende Arbeiten")
  Cancel = Antwort = vbNo
End Sub

Sobald auf den Systembutton "X" zum Schließen der Excel-Arbeitsmappe geklickt wird (in der rechten oberen Ecke des Excel-Fensters), erscheint eine Messagebox mit dem Titel "Abschließende Arbeiten" und der Frage "Haben Sie das Dokument aktiviert?".
Klickt man dann auf Button "Nein", wird die Messagebox wieder geschlossen und die Excel-Arbeitsmappe bleibt unverändert geöffnet.
Klickt man jedoch auf Button "Ja", wird die Messagebox geschlossen. Wurde die Arbeitsmappe seit der letzten Speicherung geändert, erscheint normalerweise wie gewohnt die Frage, ob man die Änderungen an der Arbeitsmappe speichern will (mit den 3 Buttons "Speichern", "Nicht Speichern", "Abbrechen").

 

Super Danke, probiere ich morgen im Büro dann aus.