Poner contraseña para eliminar registro en formulario
Quisiera saber si es posible y si es así como debería hacer para colocar una contraseña al querer eliminar un registro.
1 respuesta
Como desconozco si la eliminación se produce por la acción de un botón o por la opción de eliminar del ribbon te explico cómo hacerlo de manera genérica.
Saca las propiedades de tu formulario -> Pestaña Eventos -> Antes de confirmar la eliminación. Ahí le generas el siguiente código:
...
Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
Const elPass As String = "123"
Dim pidoPass As Variant
pidoPass = InputBox("Introduzca contraseña para borrar el registro", "PASSWORD")
If StrPtr(pidoPass) = 0 Then
Cancel = True
Exit Sub
End If
If pidoPass <> elPass Then
MsgBox "La contraseña introducida no es correcta", vbCritical, "INCORRECTO"
Cancel = True
End If
End Sub
...
La primera línea contiene la contraseña. Cambia el 123 por la contraseña que quieras.
