Schwreibgeschütz öffnen + Schreibschutz empfehlen
13.05.2008 12:51:23
Ben
Ich habe eine Datei, die von vielen Usern verwendet wird. Da diese je nach Situation nur lesen müssen, habe ich bei den Speichern-Optionen den "Schreibschutz empfehlen" aktiviert.
Zusätzlich verwende ich folgenden Code, um einer Gruppe von Usern die Datei mit Schreibrechten zur Verfügung zu stellen (der Rest hat nur Leserechte):
Private Sub Workbook_Open()
'definieren, wer schreiben darf
Select Case LCase(Environ("username"))
Case "schaube", "schaubm", "jegera", "admfps", etc.
Case Else
Me.Saved = True
ThisWorkbook.ChangeFileAccess xlReadOnly
End Select
If ThisWorkbook.ReadOnly = True Then
MsgBox ("ACHTUNG" + Chr(13) + Chr(13) + "SIE ÖFFNEN DIE DATEI SCHREIBGESCHÜTZT" + Chr(13) + Chr(13) + "KEINE MUTATIONEN VORNEHMEN, SPEICHERN IST NICHT MÖGLICH.")
End If
If ThisWorkbook.ReadOnly = True Then
ReadGlobalState = True
Else
ReadGlobalState = False
End If
Wenn nun jemand die Datei öffnet, der nur Leserechte hat und die Frage, ob man schreibgeschützt öffnen wolle mit "Ja" bestätigt, kommt die folgende Fehlermeldung:
"Die Methode 'changeFileAccess' für das Objekt '_Workbook' ist fehlgeschlagen.
Wenn ich auf Debuggen gehe wird die folgende Zeile markiert:
ThisWorkbook.ChangeFileAccess xlReadOnly
Man müsste für diejenigen, die eh keine Leserechte haben, die "Schreibschutz-Rückfrage" verhindern. Geht das oder hat jemand eine andere Idee?
Vielen Dank für Eure Hilfe.
Gruss
Ben