ich hatte heute mittag ein problem dass ich durchs forum lösen wollte. leider störte mich mein chef beim weiterkommunizieren und nun sind die beiden die mir so gut geholfen haben leider nicht mehr online oder sehen meine neuen hilferufe nicht mehr. aber das problem besteht immer noch. also wer mir helfen kann, bitte tut dieses!!!!
zum verständnis folgt nun die ausgangsfrage und die letzte antwort.
wenn ich in einer datei etwas eingegeben habe, will ich das verlassen dieser datei nur über einen commanbutton zulassen der diese speichert und schließt. jetzt gibt es ja viele möglichkeiten eine datei zu schließen (oben rechts X oder beenden in Datei der menüleiste). nach einem tipp versuchte ich es mit der auto_close funktion in dem modul-verzeichnis der datei. nun kommt auch jedesmal die msgbox das man nur über diesen knopf beenden soll, doch beim ok drücken dieser meldung schließt sie trotzdem!!! wie bekomme ich das hin, dass egal welchen weg ich zum schließen benutze die meldung kommt und anschließend ich wieder in der datei bin, ohne das sie geschlossen wird?
hier der bisherige code im modul-verzeichnis der datei:
sub auto_close()
MsgBox("BITTE VERLASSEN SIE DIE TABELLE ÜBER DEN ......")
End sub
dies war meine erste frage, es folgten mehrere antworten. es klappte ganz gut, bis auf das ich jetzt die datei gar nicht mehr zu kriege. X, "Datei" - "Schliessen", Alt F4 aber auch mein CommandButton können nicht mehr zum verlassen der datei benutzt werden. der letzte code der kam lautete:
In DieseArbeitsmappe:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If bolClose = False Then
MsgBox ("Bitte über den Button schließen")
Cancel = True
End If
End Sub
In ein Modul:
Public bolClose As Boolean
Sub Schliessen()
bolClose = True
ActiveWorkbook.Save
ActiveWorkbook.Close
bolClose = False
End Sub
doch leider klappt das auch nicht, (es wurde true mit false gewechselt!) tja und nun ?!?!?!?!
wer den gesmaten verlauf lesen möchte, der kann ab 6.2.03 12.17Uhr mal reinschauen. vielen dank im voraus..