Office: (Office 2019) EXCEL Datei schließen

Hallo zusammen. Wenn ich mit einem VBA Code:

PHP:

Private Sub CommandButton1_Click()

  Dim WSh As Worksheet
  Dim sMailtext As String
  Dim sBer As String

  Set WSh = ThisWorkbook.Sheets("Info")                ' Blatt mit Maildaten
  sBer = "A1:G90"  '  & WSh.Cells(Rows.Count, "B").End(xlUp).Row  ' Kopierbereich

  WSh.Range(sBer).Copy                                      ' Bereich kopieren

  With CreateObject("Outlook.Application").CreateItem(0)
      .BodyFormat = 2                                       ' 2=HTML-Format, 3=Richtext
      .Subject = "Änderungen" '  & WSh.Range("G7")            ' Betreff
      .To = "XXXXXXXXX@t-online.de"                         ' Empfänger
      '  .CC = "YYYYYYYYY@t-online.de"                      ' Info- Empfänger
      sMailtext = "Aktueller Änderungsumfang"       ' Mailbodytext
     '  sMailtext = Replace(sMailtext, "¶", vbLf)             ' Umbrüche einfügen
      .GetInspector                                         ' Signatur holen
      .htmlbody = Replace(sMailtext, vbLf, "<br>") & .htmlbody

        .Display  ' Auf dem Display anzeigen

      With .GetInspector.WordEditor.Application.Selection
          .Start = Len(sMailtext):   .Paste                 ' Grafik in Mail einfügen
      End With
      .send
  End With
 
            Worksheets("ArbTab").Visible = True
             Worksheets("PLZ").Visible = True
            
            
    For Each WSh In Application.Workbooks
    Next


' Ab hier "Die Datei wird automatisch beendet

Application.DisplayAlerts = False  ' Alle Meldungen ausschalten
Workbooks("2_Quartal_2023.xlsm").Close SaveChanges:=True
Application.DisplayAlerts = True  ' Nach dem Speichern alle Meldungen wieder einschalten

Application.Quit


End Sub


das Beenden eine Datei auslöse funktioniert das korrekt.

Wenn ich dan noch den Code:

Code:

  Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)

MsgBox "Kann nur über Arbeit beenden geschlossen werden"

Cancel = True
End Sub

in diese Arbeitsmappe einfüge damit nicht mit "X" die datei geschlossen werden kann wird mit dem CommandButton 1 die Datei nicht mehr geschlossen.
Aber wenn ich das laufen lasse "Private Sub CommandButton1_Click()" kommt Laufzeitfehler 13 (Typenunverträglichkeit als Fehlermeldung) von Zeile 40 bzw. 41 aus Code #1

Die Datei wird damit nicht mehr geschlossen.
Weis hierfür jemand einen Rat?

 

Hallo,

die Sub Workbook_BeforeClose(Cancel As Boolean) ist ja doch nicht eine x-beliebige Sub, das ist ja doch eine Callback-Routine für das Excel-Arbeitsmappen-Ereignis BeforeClose. Dieses tritt stets ein, bevor eine Arbeitsmappe geschlossen wird.

Die Cancel-Variable dient zu Folgendem: Falls sie den Wert "False" hat, zeigt das an, dass nach dem Verlassen dieser Sub die Arbeitsmappe tatsächlich geschlossen wird. Hat aber die Cancel-Variable nach dem Verlassen dieser Sub den Wert "True", wird das Schließen der Arbeitsmappe nicht ausgeführt. Dieser Mechanismus wird ausgeführt, egal durch was versucht wird, die Arbeitsmappe zu schließen. Sobald Cancel nach dem Ausführen von BeforeClose den Wert "True" hat, gibt es kein Schließen der Arbeitsmappe mehr.

Falls du irgendwo einen Button "Arbeit beenden" hast und diesen anklicken willst, um die Arbeitsmappe zu schließen, so wird dieser Button die Arbeit verweigern, weil nämlich Cancel=True nach dem Verlassen von Workbook_BeforeClose seine Arbeit systematisch sabotieren wird.

Wenn du haben möchtest, dass nicht jeder auf das "x" in der rechten oberen Fensterecke drauflatschen kann, sondern stets der Button "Arbeit beenden" geklickt werden muss, musst du diese unterschiedlichen Verhältnisse in der Sub Workbook_BeforeClose berücksichtigen, sodass im Fall des Button-Klickens Cancel auf False gesetzt wird und im Fall des "x"-Klickens Cancel auf True gestellt wird.

