Office: (Office 2010) Zellen sperren per VBA

Hallo Zusammen,

Ich habe folgendes Problem: Ich möchte auf meiner Tabelle jede Zeile ab Zeile 11 von A:P sperren, wenn in Q eine "2" eingetragen ist (also wenn ich in Q11 eine "2" schreibe, dann soll A11:P11 gesperrt werden. Selbiges für Q12 -> A12:P12, etc.).

Ich habe mal diesen VBA Code getestet:

Private Sub Worksheet_Calculate ()
If Range("Q11").Value = 2 Then
Range("A11:P11").Locked = True
ActiveSheet.Protect Password:="1234"
End If
End Sub


Dieser funktioniert auch einwandfrei. Das Problem ist, dass es hierbei halt nur Zeile 11 sperrt. Wie muss ich den Code schreiben dass es auch für die anderen Zeilen gilt?

Kenne mich mit VBA kaum aus und bin für jede Hilfe sehr Dankbar!

:)

 

Moin
Wenn du die 2 haendisch eintraegst musst du das Change Ereignis nehmen.
Calculate wird bei Formelberechnung ausgefuehrt.
Probier mal:
Code:

gruss hary

 

Vielen, vielen Dank!

Der Code funktioniert perfekt!