markierten Zellbereich schützen

Set Bereich = ActiveSheet.Range(Cells(BereichAnfang + 1, 1), Cells(BereichEnde + 1, 13))
Bereich.Select

Eine Variable mit Namen „BereichAnfang“ enthält die erste Zeilennummer, ebenso enthält die Variable „BereichEnde“ die letzte Zeilennummer des zu markierenden Bereichs.
Ich habe vor langer Zeit in einem Beitrag gelesen, das mit „Enable Selection“ sowie „unlockedcells“ ein Bereich des Blattes vor jeglichem Zugriff durch Mausklicks von außen geschützt werden kann. Leider liegt mir dieser Beitrag nicht mehr vor und ich kann mich auch nicht an die beschriebene Vorgehensweise erinnern.
Ich bitte um Rückmeldung wenn jemand zu diesem Themenbereich einen Vorschlag hat. Dieser temporäre Blattschutz sollte durch ein Makro ein- und ausgeschaltet werden können und keinesfalls den zuvor markierten Bereich verändern.
mfg
reiner