excel Zellen sperren mit Freigabe
07.04.2021 14:28:23
Andre
ich möchte in einer Excel Tabelle folgendes tun:
Excel Tabellenblatt für Bestimmte Benutzer freigeben (Benutzerberechtigung) aber nach Eingabe in Zelle soll diese Zelle gesperrt werden auch für die benutzer.
Folgenden Code habe ich aber geht nicht so richtig. Könnt Ihr mir bitte helfen?
Danke im Voraus.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim objCell As Range
If Not Intersect(Target, Range("D6:O26")) Is Nothing Then
Me.Protect Password:="abc", UserInterfaceOnly:=True
For Each objCell In Target
If Not Intersect(objCell, Range("D6:O26")) Is Nothing Then _
objCell.Locked = objCell.Text ""
Next
End If
End Sub
Anzeige