Date: prev next · Thread: first prev next last

I ask for your help with the following:
I have a form called "Menu" and within a button called "Root" (associated with a macro requesting password) Which brings me to another form called "MenuRoot". Being new I could make it work. I request your help to successfully complete the code and to open the second form once the correct password is entered.

The code is as follows:

Sub solicitaPassword(Event As Object)
 Dim Form As Object
 Dim Pass
 Dim Entrada
Pass="comprasaux" ' escribir entre comillas la cadena de texto que servira de password Entrada="" & InputBox("Introduzca la Contraseña :","AVISO DE SEGURIDAD","") & "" ' aquí modificamos el inputbox y recogemos los datos del usuario

 If Pass=Entrada Then ' comparamos las dos variables
'________________ ' aquí ejecutariomos las acciones si ambas variables son iguales
MsgBox("Contraseña incorrecta!!", "","AVISO DE SEGURIDAD") ' aqui mostramos un MsgBox en caso de que no sean iguales las variables
 End if
End Sub

Any help or if there is a better way thank you.

Skype: migwer1

Para instrucciones sobre darse de baja envíe un mensaje a:
Guías para envío + más:
Archivo de la lista:
Todos los mensajes enviados a esta lista serán archivados públicamente y no pueden ser eliminados


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.