UserInterfaceOnly
Optionaler Variant-Wert.
Wenn True, wird die Benutzeroberfläche, jedoch keine Makros geschützt.
Ohne Angabe dieses Arguments gilt der Schutz für Makros und die Benutzeroberfläche
'--- in den Code des betreffendes Blattes -------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("H5").Value = "ja" Then
Sheets("Tabelle1").Unprotect 'Tabellenname anpassen
Range("I5", "J5").Locked = False 'entsperren
Sheets("Tabelle1").Protect 'Tabellenname anpassen
Else
Sheets("Tabelle1").Unprotect 'Tabellenname anpassen
Range("I5", "J5").Locked = True 'sperren
Sheets("Tabelle1").Protect 'Tabellenname anpassen
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Cells(5, 8)
If (.Value = "Ja") = .Offset(, 1).Locked Then
Unprotect ' ( kein Tabellenname anzupassen! )
.Offset(, 1).Resize(, 2).Locked = .Value "Ja"
Protect '( auch üblich: Me.Protect )
End If
End With
End Sub