|
Moin ich eine Herausforderung die ich nicht gelöst bekomme.
Ich möchte, dass wenn bestimmte Nutzer die Excel Tabelle öffnen, diese Automatisch schreibgeschützt geöffnet wird, da die entsprechenden Nutzer die Datei grundsätzlich auch nur zum lesen nutzen und es sich ab und an überschneidet wenn ein anderer Nutzer dann etwas bearbeiten möchte.
Den Pfad der Datei hab ich via workbook.path und workbook.name in eine String variable gespeichert. Via msgbox funktioniert das auch.
Via environ("Username") wird der Name des Benutzers übergeben, was ebenfalls lt. Msgbox funktioniert.
Anschließend hab ich eine if Anweisung mit dem der Bedingung des entsprechenden Nutzers (innerhalb der Anweisung klappt auch hier eine msgbox was bedeutet die Bedingung ist richtig, der Nutzer wird erkannt)
Nun kommt die Anweisung.
Workbook.open Filename := Pfad, readonly:=true
Wird die Datei nun geöffnet ist sie allerdings nicht schreibgeschützt...
Wenn ich mir den readonlywert via msgbox ausgeben lasse steht da ebenfalls "falsch" da muss aber "richtig stehen ...
Kann mir jemand helfen?
|