Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Jonk vom 25.06.2019, 08:28 Options
Schließen Funktion deaktivieren
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
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 vom 25.06.2019, 08:32 Options
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 vom 25.06.2019, 09:12 Options
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 vom 25.06.2019, 09:36 Options
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 vom 25.06.2019, 09:52 Options
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 vom 25.06.2019, 09:56 Options
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 vom 25.06.2019, 10:01 Options
Super, jetzt läufts einwandfrei und genauso wie ich wollte.
Danke für die Hilfe,
Gruß Jonk
Danke für die Hilfe,
Gruß Jonk
Ähnliche Themen
Deaktivieren der MS-DOS-USB-Funktion in BIOS
susiundrico 19.01.2008 - 29 Hits -
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
