viernes, 9 de mayo de 2014

como colocar usuario y contraseña: enviado por : luz dary abril, Angi Garces, Linda Centeno, Yenny Huertas y Alejandro Venegas

Para que el archivo al abrirse pida usuario y contraseña:


Para esto hay que crear en el visual basic un userform con dos label, dos textbox y un CommandButton


en el CommandButton agregar el siguiente codigo:
Private Sub CommandButton1_Click()
Dim USERNAME, PASWORD As String
USERNAME = TextBox1.Text
PASWORD = TextBox2.Text

If USERNAME = "FORMULARIOS" And PASWORD = "DIAN" Then

MsgBox "CONTRASEÑA CORRECTA", vbInformation
Unload Me

Else
MsgBox "CONTRASEÑA INCORRECTA", vbCritical
ActiveWordBook.Close

End If
End Sub

1 comentario:

  1. Pero para que muestre esto tan pronto se abra el archivo se debe pegar lo siguiente en el WorkBook

    Private Sub Workbook_Open()
    UserForm1.Show
    End Sub

    ResponderEliminar