............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Macro para colocar contraseña de estructura

Ver el tema anterior Ver el tema siguiente Ir abajo

Macro para colocar contraseña de estructura

Mensaje por moises melgar el Lun Ago 30, 2010 4:05 pm

hola Foro
Me gustaria saber como insertar una macro para colocarle una proteccion de estructura en el libro de excel pero que sirva con password (que yo le pueda escoger una )
y otra que lo desproteja.

De mientras investigare por mi parte como hacerla por que apenas la comenzare a experimentar.
si logro como hacerlo de mi parte lo publicare.

Muchas gracias
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 531
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Macro para colocar contraseña de estructura

Mensaje por GalileoGali el Lun Ago 30, 2010 8:42 pm

Te sugiero grabar una macro.
Aclaración: no existe la posibilidad de que la password de proteger sea distinta a la de desproteger

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Macro para colocar contraseña de estructura

Mensaje por moises melgar el Lun Ago 30, 2010 8:48 pm

Como lo mencione antes y siguiendo los consejos de gali, solo grabe la macro y esto es lo que resulto:

Código:

Sub protegerestructura()
' protegerhoja Macro
    ActiveWorkbook.Protect Structure:=True, Windows:=False
End Sub

Sub desprotegerestructura()
'desprotegerhoja Macro
    ActiveWorkbook.Unprotect
End Sub

y fin, solo pensaba en la opcion de poder cambiarle la contraseña desde VBa, pero de todos modos la opcion sencilla siempre es la mas conveniente.
(aprete el boton de gracias por la respuesta de gali)
Pd esto fue para solo proteccion de estructura no proteccion de hoja (solo fue para que no cambien el aspecto de mi libro, no para que no puedan escribir en el )
Este es para la proteccion de las hojas (no permito que escriban en las hojas)

Código:
Sub PROTECCION()
 
Sheets("Hoja1").Select
ActiveSheet.Protect "tucontraseña"
End Sub
 
Sub DESPROTEGER()
Sheets("Hoja1").Select
ActiveSheet.Unprotect "tucontraseña"
 End Sub

y pueden complementar seleccionando cuales celdas quiere que se bloqueen y todo con la grabadora de macros.

Pero en si hay una que me gusta es esta:

Código:
Private Sub Worksheet_Activate()
ActiveSheet.ScrollArea = "c12:c145"
Range("c12").Select
End Sub

que solo te permite moverte por este rango, se coloca dentro de la hoja donde se desee que funcione.

gracias



Última edición por moises melgar el Miér Sep 01, 2010 2:34 pm, editado 1 vez
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 531
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Macro para colocar contraseña de estructura

Mensaje por kurupc el Mar Ago 31, 2010 8:34 pm

Muchas gracias moises melgar por estos aportes, me viene super bien la última ...

Código:
Private Sub Worksheet_Activate()
ActiveSheet.ScrollArea = "c12:c145"
Range("c12").Select
End Sub

para un proyecto que estoy desarrollando. Muchas gracias nuevamente por la claridad en tus explicaciones, no pierdas esa cualidad.

kurupc

Masculino Cantidad de envíos : 20
Edad : 47
Ciudad - Pais : Argentina
Version de Excel : 2003-2007
Fecha de inscripción : 12/04/2010

Volver arriba Ir abajo

Re: Macro para colocar contraseña de estructura

Mensaje por GalileoGali el Mar Ago 31, 2010 11:00 pm

ActiveSheet.Protect "tucontraseña"
Sin parentesis

ActiveSheet.UnProtect "tucontraseña"

sin paréntesis


Última edición por GalileoGali el Miér Sep 01, 2010 5:59 pm, editado 1 vez

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Macro para colocar contraseña de estructura

Mensaje por moises melgar el Miér Sep 01, 2010 2:36 pm

gracias Gali corregido
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 531
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Macro para colocar contraseña de estructura

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.