Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Makrobefehl nicht bei Schreibschutz

Betrifft: Makrobefehl nicht bei Schreibschutz von: stormlamp
Geschrieben am: 22.09.2014 14:47:45

Hallo Zusammen,

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

  

Betrifft: AW: Makrobefehl nicht bei Schreibschutz von: Hajo_Zi
Geschrieben am: 22.09.2014 14:52:33

Hallo Hans,

If ThisWorkbook.ReadOnly = TRUE then 'dann war sie vorher bereits geöffnet.

GrußformelHomepage


  

Betrifft: AW: Makrobefehl nicht bei Schreibschutz von: stormlamp
Geschrieben am: 22.09.2014 15:29:55

Vielen Dank