Datei nicht gefunden, aber eigentlich doch
07.11.2016 09:00:07
sivcam
Jetzt bin ich mal wieder etwas ratlos und finde keinen passenden Eintrag im Forum. Mein Problem: ich habe eine Fehlermeldung in einem Excelblatt mit VBA-Code, die ab und zu auftaucht und ab und zu nicht. Ohne, dass sich was ändert.
Mein Code: Wir teilen mit mehreren Kollegen eine Excel-Datei. Da ab und zu die Datei offen gelassen wird und somit für alle gesperrt ist, habe ich was programmiert um das Tool nach 10 Minuten automatisch zu schließen. Das funktioniert auch soweit gut.
Nur passiert ab und zu folgendes: beim Öffnen der Datei kommt die Fehlermeldung "Datei nicht _
gefunden:". Und mehr steht dann da nicht. Wenn man etwas im Debugging-Modus sucht, ist die erste Zeile markiert "Private Sub Workbook_Open" (steht in "DieseArbeitsmappe"):
Option Explicit
Public altezeit
Public neuezeit
Private Sub Workbook_Open()
On Error Resume Next
neuezeit = Time + TimeSerial(0, 15, 0)
Application.OnTime EarliestTime:=altezeit, Procedure:="Schließen", Schedule:=False
altezeit = neuezeit
Application.OnTime neuezeit, "Schließen"
If Workbooks("Prüfstandsbelegung_aktuell.xlsm").ReadOnly Then
Application.EnableEvents = False
Schreibschutz.Show
End If
End Sub
Die Datei ist aber an sich geöffnet. Wenn ich jetzt den Code stoppe, irgendwo was eintrage und neu speichere, ist die Fehlermeldung beim nächsten Öffnen erst mal wieder weg...
Hat jemand eine Idee was ich tun kann um das zu beheben?
Ich freue mich über Tipps und Hilfe!