AW: SendKeys Anweisunf deaktivert Num-Taste
02.07.2016 11:45:44
Erik
Hallo Rene,
habe ein VBA Code, der nach 5 Minuten Inaktivität die Excel Tabelle speichert und schließt.
Allerding bleibt Excel immer noch geöffnet.
Es sollte aber auch Excel geschlossen werden, aber nur diese Mappe keine anderen geöffneten Excel-Mappen
Gruß
Erik
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
neuezeit = Time + TimeSerial(0, 3, 0)
Application.OnTime EarliestTime:=altezeit, Procedure:="Schließen", Schedule:=False
altezeit = neuezeit
Application.OnTime neuezeit, "Schließen"
End Sub
Sub Schließen()
ThisWorkbook.Close SaveChanges:=True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
ActiveSheet.Unprotect Password:="sibuCeiD"
Dim Befehl 'Schaltfläche Optionen aktivieren
Set Befehl = Application.CommandBars.ActiveMenuBar.FindControl(ID:=522, recursive:=True)
If Not Befehl Is Nothing Then Befehl.Enabled = (Not ActiveSheet.ProtectContents)
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"X:\Lager\Kundenteile\Werkstatt\Kundenteile Werkstatt.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"X:\Lager\autom Sicherung Kundenteile\Kundenteile Werkstatt" & Format(Now, "DD-MM- _
YY_hh_mm") & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True
End Sub