Zellen schützen trotz Freigabe - VBA?
23.05.2006 15:59:24
Klaus
ich habe eine Datei zur Freigabe für mehrere Benutzer. Leider funktioniert in der freigegebenen Version der Blattschutz nicht mehr ...
Um meine Formeln trotzdem zu schützen, habe ich folgendes Makro erdacht (schützenswert sind die Zeilen 1-4 und die Spalten 1-6).
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
If Target.Column < 5 Then Selection.Offset(0, 1).Select
If Target.Row < 7 Then Selection.Offset(1, 0).Select
End Sub
Das läuft auch soweit ganz gut, lässt aber noch ein paar Möglichkeiten offen:
- ganze Spalten / Zeilen können angewählt und (schlimmstenfalls) gelöscht werden.
- "verbotene" Zellen können per Doppelclick angewählt werden. (Das Worksheet_BeforeDoubleClick Ereigniss kenne ich und nutze es auch, ich würd blos gern verstehen warum Doppelclick kein "SelectionChange" auslöst, wärend rechtsclick das sehr wohl tut?
- STRG+A funktioniert auch noch
Hat jemand Vorschläge, wie ich oben genannte Punkte auch noch abfangen kann?
Dank und Gruß,
Klaus M.vdT.
Anzeige