Bereik VBA code aanpassen

Status
Niet open voor verdere reacties.

rick1982

Gebruiker
Lid geworden
14 jan 2009
Berichten
46
Beste Forumlezers

op dit forum heb ik de onderstaande VBA code gevonden

Code:
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
 
Laatst bewerkt door een moderator:
Test het eens.
Code:
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
 
Code:
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
 
Bedankt voor jullie antwoord.

Is het ook mogelijk om een meerdere kolommen te selecteren?

Groeten

Rick
 
Wat heb je zoal gevonden met de zoekfunktie van dit forum ?
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan