Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1260to1264
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
1260to1264
1260to1264
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Workbook_BeforeClose

Workbook_BeforeClose
Benedikt
Guten Abend zusammen.
Mein Arbeitsblatt durchläuft beim schliessen nachfolgenden Code und läuft einwandfrei: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Run "PDFspeichern"
ThisWorkbook.Close True
End Sub
Da die Datei von mehreren Usern benutzt wird, bleibt Sie leider immer wieder schreibgeschützt offen stehen und der User ist in einer Sitzung. Arbeitsmappe freigeben haut auch nicht, da mit Objekten gearbeitet wird. Auf der Suche nach einer "schliessen bei nichtgebrauch" habe nachfolgenden Code gefunden. Haut eigentlich Tip Top hin.
in dieser Mappe
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Zurücksetzen
End Sub


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
startzeit
End Sub
in Modul
Option Explicit
Dim datA As Date
Sub startzeit()
On Error Resume Next
Application.OnTime EarliestTime:=datA, Procedure:="Schließen", Schedule:=False
datA = Now + CDate("0:10:00")
Application.OnTime datA, "Schließen"
End Sub
Sub Schließen()
ThisWorkbook.Close True
End Sub
Sub Zurücksetzen()
Application.OnTime EarliestTime:=datA, Procedure:="Schließen", Schedule:=False
End Sub
Wie muss ich den Code ändern damit das "Zurücksetzen und Schliessen" im Workbook_BeforeClose stattfindet?
Vielen Dank für eure Hilfe

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Workbook_BeforeClose
30.04.2012 09:32:43
Tino
Hallo,
ich hätte es so versucht.
kommt als Code in DieseArbeitsmappe 
Option Explicit 
 
Private Sub Workbook_BeforeClose(Cancel As Boolean) 
If nRunTime > 0 Then Call Schließen(True) 
End Sub 
 
Private Sub Workbook_Open() 
Call StartTimer 
End Sub
kommt als Code in Modul1 
Option Explicit 
 
Public nRunTime As Date 
 
Sub StartTimer() 
nRunTime = Now + TimeSerial(0, 10, 0) 
Application.OnTime EarliestTime:=nRunTime, Procedure:="Schließen" 
End Sub 
 
Sub StopTimer() 
On Error Resume Next 
Application.OnTime EarliestTime:=nRunTime, Procedure:="Schließen", Schedule:=False 
End Sub 
 
Sub Schließen(Optional booCloseMode As Boolean = False) 
Dim oWB As Workbook, i% 
 
Call StopTimer 
nRunTime = 0 
 
For Each oWB In Workbooks 
    If UCase(oWB.Name) <> "PERSONAL.XLS" And UCase(oWB.Name) <> "PERSONAL.XLSB" Then 
        i = i + 1 
    End If 
Next oWB 
 
If Not ThisWorkbook.ReadOnly Then 
    Application.Run "PDFspeichern" 
    ThisWorkbook.Save 
    If Not booCloseMode Then 
        If i = 1 Then 
            Application.EnableEvents = False 
            Application.Quit 
        Else 
            ThisWorkbook.Close 
        End If 
    End If 
End If 
 
End Sub
Gruß Tino
Anzeige
Vielen Dank - kleine Rückfrage
30.04.2012 10:02:22
Benedikt
Hallo Tino - von wegen VBA bescheiden!!!!
Die Sache läuft einwandfrei. PDF Speichern bei direktem schliessen der Datei wie auch wenn automatisch geschlossen wird. Vielen Dank
Kleine Frage: wofür ist der Stop Timer ?
Call StopTimer
nRunTime = 0
AW: Vielen Dank - kleine Rückfrage
30.04.2012 10:14:05
Tino
Hallo,
man sollte den Timer beim schließen der Datei zurücksetzen,
vor allem wenn die Application offen bleibt.
Gruß Tino

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

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
2
4
6
2
2
5
7
2
4
3
5
3
4
4
3