Makrobefehl nicht bei Schreibschutz
22.09.2014 14:47:45
stormlamp
eine Datei wird teilweise normal und teilweise schreibgeschütz geöffnet.
In dieser Datei ist ein Timer, der periodisch aktualisiert.
Wenn die Datei normal geöffnet ist, soll auch diese aktualisierte Datei periodisch gespeichert werden:
Sub intervall()
Dim NextTime As Date
NextTime = Now + TimeValue("00:03:00") 'Zeitintervall festlegen
Application.OnTime NextTime, "intervall"
ActiveWorkbook.RefreshAll
Call Calculate
ThisWorkbook.Save
End Sub
Wenn die datei jedoch schreibgeschützt geöffnet wurde, dann darf der Befehl
ThisWorkbook.Save
nicht ausgeführt werden.
Ich suche also einen Code, der in obiges Modul noch als IF-Bedingung eingebraucht wird:
IF "worbook nicht schreibgeschützt"
ThisWorkbook.Save
ENDIF
Gibte es so einen Code?
Gruß
Hans