before Close - Modulaufruf | HERBERS Excel Forum

guten morgen zusammen
ob ich das jeh kapiere ?
also ich habe in ner mappe ein tabelle: Sheets("sp-ti")
und einen commandbutton1, welcher nach bedingungen sichtbar oder unsichtbar ist.
genau dann(wennunsichtbar), soll verhindert werden dass die mappe gespeichert wird.
dazu habe ich dann mal was gebastelt:


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
If Sheets("sp-ti").CommandButton1.Visible = True Then
UserForm4.Show
Cancel = True
Exit Sub
End If
If Sheets("sp-ti").CommandButton1.Visible = False Then
frage = MsgBox("willst du schliessen?", vbYesNo)
If frage = vbYes Then
Application.Quit
Else
Cancel = True
Exit Sub
End If
End If
End Sub

genial: das ding funktioniert. die mappe schliesst fragt nicht nach und speichert nicht.
so nun wollte ich das mit einem Modul machen:


Private Sub Workbook_BeforeClose(Cancel As Boolean)
schliessen_ohne_speichern.schliessen
End Sub

Sub schliessen()
Application.DisplayAlerts = False
If Sheets("sp-ti").CommandButton1.Visible = True Then
UserForm4.Show
Cancel = True
Exit Sub
End If
If Sheets("sp-ti").CommandButton1.Visible = False Then
frage = MsgBox("willst du schliessen?", vbYesNo)
If frage = vbYes Then
Application.Quit
Else
Cancel = True
Exit Sub
End If
End If
End Sub
nun kommt aber wieder der dialog Speichern -Ja- Nein- Abbrechen
diesen habe ich aber mit Application.DisplayAlerts = False verhindert ?
was habe ich da mal wieder nicht kapiert?
danke wenn mir da jemand Rat weiss
grüsse
roland_k

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hallo franz,
der tip ist grundlegend gut, aber hier ist ein anderes Problem:
der code funtioniert wie beschrieben aber nicht wenn ich das mit einem Modul mache.
frage eben warum das nicht geht. (siehe fragestellung:)
wenn ich das mit dem modul mache kommt eben wieder die meldung von excel ....(speichern)
habe ich den code im before close ereigniss stehn dann funkts das.
wenn ich das so mache wie du das angebgeben hast kommt folgendes.####################
die msgbox erscheint zweimal....hmmm#################################################
die mappe wird geschlossen aber nicht excel......####################################
zur erläuterung:
ich oeffne meine mappe und schalte per makro die symbolleisten aus.
nun kann man eingaben machen...........wenn alle bedingungen erfüllt sind wird der commandbutton1 sichtbar. das schliessen über das kreuz ist nicht möglich, nur mit betätigen des commandbutton1
wenn der anwender aber eingabben macht und aus irgendwelchen gründen beenden will so soll
excel geschlossen werden wenn er bei der msgbox mit ja bestätigt.
dann wird die mappe ohne speichern geschlossen und excel beendet.
keine ahnung was da passiert
ich will einfach excel beenden ohne dass die active mappe gespeichert wird
es ist aber nur das kreuz von excel sichtbar........nicht das kreuz der mappe, weil die symbolleisten ausgeschaltet sind.
gruss roland_k

Private Sub Workbook_BeforeClose(Cancel As Boolean) schliessen_ohne_speichern.schliessen Cancel = NichtBeenden End Sub Im Modul: Public NichtBeenden As Boolean Sub schliessen() Application.DisplayAlerts = False If Sheets("sp-ti").CommandButton1.Visible = True Then UserForm4.Show NichtBeenden = True Cancel = True 'evtl nicht mehr erforderlich Exit Sub End If If Sheets("sp-ti").CommandButton1.Visible = False Then frage = MsgBox("willst du schliessen?", vbYesNo) If frage = vbYes Then NichtBeenden = False Application.Quit Else Cancel = True 'evtl nicht mehr erforderlich NichtBeenden = True Exit Sub End If End If End Sub

Beliebteste Forumthreads (12 Monate)

before Close - Modulaufruf

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

before Close - Modulaufruf

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread