[ Excel VBA ] Quitar contraseña en tiempo de ejecucion (conociendo la contraseña)

[hugo180486]

Hola Buenos Dias, espero alguien pueda ayudarme con este gran problema, de antemano agradesco la ayuda que puedan brindarme, busque por el foro temas de quitar contraseña de un de proyectos de Excel con Macros, y viene bastante pero todos son del tipo me pasaron un Excel con clave y me urge quitarla...

Explico que ese no es mi caso ya que yo conozco la clave de mi proyecto de Excel, pero mi necesidad surge ah raiz de que mi archivo de Excel esta muy pesado pesa como 50MB (Quitando los UserForm pesa 25 MB), por ende es muy lento de manejar, la solucin que se nos ocurrio fue Exportar e Importar los UserForm a medida que los ocupemos y desocupemos, el problema es que si la hoja la tienes protegida con contraseña me marca que el Libro esta protegido y no me deja hacer, tengo que darle ALT + F11 pasar a donde te muestra el codigo y poner la contrase;a y volver ejecutar, como esto lo van a usar los usuarios, y pues la contrae;a es una proteccion contra elllos, quisiera saber si es posible quitarle la contrase;a y ponerla en tiempo de ejecucion...

Como cuento con un UserForm pricipal, la idea es que cuando se cargue el UserForm se desporteja y cuando se descargue se proteja para que no puedan ingresar al codigo...

Saludos espero que alguien tambien haya tenido el mismo inconveniente que yo y pueda prestarme ayuda...

[abrahamvj]

Supongo que te refieres a la contraseña del proyecto VBA. Aqui un buen ejemplo de como hacerlo:

http://www.ayudaexcel.com/foro/f10/%...ht=desproteger

Abraham

[hugo180486]

Asi es Abrham a eso me refiero, Gracias por ocntestar pero quede igual, por que el en el link que me pasaste el usuario adjunta un zip con el codigo necesario, y ese zip no lo pude descargar, me arroja lo siquiente :
ERROR
The requested URL could not be retrieved

Saludos...

[abrahamvj]

Es el firewall del lugar en donde estas. 100% seguro, acabo de probabrlo y baja normal

Abraham

[hugo180486]

Si seguro es eso... Intentare cuando llegeue a mi casa para no tener reestrcciones.. Gracias...

Encontre lo siguiente:

Código vb:

Sub Proteger_VBProject(ByRef wbExcel As Workbook, ByVal sPassword As String)
 
Dim vbProj As Object
 
Set vbProj = wbExcel.VBProject
 
'can't do it if already locked!
If vbProj.Protection = 1 Then Exit Sub
 
Set Application.VBE.ActiveVBProject = vbProj
 
' now use lovely SendKeys to set the project password
SendKeys "+{TAB}{RIGHT}%V{+}{TAB}" & sPassword & "{TAB}" & _
sPassword & "~"
 
Application.VBE.CommandBars(1).FindControl(id:=2578, recursive:=True).Execute
 
Set vbProj = Nothing
 
End Sub
 
Sub Desproteger_VBProject(ByRef wbExcel As Workbook, ByVal sPassword As String)
 
Dim vbProj As Object
 
Set vbProj = wbExcel.VBProject
 
'can't do it if already unlocked!
If Not vbProj.Protection = 1 Then Exit Sub
 
Set Application.VBE.ActiveVBProject = vbProj
 
' now use lovely SendKeys to quote the project password
SendKeys sPassword & "~~"
Application.VBE.CommandBars(1).FindControl(id:=2578, recursive:=True).Execute
 
Set vbProj = Nothing
 
End Sub
 

Encontre el siguiente el codigo es de estaa pagina:
http://www.pcreview.co.uk/forums/thread-987585.php

Si funciona bien, desprotege tal como yo queria, y ya no me marca error, el detalle es al protegerlo, si tu llamas al procedimiento de Proteger despues guardas y abres el libro, si esta protegiodo, te pide la contrase;a como debiera de ser, es decir la contrase;a que pide al intentar expandir el explorador de proyectos, osea que si funcioan.

Pero el detalle es si llamas al procedimiento de proteger, y despues infresas al Edidor de Visual Basic, ene se caso no te pide la contrase;a y el proyecto queda expuesto, y es lo que no quiero... Por que hara esto?

AProvecho para preguntarte Abrhama si eres tana amable, sabes si el Excel se puede configurar para que no puedan entrar al Editor de Visual Basic, o solo ciertas perosnas puedan hacerlo?

Saludos, posteo el codigo por si alguien le sirve asi...,

PD, el ejemplo que me pasaste lo reviso mas noche, pues aui no puedo, y la verdad si quiero solucionar esto de ya... Gracias...