Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
688to692
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
688to692
688to692
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

WorkBookBeforeClose

WorkBookBeforeClose
29.10.2005 23:02:18
Mister
Hallo Profis,
ich habe folgendes Problem. Wenn ich auf schliessen gehe (egal ob im Menü oder oben rechts auf X), werden die Eintragungen in "WorkBookBeforeClose" ausgeführt obwohl ich zur Sicherheit bestätigen muss das ich meine Datei wirklich schliessen will. Antworte ich mit "ja" ist alles OK. Antworte ich mit "Nein" ist WorkBookBeforeClose bereits ausgeführt und es gibt kein Zurück mehr!! Gibt es ein Weg WorkBookBeforeClose erst nach dieser Sicherheitsbetätigung ausführen zu lassen?
Danke

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: WorkBookBeforeClose
29.10.2005 23:08:28
Josef
Hallo ?
Z.B. so!
' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If MsgBox("Wirklich Schliessen?", 292, "Frage") <> 6 Then Cancel = True
End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: WorkBookBeforeClose
30.10.2005 10:31:18
Matthias
Hallo B,
Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim aw aw = MsgBox("Sollen Ihre Änderungen in """ & ThisWorkbook.Name & """ gespeichert werden?" _ , vbExclamation + vbYesNoCancel) If aw = vbCancel Then Cancel = True Exit Sub End If If aw = vbNo Then ThisWorkbook.Saved = True 'hier der Code, der wirklich nur beim Schließen ausgeführt werden soll If aw = vbYes Then ThisWorkbook.Save End Sub
Gruß Matthias
AW: WorkBookBeforeClose
30.10.2005 10:48:23
Nepumuk
Hi Matthias,
das geht aber schon noch ein bisschen eleganter :-)
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With ThisWorkbook
        If Not .Saved Then
            Select Case MsgBox("Sollen Ihre Änderungen in ''" & .Name & "''" & _
                        " gespeichert werden?", vbYesNoCancel + vbQuestion, "Abfrage")
                Case vbCancel
                    Cancel = True
                    Exit Sub
                Case vbNo
                    .Saved = True
                Case vbYes
                    .Save
            End Select
        End If
    End With
    'hier der Code, der wirklich nur beim Schließen ausgeführt werden soll
End Sub

Gruß
Nepumuk
Anzeige
AW: WorkBookBeforeClose
30.10.2005 11:24:24
Matthias
Hallo Nepumuk,
Naja, aber wenn der "Code, der wirklich nur beim Schließen ausgeführt werden soll", noch Änderungen an der Mappe vornehmen soll...
Muss der Frage entscheiden.
Sag mal, was ist das für ein Programm, mit dem du den Code einstellst?
Gruß Matthias
AW: WorkBookBeforeClose
30.10.2005 11:40:18
Nepumuk
Hi Matthias,
dei Codedarstellung geschieht mit einer DLL von Peter Haserodt und ein Addin von mir. Ich markiere nur den Code und klick auf einen Commandbarbutton im VBA - Editor. Schon ist er formatiert in der Zwischenablage. Lässt auch ein bisschen spielen zu :-)
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With ThisWorkbook
        If Not .Saved Then
            Select Case MsgBox("Sollen Ihre Änderungen in ''" & .Name & "''" & _
                        " gespeichert werden?", vbYesNoCancel + vbQuestion, "Abfrage")
                Case vbCancel
                    Cancel = True
                    Exit Sub
                Case vbNo
                    .Saved = True
                Case vbYes
                    .Save
            End Select
        End If
    End With
    'hier der Code, der wirklich nur beim Schließen ausgeführt werden soll
End Sub


Gruß

Nepumuk
Anzeige
AW: WorkBookBeforeClose
30.10.2005 11:54:33
Matthias
Hallo Nepumuk,
und gibt's sowas in er Art auch als Freeware zum Download?
Ich weiß, ich könnte googlen, aber wenn du schon mal da bist...
Gruß Matthias
AW: WorkBookBeforeClose
30.10.2005 12:08:44
Nepumuk
Hi Matthias,
da kannst du lange googeln, das findest du nicht. Das Problem momentan ist einfach dieses. Peter verkauft immer noch die Excelcode - Jeanie. Die wird aber, von den allermeisten, nur für die Codedarstellung in Foren verwendet und nicht für die Verwaltung von Code, für die sie eigentlich vorgesehen ist. Das Umsetzen in HTML ist eigentlich ein Abfallprodukt. Wenn wir die DLL und das Addin verschenken, dann verärgern wir natürlich die, welche für die Excelcode - Jeanie bezahlt haben. Um die DLL und das Addin aber soweit zu schützen, das es nicht ohne weiteres kopiert werden kann, ist aber nochmal ein ziemlicher Aufwand notwendig (steckt jetzt schon ~ 1 Jahr Arbeit drin).
Hast du eine Lösung für das Dilemma?
Gruß
Nepumuk
Anzeige
AW: WorkBookBeforeClose
30.10.2005 12:28:54
Matthias
Hallo Nepumuk,
meine persönliche Lösung, die euch sicher nicht weiterhilft:
Private Sub ComboBox1_Change()
Dim arr As Variant
arr = Sheets(1).Range("b" & ComboBox1.ListIndex + 1 & ":k" & ComboBox1.ListIndex + 1)
ComboBox2.Column = arr
End Sub
;-)
Gruß Matthias
Anzeige
AW: WorkBookBeforeClose
30.10.2005 10:36:34
Mister
Hat leider nichts gebracht. Egal ob ich die Frage mit ja oder nein beantworte, WorkBookBeforeClose wird trotzdem ausgeführt!

85 Forumthreads zu ähnlichen Themen

Probleme mit Add In Subs bei Workbook_BeforeClose
Lou

Hallo Gemeinde,
bin neu hier, also erstmal Hallo! an alle.
Ich kämpfe im Moment mit folgendem Problem und finde keine Lösung:
Ich habe viele benutzdefinierte Funktionen und Prozeduren als EXCEL AddIn gespeichert. Die Benutzung aus geöffneten EXCEL-workbooks funktioniert auch wunderb...
15.08.2008 00:53:00
Thread-ID: 1002006
5 Beiträge
Anzeige
WorkBook_BeforeClose
Daniel

Hallo,
ich habe eine CheckBox in meiner Datei, die ich gerne beim Schließen
der Datei auf False setzen möcht, sodass sich das Häkchen entfernt.
Wie geht das? Hier mein erfolgloser Versuch:
Private Sub WorkBook_BeforeClose(Cancel As Boolean) CheckBox1 = False End Sub
grüße...
27.04.2009 15:13:02
Thread-ID: 1071394
10 Beiträge
Workbook before close
Kirsche

hallo leute,
nachdem ich den ganzen tage recherchiert habe und nicht wirklich weiter gekommen bin, baue ich auf eure hilfe.
ich habe eine datei, welche beim schließen auf die tabelle "Start" zurück springen soll, dann soll in der tabelle "Start" in H65535, C25, C26 der wert gelöscht wer...
22.11.2009 19:14:02
Thread-ID: 1119253
13 Beiträge
Anzeige
Workbook_BeforeClose
AgeO

Hallo, liebe Excel-Freunde.
Ich habe bitte folgendes Problem und bitte um eure Hilfe.
Ich habe unter ’DieseArbeitsmappe’ folgenden Code: Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Close savechanges:=False 'oder auch ThisWorkbook.Close savechanges:=False End S...
30.06.2010 12:27:13
Thread-ID: 1164685
3 Beiträge
Unterbinden von WorkbookBeforeClose
Andreas X

Ich suche einen VBA-Befehl, mit dem ich bewirken kann, dass das WorkbookBeforeClose-Makro beim Schließen der Datei NICHT gestartet wird. Gibt es sowas?Mit Dank im Voraus,
Andreas
30.04.2002 14:38:41
Thread-ID: 117479
3 Beiträge
Problem mit "Workbook_BeforeClose"
Harald

Hallo zusammen,
weiß jemand warum der folgende Code zum Öffnen einer bestimmten Datei im
Private Sub Workbook_BeforeClose(Cancel As Boolean) Workbooks.Open Filename:="C:\Test\TESTDATEI.xls", UpdateLinks:=3 End Sub nicht funktioniert?
Gruß, Harald
20.01.2011 20:14:37
Thread-ID: 1196615
11 Beiträge
Private Sub Workbook_BeforeClose
Scot

Liebe Leute
Ich hab mal wieder ein kleines Problem. Folgendes habe ich in "DieseArbeitsmappe" geschrieben:
Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.ScreenUpdating = False Application.MoveAfterReturnDirection = xlDown Application.CommandBars("Standard").Visible =...
22.09.2011 13:56:18
Thread-ID: 1231079
11 Beiträge
Überblick: Workbook_/Auto_Close/BeforeClose
Andreas X

Hilfe Hilfe,
kann mir jemand mal einen Überblick geben über die VBA-Befehle:a) Workbook Close
b) Workbook BeforeClosec) Auto Close
d) Auto BeforeClose1. Was sind die Unterschiede in der Anwendung und Wirkung?
2. Muss ich die in VBA in die "Arbeitsmappe" setzen oder in ein Modul?
...
07.06.2002 19:26:23
Thread-ID: 126984
2 Beiträge

Links zu Excel-Dialogen

ComboBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
15
9
12
1
2
2
10
10
1
3
2
4
6
2
2
5
7
2
4
3
5
3
4
4