Poner contraseña en botón de formulario
En el formulario que estoy creando tengo un botón para Desbloquear/Bloquear con esta instrucción
Dim ctl As Control
For Each ctl In Me.Controls
If (TypeOf ctl Is TextBox) Or (TypeOf ctl Is ComboBox) Or (TypeOf ctl Is CheckBox) Or (TypeOf ctl Is SubForm) Then
If ctl.Locked = True Then
ctl.Locked = False
Me.Comando77.Caption = "Edita"
Me.Etiqueta61.Caption = "Consulta impuestos"
Me.[Comando40].Enabled = False
Me.[Comando41].Enabled = False
Me.[Comando46].Enabled = False
Me.[Comando70].Enabled = False
Me.Comando77.BackColor = 52582 'verde
Else
ctl.Locked = True
Me.Comando77.Caption = "Guardar"
Me.Etiqueta61.Caption = "Edita impuestos"
Me.[Comando40].Enabled = True
Me.[Comando41].Enabled = True
Me.[Comando46].Enabled = True
Me.[Comando70].Enabled = True
Me.Comando77.BackColor = 962030 'amarillo
End If
Lo que quisiera hacer es ponerle una contraseña para que dicho botón funcionara, es decir al abrir esta todo bloqueado al darle clic para desbloquear me pidiera contraseña, la cuestión es que no se como hacerlo, si algún experto me puede decir como.
1 Respuesta
Daniel: Haz algo así, si quieres claro está:
Private Sub NombreDeTuBoton_Click()
Dim LaContra As String
Dim ElMensaje As Integer
LaContra = InputBox("Escribe una Contraseña:", " CONTRASEÑA OBLIGATORIA ")
If LaContra = "TuContraseña" Then
ElMensaje = MsgBox("La contraseña es Válida.", vbOKOnly, " ACEPTA Y CONTINUA ")
'Aquí iría tu código de Desbloqueo
Else
ElMensaje = MsgBox("La contraseña NO ES Válida", vbOKOnly, "ACEPTA Y NUEVO INTENTO")
End If
End SubUn saludo >> Jacinto
