Marca de Agua en TEXBOX - Excel

Estoy diseñando un formulario para que funcione de LOGIN para poder acceder al proyecto de Excel con un usuario previamente registrado, pero me gustaría colocar en los TEXBOX una marca de agua que diga "Usuario" y "Contraseña" y cuando demos clic en alguno de los textbox se borre la marca de agua para que se pueda ingresar los datos.

Espero me puedan ayudar.

Gracias y saludos.

1 Respuesta

Respuesta
2

Te anexo los eventos para tu userform

'Por. Dante Amor
Private Sub TextBox1_Enter()
    TextBox1.ForeColor = &H0&
    If TextBox1.Value = "Usuario" Then
        TextBox1.Value = ""
    End If
End Sub
'
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox1.Value = "" Then
        TextBox1.ForeColor = &HC0C0C0
        TextBox1.Value = "Usuario"
    End If
End Sub
'
Private Sub TextBox2_Enter()
    TextBox2.ForeColor = &H0&
    If TextBox2.Value = "Contraseña" Then
        TextBox2.Value = ""
    End If
End Sub
'
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox2.Value = "" Then
        TextBox2.ForeColor = &HC0C0C0
        TextBox2.Value = "Contraseña"
    End If
End Sub
'
Private Sub UserForm_Activate()
    CommandButton1.SetFocus
    TextBox1.ForeColor = &HC0C0C0
    TextBox1.Value = "Usuario"
    TextBox2.ForeColor = &HC0C0C0
    TextBox2.Value = "Contraseña"
End Sub

Debes cambiar textbox1, textbox2 y commandbutton1 por el nombre de tus controles.


.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.

Amigo de antemano agradezco tu tiempo y te pido una disculpa por la tardanza al contestar solo que había estado un poco apurado con este proyecto, y en cuestión al código si me aparece "Usuario" y "Contraseña" en sus respectivos textbox "MUCHAS GRACIAS", solo que cuando inicio el Formulario el textbox "Usuario" no se desaparece hasta que de clic en el textbox "Contaseña" y regrese al textbox "Usuario".. A que crees que se deba? 

Saludos y muchas gracias nuevamente. 

En el evento activate debes tener esta línea:

CommandButton1. SetFocus

Cuando presionas click en el campo de usuario, se desaparece la palabra "usuario"


Al final de mi respuesta tienes 2 opciones para valorar la respuesta: "Votar" y "Excelente", si ya no tienes más dudas, apreciaría que cambiaras tu valoración.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas