Protección de multiples hojas

Tengo un libro con 17 hojas y en cada pagina tengo iguales columnas que se
ocultan y se muestran con botones de mi barra de herramientas personalizada.
Cuando le doy protección a las hojas (que incluye una contraseña y
deshabilitación de'seleccionar celdas protegidas') mi boton-macro-mostrar
columnas me pide la contraseña (que es lógico) pero al ocultar las columnas
con mi boton-macro ocultarcolumnas se deshabilita la contarseña y se vuelve a
habilitar 'selección de celdas protegidas' aunque la hoja actual (celdas)
queda protegida.

Mis macros de ocultar y mostrar las columnas son :

Sub MostrarColumnasAreas()
ActiveSheet.Unprotect
Columns("E:AD").Select
Selection.EntireColumn.Hidden = False
ActiveCell.CurrentRegion.Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True _
, AllowFormattingColumns:=True
End Sub

Sub MostrarColumnasAreas()
ActiveSheet.Protect
Columns("E:AD").Select
Selection.EntireColumn.Hidden = False
ActiveCell.CurrentRegion.Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True _
, AllowFormattingColumns:=True
End Sub
Como puedo hacer mediante codigo en mis macros para que cada vez que uso mis
botones de ocultar o mostrar no se 'pierda' la contraseña y quede
deshabilitado 'seleccion de celdas protegidas' ?

Hola Racso,

Tendras que incluir tu contrasena en el codigo.

Opcion 1: Tus macros modificadas.

'en un modulo estandar
Const clave = "abracadabra"

Sub MostrarColumnasAreas()
With ActiveSheet
.Unprotect clave
.Columns("E:AD").Hidden = False
.Protect clave, , , , False
End With
End Sub

Sub OcultarColumnasAreas()
With ActiveSheet
.Unprotect clave
.Columns("E:AD").Hidden = True
.Protect clave, , , , False
End With
End Sub
'en un modulo estandar

Opcion 2. Usando el evento Workbook_Open y el parametro UserInterfaceOnly del metodo Protect:

'en el modulo ThisWorkbook (EsteLibro)
Private Sub Workbook_Open()
Worksheets("Hoja3").Protect _
password:="abracadabra", _
UserInterfaceOnly:=True
End Sub
'en el modulo ThisWorkbook (EsteLibro)

'en un modulo estandar
Sub MostrarColumnasAreas()
ActiveSheet.Columns("E:AD").Hidden = False
End Sub

Sub OcultarColumnasAreas()
ActiveSheet.Columns("E:AD").Hidden = True
End Sub
'en un modulo estandar


Saludos,
KL


"Racso" wrote in message news:
> Tengo un libro con 17 hojas y en cada pagina tengo iguales columnas que se
> ocultan y se muestran con botones de mi barra de herramientas personalizada.
> Cuando le doy protección a las hojas (que incluye una contraseña y
> deshabilitación de'seleccionar celdas protegidas') mi boton-macro-mostrar
> columnas me pide la contraseña (que es lógico) pero al ocultar las columnas
> con mi boton-macro ocultarcolumnas se deshabilita la contarseña y se vuelve a
> habilitar 'selección de celdas protegidas' aunque la hoja actual (celdas)
> queda protegida.
>
> Mis macros de ocultar y mostrar las columnas son :
>
> Sub MostrarColumnasAreas()
> ActiveSheet.Unprotect
> Columns("E:AD").Select
> Selection.EntireColumn.Hidden = False
> ActiveCell.CurrentRegion.Select
> ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
> Scenarios:=True _
> , AllowFormattingColumns:=True
> End Sub
>
> Sub MostrarColumnasAreas()
> ActiveSheet.Protect
> Columns("E:AD").Select
> Selection.EntireColumn.Hidden = False
> ActiveCell.CurrentRegion.Select
> ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
> Scenarios:=True _
> , AllowFormattingColumns:=True
> End Sub
> Como puedo hacer mediante codigo en mis macros para que cada vez que uso mis
> botones de ocultar o mostrar no se 'pierda' la contraseña y quede
> deshabilitado 'seleccion de celdas protegidas' ?
>
>

Cual es la función del argumento/método
"UserInterfaceOnly:=True" ?

Hola Racso,

> Cual es la función del argumento/método
> "UserInterfaceOnly:=True" ?

Este argumento hace que sea posible manejar los objetos de la hoja mediante macros como si no estuvieran protegidos mientras que de
cara al usuario sigue protegida.

Saludos,
KL

Hola KL,

Va muy bien tu ayuda . . .
pero tengo otro boton en mi barra de herramientas que tiene la macro
indicada mas abajo. El fin de esta macro es seleccionar dentro de un rango
fijo las primeras filas con datos y ordenarlas de mayor a menor segun la
columna/celda CJ18
El problema es que no es posible seleccionar el rango que se va a ordenar.
Que esta mal en esta macro?
Sub Ordenar0101()
Dim Rng As Range
Set Rng = Application.InputBox(prompt:="SELECCIONE EL RANGO A ORDENAR -
EL RANGO DEBE INCLUIR LA FILA DE TITULOS Y LA ULTIMA FILA CON DATOS", Type:=8)
Rng.Select
Selection.Sort Key1:=Range("CJ18"), Order1:=xlDescending,
Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("CJ16").Select
End Sub

Gracias otra vez

Oscar Menacho
Lima-Perú


"KL" escribió:

> Hola Racso,
>
> > Cual es la función del argumento/método
> > "UserInterfaceOnly:=True" ?
>
> Este argumento hace que sea posible manejar los objetos de la hoja mediante macros como si no estuvieran protegidos mientras que de
> cara al usuario sigue protegida.
>
> Saludos,
> KL
>
>