[Resolvido]Impedir que registros sejam editados após serem salvos

'aqui impede a edição se a caixa CampoX estiver marcada
Private Sub Form_Dirty(Cancel As Integer)
  If Me.CampoX = True Then
    Cancel = True
    MsgBox "Registro bloqueado." & vbCrLf & _
           "Não é possível editar as informações do registro." & vbCrLf & _
           "Para permitir alterações desboqueie o registro no formulário Z."
  End If
End Sub

'aqui define o texto da legenda e a cor da fonte do rótulo
'na navegação pelos registros
Private Sub Form_Current()
  If Me.CampoX = True Then
     Me.RótuloCampoX.Caption = "Bloqueado"
     Me.RótuloCampoX.ForeColor = 255 'vermelho
  ElseIf Me.CampoX = False Then
     Me.RótuloCampoX.Caption = "Desbloqueado"
     Me.RótuloCampoX.ForeColor = 32768 'verde
  Else
     Me.RótuloCampoX.Caption = "Status"
     Me.RótuloCampoX.ForeColor = 8421504 'cinza
  End If
End Sub

'aqui pede a senha ao alterar
Private Sub CampoX_Enter()
  If Not InputBox("Digite a senha", "Senha requerida") = "123" Then
    Me.OutroCampo.SetFocus 'desvia o foco para outro campo
  End If
End Sub

'aqui atualiza o rótulo após marcar/desmarcar a caixa CampoX
Private Sub CampoX_AfterUpdate()
  If Me.CampoX = True Then
     Me.RótuloCampoX.Caption = "Bloqueado"
     Me.RótuloCampoX.ForeColor = 255 'vermelho
  Else
     Me.RótuloCampoX.Caption = "Desbloqueado"
     Me.RótuloCampoX.ForeColor = 32768 'verde
  End If  
End Sub

'aqui impede a edição se a caixa CampoX no form principal estiver marcada
Private Sub Form_Dirty(Cancel As Integer)
  If Forms!FormPrincipal!CampoX = True Then
    Cancel = True
    MsgBox "Registro bloqueado." & vbCrLf & _
           "Não é possível editar as informações do registro." & vbCrLf & _
           "Para permitir alterações desboqueie o registro no formulário Z."
  End If
End Sub