Datei optimal schützen
31.05.2007 14:37:00
Ronny
ich muss eine Preisliste für Händler entwerfen. Die darin befindlichen Daten dürfen nicht kopiert bzw. in andere Systeme importiert werden. Ich hatte die Idee, dass über Blattschutz zu machen:
Sub Schützen()
Dim i As Integer, myPasswd As String
myPasswd = InputBox("Passwort: ", "Passworteingabe")
For i = 1 To Sheets.Count
Sheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowFiltering:=True, Password:=myPasswd
Next i
End Sub
Soweit so gut. Leider sind die Felder immer noch auswählbar, wenn ich den Blattschutz habe und können kopiert werden. Das liese sich bestimmt auch noch lösen, nur viel mir jetzt auf, dass man die Datei einfach mit "speichern unter" in eine andere Datei abspeichern kann und alle Schutzüberlegungen waren für die Katz. Habt ihr vielleicht eine Idee, wie man das Problem lösen kann.
Der Hintergrund:
Viele Konkurrenten nutzen unsere mühselig aktualisierten Preislisten zur Aktualisierung ihrer Datenbank. Daher möchte ich diesen Schutz.
Danke im voraus.