[Resolvido]Bloquear campo com senha

Private Sub NomeCampo_Dirty(Cancel As Integer)
   If Me.NomeCampo = 0 Then
      If Not InputBox("Mensagem", "Título") = "senha" Then
         Cancel = True
         Exit Sub
      End If
   End If
End Sub

Private Sub NomeCampo_Dirty(Cancel As Integer)
   If IsNull(Me.NomeCampo) Then
      If Not InputBox("Mensagem", "Título") = "Senha" Then
         Cancel = True
         Exit Sub
      End If
   End If
End Sub

Private Sub SeuCampo_Change()
    Dim strMensagem As String
    Dim strSenha As String
    
    'verifica se o campo está preenchido
    If Not IsNull(Me.SeuCampo.Value) Or Me.SeuCampo.Value <> "" Then
    'verifica se a variavel está True
        If Not senhaInserida = True Then
            strMensagem = InputBox("Entre com a senha", "Acesso restrito...")
    
            If strMensagem = "" Or strMensagem = Empty Then
                MsgBox "Não digitou a senha", , "Senha Obrigatoria"
                Me.SeuCampo.SetFocus
                Exit Sub
            End If
        End If
      'verifica se a variavel está True ou a senha correta
        If senhaInserida = True Or strMensagem = "123" Then
            senhaInserida = True
           Exit Sub
        Else
            MsgBox ("Senha incorreta..."), vbCritical
            Me.Undo
            Me.SeuCampo.SetFocus
            Exit Sub
        End If
    End If
End Sub

Private Sub Form_Current()
  'ao mudar de registo, coloca a variavel publica a False
    senhaInserida = False
End Sub