Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

EXCEL nach Zeitablauf automatisch beenden..?!?

Forumthread: EXCEL nach Zeitablauf automatisch beenden..?!?

EXCEL nach Zeitablauf automatisch beenden..?!?
04.12.2002 21:29:37
Sascha
Hallo!

Gibt es eine Möglichkeit, die Excel nach ablauf einer bestimmten Zeit in der excel nicht benutzt wurde, veranlasst automatisch zu speichern und zu beenden?

Besten Dank für eure Hilfe!

Sascha

Anzeige

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: EXCEL nach Zeitablauf automatisch beenden..?!?
04.12.2002 23:57:39
Nepumuk
Hallo Sascha,
klar geht das. Ist nur die Frage, was macht der User üblicherweise in der Mappe. Denn davon hängt es ab, mit welcher Aktion man das hinausschieben des Zeitpunktes zum schliessen der Mappe verbindet.
Gruß
Nepumuk
Re: EXCEL nach Zeitablauf automatisch beenden..?!?
05.12.2002 08:15:32
Sascha
rehi Nepumuk

Also es ist eine Materialbestellliste, auf die von mehreren Workstations im Netzwerk zugegriffen wird... Und leider gibts leute die diese liste dann icht mehr schliessen.. Es sind also nur Eingaben... Und sobald zbs. 1 Minute nichts mehr verändert wurde, sprich nichts geschrieben, sollte Excel speichern und schliessen!

Thanx!

Anzeige
Re: EXCEL nach Zeitablauf automatisch beenden..?!?
05.12.2002 08:55:55
geri
Füge dies ein in deine Mappe Alt+F11

in diese Arbeitsmappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Zurücksetzen
End Sub

Private Sub Workbook_Open()
startzeit
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
startzeit
End Sub

in ein 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:08:0")
Application.OnTime datA, "Schließen"
End Sub

Sub Schließen()
ActiveWorkbook.Close True

End Sub

Sub Zurücksetzen()
Application.OnTime EarliestTime:=datA, Procedure:="Schließen", Schedule:=False

End Sub

gruss geri

Anzeige
Re: EXCEL nach Zeitablauf automatisch beenden..?!?
05.12.2002 08:57:15
geri
habe noch etwas vergessen

Mappe speichern --> schliessen --> und neu öffnen

gruss geri

Re: EXCEL nach Zeitablauf automatisch beenden..?!?
05.12.2002 09:42:24
Nepumuk
Morgen Sascha,

1. In das Klassenmodul "Diese Arbeitsmappe"

Option Explicit
Private Sub Workbook_Open()
einschalten
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ausschalten
End Sub

2. In das Klassenmodul des Tabellenblattes

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
ausschalten
einschalten
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ausschalten
einschalten
End Sub

3. In ein normales Modul

Option Explicit
Public beenden As Date
Public Sub einschalten()
beenden = Time + TimeSerial(0, 1, 0)
Application.OnTime beenden, "Ende"
End Sub
Public Sub ausschalten()
On Error Resume Next
Application.OnTime beenden, "Ende", , False
End Sub
Public Sub Ende()
ThisWorkbook.Save
If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End Sub

Am besten ist es die Makros digital zu signieren, dann kommt beim öffnen der Mappe die Abfrage, ob die Makros aktiviert weren sollen, nicht.
Gruß
Nepumuk

Anzeige
Re: EXCEL nach Zeitablauf automatisch beenden..?!?
05.12.2002 10:05:11
Sascha
Hi Nepumuk und all die anderen!

Besten Dank für eure überaus grosszügige Hilfe!!

Noch eine Frage.. wie geht das mit der Digitalen Signatur (Sorry, bin halt schon ein Newbie..)? Habe zwar ein Auswahlfenster gefunden, jedoch nichts zum auswählen?!?

Gruss

Sascha

Re: EXCEL nach Zeitablauf automatisch beenden..?!?
05.12.2002 10:22:29
geri
gehe auf Suchmaschine --> Signatur Excel dort findest du Anleitungen

gruss geri

Anzeige
Re: EXCEL nach Zeitablauf automatisch beenden..?!?
05.12.2002 10:23:58
Nepumuk
Hallo Sascha,
im Ordner C:\Programme\Microsoft Office\Office oder auf der CD1 von Office findes du ein Programm mit Name "SELFCERT.EXE". Diese Programm starten und nach Aufforderung deinen Namen eingeben. Damit hast du ein digitales Zertifikat. Wenn du dann im VBA-Editor das Auswahlfenster öffnest, dann findes du es wieder. Löschen kannst du es in den Internetoptionen - Inhalte.
Gruß
Nepumuk
Anzeige
Re: EXCEL nach Zeitablauf automatisch beenden..?!?
05.12.2002 11:11:36
Sascha
Salü nochmals!

