Datei vor Änderung schützen
dave
ich möchte, dass eine Datei von allen außer mir nur zum Lesen geöffnet werden kann. Das heißt, jeder kann zwar ändern, was immer er will, kann es aber nicht (jedenfalls nicht unter dem Originalnamen der Datei) abspeichern.
Ich wollte es erst per Blattschutz machen, aber das geht nicht, weil dann Pivottabellen nicht mehr umkonfigurierbar sind und wenn ich dies explizit zulasse, dann kann das dann auch gespeichert werden, was ich verhindern will.
'Arbeitsmappe schützen' hat auch nicht geklappt.
ich hatte erst sowas im Sinn:
Sub schuetzen()
Dim Name As String
Dim wks As Worksheet
Name = Worksheets("Info").Range("F1")
If UCase(Environ("username")) UCase(Name) Then
For Each wks In Worksheets
wks.protect Password:="xyz", DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
End If
End Sub
Aber das passt halt nicht ganz.
Jemand einen konstruktiven Vorschlag?
Danke und Gruß
David
Anzeige