Error con loop en inputbox
Como estan,
Me podrian ayudar con el siguiente error que me da al ejecutar el siguiente comando:
'ingreso de contraseña para habilitar botones
Dim val As String
val = InputBox("Ingresa la Contraseña", "Contraseña")
If val = "admin" Or val = "test" Then
Unload Me
Else:
Do
MsgBox ("Contraseña Incorrecta")
val = InputBox("Ingresa la Contraseña", "Contraseña")
Loop Until val = "admin" Or val = "test"
End If
Worksheets("LFS").Range("A1").Value = val
TextBox2.Text = Worksheets("LFS").Range("A1").Value
Basado en lo que se escriba en el inputbox al llamar un userform se muestran o no se muestran ciertos botones asi:
'ADMIN
If TextBox2.Text = "admin" Then
intermodal.Visible = True
pricing.Visible = True
dispatch.Visible = True
c_service.Visible = True
commercial.Visible = True
insurance.Visible = True
invoice.Visible = True
marketing.Visible = True
susi_osorio.Visible = True
pero al correr el codigo del inputbox me sale el siguiente error:
1 respuesta
En mi versión no da error hasta lo que se pudo probar... no recree todos los controles solo el 1ro.
Además no indicas en qué evento o control se encuentra este código, así parcial como lo colocaste pude recrearlo sin inconvenientes.
Debieras colocar puntos de interrupción para notar con exactitud en qué línea se detiene.
De todos modos quiero remarcar que no utilices palabras 'conflictivas'... Val es el nombre de una función.. es mejor que no utilices ese texto para variables.
Sdos.
Elsa
Si las sugerencias y mis pruebas fueron correctas, no olvides valorar la respuesta para que se quite de mis consultas pendientes.
Sdos!
