Schliesskreuz sperren

Forumthread: Schliesskreuz sperren
7 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Schliesskreuz sperren

04.03.2009 21:08:17

Tim

Hallo
Wie kann ich das Schliesskreuz sperren für alle Tabellen?
Danke für Eure hilfe
Gruß
Tim

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Schliesskreuz sperren

04.03.2009 21:29:53

Heinz
AW: Schliesskreuz sperren

04.03.2009 21:42:20

Tim
Einfach nur Msgbox! ohne IF (owT)

04.03.2009 21:44:13

Renee
AW: Einfach nur Msgbox! ohne IF (owT)

04.03.2009 21:49:17

Tim
AW: Schliesskreuz sperren

04.03.2009 22:13:16

Tim
Name testen nicht .Activate!

04.03.2009 22:20:48

Renee
AW: Name testen nicht .Activate!

04.03.2009 22:39:57

Tim

AW: Schliesskreuz sperren

04.03.2009 21:29:53

Heinz

Hi,
in Workbook:Before_Close cancel auf True setzen.
mfg Heinz

AW: Schliesskreuz sperren

04.03.2009 21:42:20

Tim

Hallo Heinz
Es funktioniert.
Ist es möglich noch eine Msgbox zu integrieren, die eine Meldung gibt "hier kann nicht geschlossen werden.
Geht das mit
If Cancel=true then
msgbox....
Gruß
Tim

Einfach nur Msgbox! ohne IF (owT)

04.03.2009 21:44:13

Renee

AW: Einfach nur Msgbox! ohne IF (owT)

04.03.2009 21:49:17

Tim

Hallo Renee
Danke! Toll es klappt.
Nochmals Danke
Gruß
Tim

AW: Schliesskreuz sperren

04.03.2009 22:13:16

Tim

Hallo
Habe mich zu früh gefreut. Ich wollte, daß die Datei nur über das Kreuz geschlossen wird, wenn das Blatt Hauptmenu aktiviert ist.
Geht aber nicht.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Worksheets("Haupmenu").Activate Then
Cancel = False
Else
Cancel = True
MsgBox "Die Datei kann nur über das Hauptmenu geschlossen werden!"
End If
Gruß
Tim

Name testen nicht .Activate!

04.03.2009 22:20:48

Renee

Hi Tim,


Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not (ActiveSheet.Name = "Hauptmenu") Then
Cancel = True
MsgBox "Die Datei kann nur über das Hauptmenu geschlossen werden!"
End If
End Sub

GreetZ Renée

AW: Name testen nicht .Activate!

04.03.2009 22:39:57

Tim

Hallo Renèe
Jetzt klappt es bestens.
Danke vielmal
Gruß
Tim

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!