Cel blokkeren wanneer aan voorwaarde is voldaan

[Albear]

Nieuwe vraag.

Als er aan een voorwaarde is voldaan, cel A1 = "No" of Cel A1 = "Not applicable", zou ik graag cel A2 blokkeren (deze mag dan niet worden ingevuld). Is dit mogelijk?

 

[ExcelAmateur]

Albear,


Dit heb ik met de zoekmachine van helpmij gezocht, kijk of je er wat mee kunt.

 

[leofact]

Mogelijk is het beter om de voorwaarden van a1 direct in de code op te menem.
De code, toegespitst op jou vraag zou er zo uit kunnen zien.

Private Sub Worksheet_Change(ByVal Target As Range)

If [a1] = "no" Or [a1] = "Not applicable" Then
        [a2].Locked = True
    Else: [a2].Locked = False
End If
End Sub

Om dat te laten werken is er nog een stukje code nodig in de workbook open event.

Private Sub Workbook_Open()
Blad1.Protect (""), UserinterfaceOnly:=True
End Sub

Tussen de haakjes kun je eventueel je wachtwoord plaatsten.
Deze code zorgt ervoor dat het blad beschermt is voor de gebruiker, maar niet voor de macro.

Misschien goed om te weten:
Code, zoals deze, die die bescherming opheft of instelt, is niet compatible met gedeelde werkmappen.

Mvg Leo