show massage in worksheet change after three times select cell and close the file

[abdelfattah]

hello
I need help from the experts to how I add message box after three times of tries to select cells in column a and close the file
this is my code so far

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Columns(1)) Is Nothing Then Exit Sub
If Not Intersect(Target, Columns(1)) Is Nothing Then
MsgBox "you  can't  add  any  values": Target.Value = Range("b2").Select: Target.Value = "": Exit Sub
End If

End Sub

 

[Fluff]

How about

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Static Counter As Long
   If Not Intersect(Target, Columns(1)) Is Nothing Then
      If Counter < 3 Then
         MsgBox "you  can't  add  any  values"
         Counter = Counter + 1
      Else
         MsgBox "Goodbye"
         ThisWorkbook.Close
      End If
   End If
End Sub

 

[Dossfm0q]

Private N As Long

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Columns(1)) Is Nothing Then Exit Sub

    If Not Intersect(Target, Columns(1)) Is Nothing Then
    N = N + 1
    If N > 3 Then N = 1
    MsgBox "you  can't  add  any  values": Target.Value = Range("b2").Select: Target.Value = ""
    If N = 3 Then
   
    ThisWorkbook.Close , True

    End If
End If

End Sub

 

[abdelfattah]

@Fluff & @Dossfm your codes are both work but if is possible I don't populate the message "save ,no save , cancel" , I would directly close without any populate

 

[Fluff]

Do you want to save the file?

 

[abdelfattah]

no

 

[Fluff]

In that case use

         ThisWorkbook.Close False

But if a user has made a number of changes to the workbook, they will loose it all.

 

[abdelfattah]

@Fluff to understand why I don't save , this is kind of protection if anybody tries write into the file this code prevents I know I can do by protection the file , but I would test different way and you and Dossfm did that
many thanks guys for your assistance

 

[Fluff]

Glad we could help & thanks for the feedback.

 

[Dossfm0q]

more protection type "Yourusername"

If N = 3 And Environ("username") <> "Yourusername" Then