Kill-Befehl funzt nicht mehr
16.10.2015 10:49:00
Herbert
seit langer Zeit verwende ich für den Trial-Schutz meiner Tools den Kill-Befehl und zwar wie folgt:
Application.DisplayAlerts = False
Application.Quit
Kill ActiveWorkbook.FullName
ThisWorkbook.Close
Application.DisplayAlerts = True
Das hat bisher immer prima funktioniert, doch heute habe ich festgestellt, dass es nicht mehr "killt"! Auch mit "ThisWorkbook" anstatt "ActiveWorkbook" habe ich es erfolglos probiert.Auch damit hat es nicht geklappt:
Application.DisplayAlerts = False
ActiveWorkbook.Close (False)
Kill ActiveWorkbook.FullName
Application.Quit
Application.DisplayAlerts = True
Und auch so hat es nicht geklappt: Dim sPfad$, sWbkName$
sPfad = ThisWorkbook.Path & "\"
sWbkName = ThisWorkbook.Name
Application.DisplayAlerts = False
On Error Resume Next
ThisWorkbook.Close (False)
Kill sPfad & sWbkName
Application.Quit
On Error GoTo 0
Application.DisplayAlerts = True
Habt ihr evtl. eine Ahnung, woran das liegen kann?Servus