Supportnet / Forum / Tabellenkalkulation
Schließen Funktion deaktivieren
Frage
Moin.
Ich nutze Excel aus dem Office 2000 Paket. Nun hab ich eine Arbeitsmappe, die über einen Steuerelement-Button geschlossen werden soll. Es soll keine andere Möglichkeit geben, die Mappe zu schließen. Gibt es ein Makro das die Funktion Rechtsklick schließen im Taskleistenelement sowie den Befehl Alt+F4 außer Kraft setzt?
Danke im Voraus,
Gruß Jonk
Antwort 1 von Hajo_Zi
Hallo Jonk,,
Definiere eine Variable z.B. BoZu die Du in Deinem Makro auf True setzt. Unter DieserArbeitsmappe
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Bozu = False Then Cancel = True
End Sub
Gruß Hajo
Definiere eine Variable z.B. BoZu die Du in Deinem Makro auf True setzt. Unter DieserArbeitsmappe
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Bozu = False Then Cancel = True
End Sub
Gruß Hajo
Antwort 2 von Jonk
Danke für die schnelle Antwort.
Soweit funktioniert das auch. Jedoch wird die Schließen-Funktion der Steuerelement Buttons auch deaktiviert.
Private Sub CommandButton3_Click()
Bozu = False
Application.Quit
End Sub
funktioniert leider nicht mehr.
Hab ich evtl. BoZu falsch deklariert (Dim Bozu As Boolean bei Allgemein Deklarationen), oder hab ich da nen Denkfehler drin?
Gruß Jonk
Soweit funktioniert das auch. Jedoch wird die Schließen-Funktion der Steuerelement Buttons auch deaktiviert.
Private Sub CommandButton3_Click()
Bozu = False
Application.Quit
End Sub
funktioniert leider nicht mehr.
Hab ich evtl. BoZu falsch deklariert (Dim Bozu As Boolean bei Allgemein Deklarationen), oder hab ich da nen Denkfehler drin?
Gruß Jonk
Antwort 3 von Hajo_Zi
Hallo Jonk,
den Unterschied zwischen True und False kennst Du schon?
In meinem Beitrag Stand:
" die Du in Deinem Makro auf True setzt. "
Warum Du die auf False setzt ist mir nicht klar.
Gruß Hjao
den Unterschied zwischen True und False kennst Du schon?
In meinem Beitrag Stand:
" die Du in Deinem Makro auf True setzt. "
Warum Du die auf False setzt ist mir nicht klar.
Gruß Hjao
Antwort 4 von Jonk
Auch mit True erhalte ich leider nicht das gewünschte Ergebnis.
Habe wohl "Cancel" irgendwie verdreht aufgenommen (vielleicht bekommt mir der Montag morgen nicht), daher mein erster Gedanke, dass ich BoZu auf False setzen müsste, macht aber tatsächlich wenig Sinn...
Wie gesagt auch mit True wirds nix, woran könnte es liegen?
Habe wohl "Cancel" irgendwie verdreht aufgenommen (vielleicht bekommt mir der Montag morgen nicht), daher mein erster Gedanke, dass ich BoZu auf False setzen müsste, macht aber tatsächlich wenig Sinn...
Wie gesagt auch mit True wirds nix, woran könnte es liegen?
Antwort 5 von Arno_Nym
In "DieseArbeitsmappe" die Var. so definieren:
In der Tabelle mit dem Button:
Arno
Public Bozu As BooleanIn der Tabelle mit dem Button:
Private Sub CommandButton3_Click()
ActiveWorkbook.Bozu = True
...Arno
Antwort 6 von Jonk
Super, jetzt läufts einwandfrei und genauso wie ich wollte.
Danke für die Hilfe,
Gruß Jonk
Danke für die Hilfe,
Gruß Jonk