Como utilizar Ucase - Lcase en un TextBox--

Hola Expertos, espero que me puedan ayudar, no tengo muchos conocimientos en la materia, sin embargo estoy trabajando en una macro en la que estoy tratando de controlar el acceso a algunos hojas, básicamente tengo un userform inicial en el que solicito el nombre de usuario y posteriormente al aceptar lo válido contra el usuario que inicio sesión en la intranet.
Private Sub Aceptar_usuario_Click()
If UCase(TextBox1.Value) = UCase(Application.UserName) Then
Hoja5.Activate
Else
Application.EnableEvents = False
ActiveWorkbook.Close False
End If
End Sub
Pero al ejecutar me indica que es imposible encontrar el proyecto en la bibliteca, estoy trabajando en excel 97.
1

1 Respuesta

86.450 pts.
Enviame tu correo y te envío algunos ejemplos de acceso con usuario
Suerte
Hola experto, (xxxxxx),
Gracias,
Private Sub TextBox1_Change()
TextBox1 = UCase(TextBox1)
End Sub
Deberías usar algo así
Cualquier pregunta NO dudes en consultar
Suerte

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas