Jump to content
seleconex

crear contraseña en proyecto Vba

Recommended Posts

Hola buenas tarde, mi nombre es Sergio, es la primera vez que me registro en un foro, y este me pareció muy interesante, creo que hice la presentación, pero por si acaso, la hago nuevamente.

Bien, tengo un problema con un archivo Excel el cual cree una contraseña para que no se pueda visualizar la programación de las macros, etc..  todo funciona perfectamente, pero resulta que cada vez que cierro el archivo, me salta el mensaje para que introduzca la contraseña del proyecto. no hace falta escribirla si no quieres, y simplemente le doy varias veces a cerrar, y efectivamente, se cierra el mensaje. pero es muy molesto cada vez que se cierra el archivo, que salte la contraseña y tener que cerrarla.

Alguna solución al problema, muchas gracias

Share this post


Link to post
Share on other sites

Saludos @seleconex,

Hace 1 hora, seleconex dijo:

tengo un problema con un archivo Excel el cual cree una contraseña para que no se pueda visualizar la programación de las macros, etc.. 

primero que nada la contraseña que le "creaste" lo realizaste desde las propiedades del proyecto??? o realizas la implementación de una macro??, Segundo, como bien dice Tito anexa el archivo que tienes para que se pueda apoyarte.

O bien puedes utilizar un programa externo como LockXLS para proteger tus proyecto

Share this post


Link to post
Share on other sites

Buenos días de nuevo, y disculpar por el retraso en contestar, efectivamente, cuando se abre el archivo la aplicación lanza un UserForm, y pide una contraseña (8108). el problema esta como decía, que al cerrar el archivo, me sale la ventana de la contraseña del proyecto VBA, que dándole varias veces a cancelar se cierra, pero es muy incomodo. Si desactivo el UserForm desaparece el problema, es decir ya no me sale la ventana del contraseña de proyecto VBA al cerrar el archivo.

contraseña de proyecto (1234)

Nuevo Hoja de cálculo de Microsoft Excel.xlsm

Share this post


Link to post
Share on other sites
Hace 6 horas, seleconex dijo:

el problema esta como decía, que al cerrar el archivo, me sale la ventana de la contraseña del proyecto VBA, que dándole varias veces a cancelar se cierra, pero es muy incomodo.

Hola @seleconex estoy revisando tu archivo y no se en parte dices que aparece esa ventana de la contraseña del proyecto

explica con detalle que es lo que quieres hacer o en que apartado esta ese problema que cierras el archivo.

Porque yo lo he probado y no me manda nada de lo que menciona.

Share this post


Link to post
Share on other sites

He probado con un archivo nuevo, eliminando y volviendo a crear el formulario, forzando el status de cierre del libro y nada de nada, a ver si sacas algo en claro por aquí.

Busca en Google:

VBA password prompt when close excel

 

.

 

Share this post


Link to post
Share on other sites

Buenas tardes, el problema esta, después de abrir el archivo, cuando lo cierras aparece la ventana de contraseña del proyecto VBA, que dándole clic varias veces a cancelar desaparece, pero es molesto. adjunto captura de pantalla de lo que aparece.

contraseña.jpg

Share this post


Link to post
Share on other sites
Hace 46 minutos , seleconex dijo:

el problema esta, después de abrir el archivo, cuando lo cierras aparece la ventana de contraseña del proyecto ...

en tu código hay una línea comentada en el evento "ACEPTAR_Click" para cerrar el libro si la contraseña entrada es incorrecta, si el detalle que reportas es cuando la dejas activa (sin marca de comentario) ?, se deberá a que el libro es cerrado cuando un Userform está visible, para corregirlo, ASEGÚRATE de descargar (Unload <formulario>) cualquier formulario ANTES de cerrar "su" libro

saludos,
hector.

Share this post


Link to post
Share on other sites

Héctor si te fijas en el proyecto, después de introducir la contraseña correcta (8108) de descarga, veras la línea que dice:

Private Sub ACEPTAR_Click()

Dim valor As Integer

valor = Val(TextBox1) 'convierte el valor capturado en el Textbox
If Not valor = 8108 Then 'si el valor es diferente de 8108 entonces

MsgBox "CONTRASEÑA INCORRECTA" 'Manda el mensaje

TextBox1.Text = "" 'Esto limpia el Textbox

Me.TextBox1.SetFocus 'vuelve a poner el cursor en el TextBox

'ActiveWorkbook.Close savechanges:=False 'este código cierra automaticamente el libro sin guardar cambios

Else

Unload Me 'Descarga el formulario

Sheets("Hoja1").Select

End If

End Sub

Share this post


Link to post
Share on other sites
Hace 6 horas, seleconex dijo:

si te fijas en el proyecto, después de introducir la contraseña correcta (8108) de descarga, veras la línea que dice

cambiando el enfoque de mi comentario (parece que no se entiende o no lo leíste bien ?) y todo con relación a la linea comentada del código e ingresando una clave no autorizada...

  • si ejecutas el código tal como lo has expuesto (con la linea comentada)... se produce ese comportamiento ?
  • si quitas la marca a esa linea e ingresas una clave errónea... se produce ese comportamiento ?

saludos,
hector.

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png