Botón de un formulario que cambie el nombre del botón
Pregunta para dante te estoy mandando el archivo por mail gracias dante
1 respuesta
Te anexo el código, agregué la variable exito como pública
Public exito Private Sub CommandButton8_Click() If CommandButton8.Caption = "Abrir" Then MostrarContraseña TextBox1 = "1234" If exito = False Then CommandButton8.Caption = "Abrir" Else CommandButton8.Caption = "Cerrar" End If Else If CommandButton8.Caption = "Cerrar" Then CommandButton8.Caption = "Abrir" Cerrar End If End If End Sub
En el formulario hay que usarla así:
Private Sub CommandButton1_Click()
If TextBox1 = "1234" Then
Abrir
Hoja1.exito = True
Unload Me
Exit Sub
Else
MsgBox ("Contraseña Incorrecta")
TextBox1 = ""
End If
TextBox1.SetFocus
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Activate()
Hoja1.exito = False
End Sub
Dante perdona mi ignorancia porque la variable es pública?
No tienes que disculparte, todos estamos aprendiendo.
Cuando una variable es pública, está en memoria aunque te hayas pasado a otro módulo, en este caso se ejecuta la macro commandbutton8, en ese momento se declara la variable, entonces puedo utilizar la variable en otro módulo o en otro formulario, que este es tu caso, se abre el formulario y pide la clave, si la clave es correcta, entonces la variable exito toma el valor verdadero.
De otra forma las variables que se utilizan en el módulo son locales y no pueden ser utilizadas en otro formulario.