Hat Cancel nach Ausführen von Workbook_BeforeClose den Wert True und soll dann folgende Anweisung ausgeführt werden:
Workbooks("2_Quartal_2023.xlsm").Close SaveChanges:=True
wird es ein Problem geben - ein Fehler wird generiert, denn das Close von "2_Quartal_2023.xlsm" kann nicht ausgeführt werden und ebenso nicht das "SaveChanges", obwohl es durch den VBA-Code verlangt wird.

Du musst für diesen Fall eine Fehlerbehandlung in die Sub Commandbutton1_Click einbauen, zB. wie folgt:
On Error Resume Next
Workbooks("2_Quartal_2023.xlsm").Close SaveChanges:=True
On Error GoTo 0
Die erste der 3 Zeilen bewirkt, dass der Fehlerabbruch-Mechanismus ausgeschaltet/deaktiviert wird.
In Zeile 2 muss dir aber klar sein, dass im Fall von Cancel=True kein "SaveChanges" und kein "Close" ausgeführt wird.
Die dritte der 3 Zeilen bewirkt wieder ein sofortiges Einschalten des Fehlerabbruch-Mechanismus. Diese Abfolge ist unbedingt einzuhalten, denn sonst bist du hinterher total blind, was das Melden/Behandeln von Fehlersituationen anbelangt.

 

Danke für die erschöpfende Antwort, aber die Lösung war es dann doch nicht. Gruß

 

Moin!
Mal nur die Programmlogik:
Du brauchst zunächst mal eine globale Variable vom Typ Boolean.
Diese gehört in ein allgemeine Modul:

Modul Modul1

Option Explicit 
 
Global bCancel As Boolean 

Diese wird im Open von DieseArbeitsmappe gefüllt:

Private Sub Workbook_Open()
bCancel = True
End Sub

Im Close wird jetzt diese Variable ausgewertet.
Klickst Du das Schließen-Kreuz an, wird Cancel = bCancel zugewiesen,
ergibt folglich True,
die MsgBox erscheint
und das Schließen wird abgebrochen:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = bCancel
If Cancel Then
  MsgBox "Datei kann nur über die Schaltfläche geschlossen werden!"
  Exit Sub
End If
End Sub

Hinter dem CommandButton liegt folgender Code:

Microsoft Excel Objekt Tabelle1

Option Explicit 
 
Private Sub CommandButton1_Click() 
bCancel = False 
ThisWorkbook.Close 
End Sub 

Gruß Ralf

 

Hallo, bedanke mich für die Antwort. Stell den Code für "Diese Arbeitsmappe" mal hier ein, so wie ich ihn zusammen- geschrieben habe. Die Zeile Global bCancel....... wird gleich rot markiert, und es erscheint ein Fehlertext "Fehler beim kompilieren....". Habe das auskommentiert, scheint aber ein Muss zu sein, nur weiß ich nicht wie es korrekt eingebaut wird.

Code:

 Option Explicit

'  Global bCancel As Boolean  ' Die Zeile wird in rot markiert und es erscheint ein Fehlertext

Private Sub Workbook_Open()

Dim bcancel As String

bcancel = True

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim bcancel As String

    Cancel = bcancel

        If Cancel Then

  MsgBox "Datei kann nur über die Schaltfläche geschlossen werden!"
 
        Exit Sub
    End If
End Sub

 

Die globale Variable gehört in ein allgemeines Modul!
(Einfügen, Modul)
Hatte ich aber bereits geschrieben.
Ich lade mal meine Übungsdatei hoch.

 

Danke, aber ich will beim Beenden eine E-Mail generieren, die aus einer Tabelle entsprechende Informationen beinhaltet.
Den Code dafür hatte ich zu Anfang mal eingestellt. Vielleicht kann man einen Blick in meine Datei werfen.

 

Ja und?
Du hast doch das Grundgerüst, welches Dein Problem aus der Threaderöffnung löst.
Einfügen wirst Du doch können?
Falls nicht:
Ich sehe es nicht als meine Aufgabe an, Komplettlösungen zu erstellen.
Da dürfen gerne Leute mit Langeweile ran.
Ich wünsche Dir (ehrlich!) viel Erfolg.
Schließlich lernst Du nur durch Eigeninitiative und die dazu gehörigen Erfolgserlebnisse.