Bereik VBA code aanpassen

[rick1982]

Beste Forumlezers

op dit forum heb ik de onderstaande VBA code gevonden

Private Sub Worksheet_Change(ByVal Target As Range)
  If target.address<>"$E$7" then Exit sub
  ActiveSheet.Unprotect "wachtwoord"
  target.Locked = True
  ActiveSheet.Protect "wachtwoord"
End Sub

Ik wil deze gebruiken om een cel te beveiligen nadat er gegevens zijn ingevoerd en dat lukt nu voor cel E7. Ik wil dit gaan gebruiken voor meerdere cellen. Hoe kan ik het bereik van deze code aanpassen?

Groeten

Rick

 

[HSV]

Test het eens.

Private Sub Worksheet_Change(ByVal Target As Range)
  Select Case Target.Address
  Case "$E$7", "$E$8", "$E$10"
     Exit Sub
   End Select
  ActiveSheet.Unprotect "wachtwoord"
   Target.Locked = True
  ActiveSheet.Protect "wachtwoord"
End Sub

 

[Wigi]

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
     Select Case .Address(0,0)
     Case "E7", "E8", "E10"
     .Parent.Unprotect "wachtwoord"
     .Locked = True
     .Parent.Protect "wachtwoord"
     End Select
  End With
End Sub

 

[rick1982]

Bedankt voor jullie antwoord.

Is het ook mogelijk om een meerdere kolommen te selecteren?

Groeten

Rick

 

[rick1982]

Iemand?

 

[snb]

Wat heb je zoal gevonden met de zoekfunktie van dit forum ?