Per Makro- VBA Excel Schließen

Question

Hallo alle zusammen,

Ich würde gerne das Schließen einer Excel Datei per VBA-Click Feld machen
und das Schließen per Rotes-Kreuz oben rechts deaktivieren und ein Infobox soll darauf hinweisen das das nur über den Click-Feld geschlossen werden kann.

Hat da vieleicht einer eine Lösung die ich mir in meiner Datei einbauen kann ???

Danke in voraus
Dutchi1972

Answer 1

Hallo,

ich vermute nur für eine Datwei?
Unter Dieser Arbeitsmappe.

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Bozu = False Then Cancel = True
End Sub

in einem Modul

Option Explicit
Public Bozu As Boolean

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

Gruß hajo

Answer 2

Perfekt - super , hat sofort funktioniert, ohne ruckeln !!!!

Besten Dank.

Gruß Dutchi

Answer 3

Hallo,

Du wolltest noch eine Meldung.

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Bozu = False Then
Cancel = True
MsgBox "Bitte benutzen Sie den Schliessen Button"
End If
End Sub

Gruß Hajo

Answer 4

Hallo Hajo,

Ich war ja schon froh das ich so schnell eine Antwort bekommen habe und das es funktionierte,
natürlich bin ich noch glücklicher das du mir auch noch eine Infofeld geschickt hast. EInfach super,
Vielen Danke nochmal.

Gruß Dutchi