Thema: nach Eingabe von "x" sollen bestimmte Zellen gesperrt werden

Hallo liebe Forum Mitglieder,

ich möchte folgendes umsetzen. Wenn in Zelle E5 ein "x" eingetragen wird, dann sollen die Zellen F5 - J5 gesperrt werden. Zum Öffnen der gesamten gesperrten Zellen soll ein Button eingefügt werden, der die Zellen wieder öffnet.

Danke für eure Hilfestellungen.

Moin, Andy!

Im Modul des Arbeitsblattes:

Private Sub Worksheet_Change(ByVal Target As Range)



    If Target.Address(0, 0) = "E5" Then

        If Target.Value = "x" Then sperre 1

    End If



End Sub

Im Standardmodul:

Sub Schaltfläche1_Klicken()

    sperre 0

End Sub

Sub sperre(ja_nein As Boolean)

    Range("F5:J5").Locked = ja_nein

End Sub

https://www.herber.de/bbs/user/168788.xlsm
Gruß, MCO