Office: (Office 365) Excel per Button Speichern und Schliessen und "X - Button" deaktivieren

Guten Morgen zusammen,

ich suche nach einem VBA-Code (unter Office 365), um das Schließen einer Excel-Datei über das "Rote X" oben rechts zum Einen zu verhindern und statt dessen zum Anderen den das Speicher und Schliessen über einen Button zu ermöglichen.

Meine Versuche dies mit dem Code der nachfolgenden Seite zu vollziehen hat leider nicht funktioniert.

Per Makro- VBA Excel Schließen - Supportnet Forum

Danke für Deine Antwort im Voraus.
Jens

 

Moin!
Mal Klartext, was willst Du wirklich?
Verhindern, dass eine Datei ohne zu speichern geschlossen wird?
Dann prüfe die .Saved-Eigenschaft der Datei.

Gruß Ralf

 

Guten Morgen Ralf,

ja genau das ist der Plan.
Das Speichern soll beim Klick auf den Button erfolgen bevor die Datei geschlossen wird.

 

Moin Jens

Platt gesagt: Du willst einen Knopf durch einen anderen Knopf ersetzen.
Macht Sinn.

 

Hier mal der Button-Code:

Sub SpeichernUndSchliessen()
AllowClose = True

Dim wb As Workbook
Dim wbCount As Integer

' Speichere die aktuelle Arbeitsmappe
ThisWorkbook.Save

' Anzahl der geöffneten Arbeitsmappen zählen
wbCount = Application.Workbooks.Count

' Schließe die aktuelle Arbeitsmappe
Set wb = ThisWorkbook
wb.Close SaveChanges:=True

' Überprüfe, ob andere Arbeitsmappen geöffnet sind
If wbCount = 1 Then
Application.Quit
End If
End Sub



Und hier der Code für die Arbeitsmappe:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not AllowClose Then
MsgBox "Das Schließen dieser Datei ist nicht erlaubt.", vbCritical
Cancel = True
End If

 

Beim Klick auf's "X" kann man einfach Speichern = NEIN auswählen ... und genau DAS will ich NICHT.

 

Du hast meine Antwort gelesen (und verstanden)?
Jedenfalls sehe ich keinen Versuch.

Gruß Ralf

 

Liegt die Datei auf Onedrive oder Sharepoint?
Dann einfach "Automatisch speichern" aktivieren.

 

Nein die Datei liegt lokal.

Oh das waren die Codes aus einer alten Arbeitsmappe.
Hier nun die richtigen:

Hier mal der Button-Code:
Sub SpeichernUndSchliessen()
Dim Bozu As Boolean
Dim ws As Worksheet
Bozu = True ' Hier auf True setzen, wenn das Schließen erlaubt ist

' Überprüfe, ob die Bedingung für Bozu erfüllt ist
If Bozu = True Then
' Speichern der aktuellen Datei
ThisWorkbook.Save

' Schließen der aktuellen Arbeitsmappe ohne weitere Änderungen zu speichern
ThisWorkbook.Close SaveChanges:=False

' Überprüfen, ob noch andere Arbeitsmappen in dieser Excel-Instanz geöffnet sind
If Application.Workbooks.Count = 0 Then
' Wenn keine weiteren Arbeitsmappen geöffnet sind, Excel schließen
Application.Quit
End If
Else
' Optional: Wenn Bozu = False, zeige eine Nachricht, dass Schließen nicht möglich ist
MsgBox "Das Schließen der Datei ist momentan nicht möglich, da die Bedingungen für 'Bozu' nicht erfüllt sind.", vbCritical, "Fehler"
End If
End Sub



Und hier der Code für die Arbeitsmappe:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim Bozu As Boolean
Dim ws As Worksheet
Bozu = False

' Überprüfe, ob die Bedingung für Bozu erfüllt ist
If Bozu = False Then
' Verhindert das Schließen der Datei über das rote X oben rechts
Cancel = True
MsgBox "Beenden nur per Button 'Speichern und schließen' möglich.", _
vbCritical, "Schließen der Datei hier NICHT möglich!"
End If
End Sub


Modul 1
Option Explicit
Public Bozu As Boolean

Sub schliessen()
Bozu = True
ThisWorkbook.Close
End Sub

 

Beim Klick auf den Button erscheint die MsgBox der Arbeitsmappe.

 

Du brauchst doch lediglich (als alleinigen Code)

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With ThisWorkbook
    If Not .Saved Then .Save
End With
End Sub

Dass hier eine große Gefahr besteht, auch völlig unnötige Änderungen ohne Nachfrage zu speichern, wirst Du ja wissen.
Insofern halte ich dies für eine Schnapsidee.
"Unmündige" Benutzer sollte man schulen, nicht gängeln!

Gruß Ralf

 

Ok das ist natürlich auch eine Möglichkeit, DANKE dafür.
Die Datei wird nun gespeichert und geschlossen.

Woran kann es aber noch liegen, dass sich nach dem Schliessen der Datei mit:

If Application.Workbooks.Count = 0 Then
Application.Quit

... Excel (ohne leere Arbeitsmappe) wieder öffnet, obwohl keine andere Arbeitsmappe geöffnet ist ?

 

Hat es ggf. etwas damit zu tun, weil ich unter "Öffnen" nachfolgendes stehen habe ?


Private Sub Workbook_Open()

Worksheets("Eingabe").Activate
With ThisWorkbook
Application.DisplayFullScreen = False
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayFormulaBar = False
End With
ActiveWindow.WindowState = xlNormal
With ActiveWindow
.Top = 10
.Left = 10

Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", False)"
Application.DisplayFormulaBar = False 'Formelleiste / Bearbeitungsleiste NICHT anzeigen