Office: Zellschutz bei ausgewähltem Bereich entfernen

Hallo,
ich habe eine Datei mit gesperrten Zellen (Formeln hinterlegt) und "freien" Zellen (Berechnungsparameter). In bestimmten Fällen muss der User in einen gesperrten Bereich eingreifen dürfen. Dafür möchte ich in VBA eine Prozedur schreiben, die den Zellschutz für diesen Bereich aufhebt, wenn in einer festgelegten Zelle ein Schlüsselwort eingegeben wird. Da ich VBA Anfänger bin , habe ich so meine Probleme. Kann mir jemand helfen ? Unten mein bescheidener Versuch.

Sub Z()
Dim Zelleninhalt As String
Range("K12").Select
Zelleninhalt = Range("K12").Value
If Zelleninhalt = "setzen" Then
Range("G99:U11").Select
Selection.Locked = False
End If
End Sub

Gruß
majdi

:)

 

Hallo majdi,

so vielleicht:

Code:

 

Hallo Ingolf,
Danke. Funktioniert.
Wie muss ich den Code anpassen, damit die Werte im Bereich :Range("G99:U111")
gelöscht werden?
Nachdem Zellschutz entfernt wurde , soll der Benutzer nicht erkennen, welche Formeln sich in den Zellen verbergen.

Gruß
majdi

 

Hallo majdi,

bitteschön:

Code:

 

Vielen Dank Ingolf

Gruß
majdi

 

Hi,
es gibt Zellen mit Zellschutz und welche ohne, wie muss ich den Code anpassen, damit er sich diese Einstellung merkt, und nur die Zellen nach Anpasung des angegebenen Bereiches wieder sperrt, welche vorher auch gesperrt waren.

Gruß
majdi