Szia,

Az aktuális munkalap objektumába (VBE) másold be ezt a kódot:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:A1")) Is Nothing Then
    If Target.Value = "False" Then
        Target.Value = "True"
    Else
        Target.Value = "False"
    End If
End If
Cancel = True
End Sub

Ez a kód az aktuális munkalap A1-es cellára jobb klikk-kel való kattintáskor fut le, és írja be az Igaz, vagy Hamis értéket!

Üdv: Sznido