Como un userform modifique el código
Hola experto, tal vez el titulo no es es el correcto, apenas estoy empezando en esto de la programación en no se mucho, en lo que estoy es haciendo un userform donde tengo dos textbox y un commandbutton en el cual colocando usuario y contraseña se despliega otro userform el código que utilice fue el siguiente
Private Sub CommandButton1_Click()
If TextBox1.Value <> ("ARTES202312") And TextBox2.Value = ("55202312") Then
mensaje = MsgBox("usuario o contraseña incorrecta favor de velificar", vbInformation, "error de captura")
TextBox1.SetFocus
Else
If TextBox1.Value = ("ARTES202312") And TextBox2.Value <> ("55202312") Then
mensaje = MsgBox("usuario o contraseña incorrecta favor de velificar", vbInformation, "error de captura")
TextBox1.SetFocus
Else
If TextBox1.Value <> ("ARTES202312") And TextBox2.Value <> ("55202312") Then
mensaje = MsgBox("usuario o contraseña incorrecta favor de velificar", vbInformation, "error de captura")
TextBox1.SetFocus
Else
If TextBox1.Value = ("ARTES202312") And TextBox2.Value = ("55202312") Then
mensaje = MsgBox("usuario y contraseña correctos", vbInformation, "Bienvendo Arturo Ruiz")
UserForm7.Hide
UserForm5.Show
End If
End If
End If
End If
End Sub
Lo que quiero hacer es otro userform para tener acceso a modificar el usuario y contraseña sin la necesidad de entrar al editor de vb
Agradecería tu apoyo
Private Sub CommandButton1_Click()
If TextBox1.Value <> ("ARTES202312") And TextBox2.Value = ("55202312") Then
mensaje = MsgBox("usuario o contraseña incorrecta favor de velificar", vbInformation, "error de captura")
TextBox1.SetFocus
Else
If TextBox1.Value = ("ARTES202312") And TextBox2.Value <> ("55202312") Then
mensaje = MsgBox("usuario o contraseña incorrecta favor de velificar", vbInformation, "error de captura")
TextBox1.SetFocus
Else
If TextBox1.Value <> ("ARTES202312") And TextBox2.Value <> ("55202312") Then
mensaje = MsgBox("usuario o contraseña incorrecta favor de velificar", vbInformation, "error de captura")
TextBox1.SetFocus
Else
If TextBox1.Value = ("ARTES202312") And TextBox2.Value = ("55202312") Then
mensaje = MsgBox("usuario y contraseña correctos", vbInformation, "Bienvendo Arturo Ruiz")
UserForm7.Hide
UserForm5.Show
End If
End If
End If
End If
End Sub
Lo que quiero hacer es otro userform para tener acceso a modificar el usuario y contraseña sin la necesidad de entrar al editor de vb
Agradecería tu apoyo
1 Respuesta
Respuesta de arthefuture
1