Zellen nach editieren mit Passwort schützen
26.01.2009 20:48:00
Rudolf
ich hatte vor einiger zeit ein posting gemacht weil ich folgendes problem: in meinem excel-sheet gibt es zellen die nachdem was reingeschrieben wurde nur mehr mit hilfe eines passworts editiert werden können.
folgender code funktioniert einwandfrei:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
ActiveSheet.Unprotect "xx"
For i = 1 To Target.Count
If Target(i) "" Then Target(i).Locked = 1
Next i
ActiveSheet.Protect "xx"
End Sub
Das Problem ist wenn ich Verbundene Zellen in meinem Excel-Sheet habe, dann funktioniert das "Target(i).Locked" nicht mehr.
Weiss jemand von euch wie die funktion definiert sein müsste, damit diese auch bei Excel-Sheets funktioniert die verbundene Zellen haben? :-/
viele grüsse
rudi
Anzeige