Cel vergrendelen

[DLL]

Hallo ik wil cel b1 vergrendelen, maar als in cel a1 JA staat moet cel b1 wel gevuld kunnen worden.

Weet iemand hoe dat moet?

Bedankt

 

[wieter]

Misschien zo?
Als in [A1] niet "ja" staat is ("B1:B10") niet bereikbaar.

 

[wieter]

Nog een mogelijkheid.

 

[Cobbe]

Anders deze eens testen:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("A:A")) Is Nothing Then
  ActiveSheet.Unprotect
    Range("B" & Target.Row, "P" & Target.Row).Locked = UCase(Target.Value) = "JA"
  ActiveSheet.Protect
  End If
End Sub

 

[wieter]

Dat is dan het verschil met een Mega Honourable Senior Member

 

[Cobbe]

Ben misschien langer bezig met 'afkijken' van de beteren.

 

[DLL]

Bedankt voor de reactie maar hoe voeg ik dit toe in mijn sheet

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
ActiveSheet.Unprotect
Range("B" & Target.Row, "P" & Target.Row).Locked = UCase(Target.Value) = "JA"
ActiveSheet.Protect
End If
End Sub

 

[Cobbe]

ALT-F11 opent de VBE

selecteer de tab(bladnaam) waarin de code actief moet zijn - dubbelklikken.

Plak nu deze code in het rechtse venster.
Sluiten en klaar is DLL

 

[DLL]

Ok als ik op ALT F11 klik zie ik alleen maar een grijs blad open. Met wat opties zoals bestand bewerken enz....

 

[Cobbe]

Dan moet je eerst in de Opties voor Excel in het vertrouwenscentrum de mogelijkheid van macro's inschakelen.