casi siempre si no sabes la pass se puede usar la que esta escrita por debajo a mi me a funcionado
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPrivate Sub Desabilitar()
On Error Resume Next
Dim c As Control
For Each c In Controls
If TypeOf c Is TDBText Then
c.ReadOnly = True
End If
If TypeOf c Is TDBCombo Then
c.Enabled = False
End If
If TypeOf c Is TDBDate Then
c.Enabled = False
End If
If TypeOf c Is TDBMask Then
c.Enabled =False
End If
If TypeOf c Is CheckBox Then
c.Enabled = False
End If
Next
End Sub