Fehler bei Öffenen schreibgeschützter Datei

Bild

Betrifft: Fehler bei Öffenen schreibgeschützter Datei
von: Uwe
Geschrieben am: 15.03.2005 12:20:57
Hallo!
Ich habe folgendes Makro:


Private Sub Workbook_beforeClose(Cancel As Boolean)
Application.Run ("zurück_zur_Eingabemaske")
ActiveWorkbook.Save
End Sub

Wenn bereits jemand anderes in der Datei ist, kann die Datei nur noch schreibgeschützt geöffnet werden. Aufgrund der automatischen Speicherung beim Verlassen der Datei kommen diverse Meldungen (Datei existiert bereits... Soll Datei ersetzt werden ... etc.). Wenn man z.B. auf "nein" klickt, dann kommt man in die Makro-Ebene, was jedoch nicht gewollt ist.
Gibt es eine Möglichkeit, dass bei einem Schreibgewschützten Dokument die automatische Speicherung zu deaktivieren?
Gruß
Uwe
Bild

Betrifft: AW: Fehler bei Öffenen schreibgeschützter Datei
von: Herbert H.
Geschrieben am: 15.03.2005 13:01:24
eventuell so:

Private Sub Workbook_beforeClose(Cancel As Boolean)
Application.Run ("zurück_zur_Eingabemaske")
If ActiveWorkbook.ReadOnly = True Then Exit Sub
ActiveWorkbook.Save
End Sub

Gruß Herbert
Bild

Betrifft: AW: Fehler bei Öffenen schreibgeschützter Datei
von: Uwe
Geschrieben am: 16.03.2005 20:03:23
Hallo Herbert,
hat funktioniert.
Vielen Dank.
Gruß
Uwe
Bild

Betrifft: AW: Fehler bei Öffenen schreibgeschützter Datei
von: Dan
Geschrieben am: 15.03.2005 13:12:20
Hallo Uwe, koennte es so sein? :
If (ThisWorkbook.ReadOnly = True) Then
ThisWorkbook.Saved = True
ThisWorkbook.Close
End If
Help : schau Dir die Saved Eigeschafft mal an :
You can set this property to True if you want to close a modified workbook without either saving it or being prompted to save it.
This example closes the workbook that contains the example code and discards any changes to the workbook by setting the Saved property to True.
ThisWorkbook.Saved = True
ThisWorkbook.Close
Bild

Betrifft: AW: Fehler bei Öffenen schreibgeschützter Datei
von: Uwe
Geschrieben am: 16.03.2005 20:07:09
Hallo Dan,
Fehler ist nun behoben.
Vielen Dank für deinen Tipp.
Gruß
Uwe
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Fehler bei Öffenen schreibgeschützter Datei"