Ich habe jetzt gemerkt, dass Excel schliesst, auch wenn ich noch am schreiben bin! Wird zwar sauber gespeichert, jedoch ist das schon ein wenig umständlich, wenn einem die bestelliste plötzlich vor den augen verschwindet...?!? Lösungen?

Sascha

Re: EXCEL nach Zeitablauf automatisch beenden..?!?
05.12.2002 11:30:39
Nepumuk
Hallo Sascha,
auf wie viele Minuten ist der Timer momentan eingestellt?
Gruß
Nepumuk
Anzeige
Trimmerzeit
05.12.2002 11:45:49
Sascha
Salü!

Etwa 1 Minute hab ich gemessen... aber eben, der stellt ab ob ich noch am schreiben bin oder nicht... :/

Gruss

Re: Trimmerzeit
05.12.2002 11:50:20
geri
versuche meine Version, ich benutzt diese täglich
geri
Re: EXCEL nach Zeitablauf automatisch beenden..?!?
05.12.2002 13:22:08
Sascha
Ciao Geri!

Vielen Dank! Dein Teil funktioniert tatsächlich einwandfrei!!

Vielen Dank!

Sascha

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Excel automatisch schließen nach Inaktivität: Eine praktische Anleitung


Schritt-für-Schritt-Anleitung

Um Excel automatisch zu schließen, wenn es eine bestimmte Zeit inaktiv war, folge diesen Schritten:

  1. Öffne den VBA-Editor:

    • Drücke Alt + F11.
  2. Füge den folgenden Code in das Modul "Diese Arbeitsmappe" ein:

    Option Explicit
    
    Private Sub Workbook_Open()
       einschalten
    End Sub
    
    Private Sub Workbook_BeforeClose(Cancel As Boolean)
       ausschalten
    End Sub
  3. Füge den folgenden Code in ein Modul ein:

    Option Explicit
    Public beenden As Date
    
    Public Sub einschalten()
       beenden = Time + TimeSerial(0, 1, 0) ' 1 Minute
       Application.OnTime beenden, "Ende"
    End Sub
    
    Public Sub ausschalten()
       On Error Resume Next
       Application.OnTime beenden, "Ende", , False
    End Sub
    
    Public Sub Ende()
       ThisWorkbook.Save
       If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
    End Sub
  4. Speichere deine Änderungen und schließe den VBA-Editor.

  5. Teste die Funktion: Lass Excel eine Minute inaktiv sein und beobachte, ob es sich automatisch schließt.


Häufige Fehler und Lösungen

  • Excel schließt, während du noch schreibst: Überprüfe die Zeiteinstellung im Code. Stelle sicher, dass die Zeitspanne für die Inaktivität den Bedürfnissen deiner Arbeit entspricht.

  • Makros werden nicht aktiviert: Stelle sicher, dass die Makros in deinen Excel-Einstellungen aktiviert sind. Du kannst auch das Makro digital signieren, um die Abfragen beim Öffnen der Datei zu vermeiden.


Alternative Methoden

Falls du VBA nicht verwenden möchtest, kannst du auch einen Timer ohne VBA verwenden. Hierzu kannst du eine externe Anwendung oder ein Skript nutzen, das Excel nach einer bestimmten Zeit schließt. Beachte, dass diese Methode weniger flexibel ist und du möglicherweise eine manuelle Intervention benötigst.


Praktische Beispiele

Hier ist ein Beispiel, wie du eine Excel-Datei nach einer Inaktivität von 2 Minuten automatisch schließen kannst. Ändere einfach die TimeSerial-Einstellung:

beenden = Time + TimeSerial(0, 2, 0) ' 2 Minuten

So kannst du die Inaktivitätszeit anpassen, je nach Bedarf deiner Arbeitsumgebung.


Tipps für Profis

  • Makros digital signieren: Um die Aktivierung von Makros zu vereinfachen, kannst du ein digitales Zertifikat erstellen. Suche nach SELFCERT.EXE in deinem Office-Installationsordner, um ein Zertifikat zu generieren.

  • Testen in verschiedenen Excel-Versionen: Achte darauf, dass der Code in deiner spezifischen Excel-Version getestet wird, um mögliche Inkompatibilitäten zu vermeiden.


FAQ: Häufige Fragen

1. Wie kann ich die Zeit, nach der Excel automatisch schließt, ändern? Du kannst die Zeit im TimeSerial-Befehl im VBA-Code anpassen.

2. Was passiert, wenn ich eine nicht gespeicherte Datei habe? Der Code speichert die Datei automatisch, bevor sie geschlossen wird. Stelle sicher, dass du alle wichtigen Änderungen vornimmst, bevor die Inaktivität eintritt.

3. Kann ich den Code für andere Anwendungen verwenden? Der gegebene Code ist spezifisch für Excel, aber ähnliche Logik kann auch in anderen VBA-fähigen Anwendungen verwendet werden.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige