tracking bad paswords

[MarkRush]

So i have a lot of password protected macro buttons in my project and I am tracking the user name of anyone who enters the correct password on a hidden sheet called "users" its kind of a built in audit trail . I would also like to capture the user names of people who enter a bad password...

Here is my code for the password :

Sub unhideall()
        
Dim x


    x = InputBoxDK("Type your password here.", "Password Required")
    If x = "" Then End
    If x <> "superuser" Then
        MsgBox "You didn't enter a correct password."
        End
    End If

Here is the code I would like to insert :

With Worksheets("users")
Set ws = Sheets("users")
LastRow = ws.Range("J" & Rows.Count).End(xlUp).Row + 1
   ws.Range("J" & LastRow).Value = Environ$("UserName")
    ws.Range("K" & LastRow).Value = Format(Date + Time, "dd mmm yyyy hh:mm:ss")
   ws.Range("L" & LastRow).Value = Format("bad password")
      End

Thanks in advance for any and all help

 

[Dryver14]

Sub unhideall()


Dim x As Long
Dim Lastrow As Long
    


    x = InputBoxDK("Type your password here.", "Password Required")
    If x = "" Then End
        If x <> "superuser" Then
        
        Lastrow = Worksheets("users").Cells(Rows.Count, 10).End(xlUp).Row + 1
        
        With Worksheets("users")
            .Cells(Lastrow, 10).Value = Environ("UserName")
            .Cells(Lastrow, 11).Value = Date + Time
            .Cells(Lastrow, 12).Value = "Bad Password"
        End With
        
    MsgBox "You didn't enter a correct password."
      
    End If
    
End Sub

 

[MarkRush]

thanks for your help. Just a note i had to put an end statement between the message box and the End if before it would compile..

    x = InputBoxDK("Type your password here.", "Password Required")
    If x = "" Then End
    If x <> "superuser" Then
     With Worksheets("users")
        Set ws = Sheets("users")
            LastRow = ws.Range("J" & Rows.Count).End(xlUp).Row + 1
            ws.Range("J" & LastRow).Value = Environ$("UserName")
            ws.Range("K" & LastRow).Value = Format(Date + Time, "dd mmm yyyy hh:mm:ss")
            ws.Range("L" & LastRow).Value = Format("bad password")
     End With
        MsgBox "You didn't enter a correct password."
        End
        End If