PDA

Vollständige Version anzeigen : Excel schließt


Jochen2510
29.08.2017, 19:06
Guten morgen,

mit diesem Code Schließt Excel und speichert vorher. Bis jetzt ist ist der Code ganz gut.
Leider ist aber das Problem, das wenn man in der Zelle drin ist, das der Code nicht mehr funktioniert.*

Kann man es so einrichten, das man immer in 45 Sekunden herausfliegt und das dafür eine MSG Box kommt " in 10Sek. wird die Datei geschlossen" . Damit es übersichtlicher ist ?

kommt als Code in DieseArbeitsmappe

Option Explicit*
Private Sub Workbook_Open() Application.OnTime Now + TimeSerial(0, 0, 30), "Auto_Close_" End Sub

kommt als Code in Modul1Option Explicit*

Sub Auto_Close_()*
Dim i%*

For i = 10 To 1 Step -1*
Application.StatusBar = "Excel wird in " & i & " Sek. geschlossen!"*
Application.Wait Now + TimeSerial(0, 0, 1)*
DoEvents*
Next*

Application.StatusBar = False*

If Not ThisWorkbook.ReadOnly Or ThisWorkbook.Saved = False Then*
ThisWorkbook.Save*
If Application.Workbooks.Count < 2 Then*
Application.Quit*
Else*
ThisWorkbook.Close*
End If*
Else*
If Application.Workbooks.Count < 2 Then*
Application.Quit*
Else*
ThisWorkbook.Close False*
End If*
End If*

End Sub*

Danke an Alle

Nepumuk
29.08.2017, 19:23
Hallo Jochen,

das geht nicht, denn wenn Excel im Editiermodus ist können keine Makros laufen.

Jochen2510
29.08.2017, 20:16
du meinst wenn eine zelle aktiv bearbeitet wird ?

kann man z.b. sagen, wenn in tabelle 3 nix passiert dann soll der code ausgeführt werden ?
denn es wird nur in tabelle 1 und 2 gearbeitet.

Storax
29.08.2017, 21:15
https://www.codeproject.com/Articles/20267/Determining-if-Excel-is-in-Edit-mode
https://stackoverflow.com/questions/221984/how-to-tell-if-excel-application-is-in-cell-edit-mode

Jochen2510
30.08.2017, 03:48
hi danke aber mein englisch ist nicht so gut.

was wird damit gemeint ?