PROTEGER HOJA CON SUBTOTALES

Hola :-)

HOLA ...
ALGUIEN ME PUEDE APOYAR, EN UNA HOJA COLOQUE SUBTOTALES EL DETALLE ES QUE AL
QUERER PROTEGERLA NO ME DEJA MOVER LAS CASILLA DE + PARA MOSTRAR SE
PUEDE PROTEGER CON ESTA OPCION???
SALUDOS Y DE ANTE MANO GRACIAS

No escribas en mayuscula que no se entiende nada y prueba el siguiente
codigo » cortesia de hector miguel »

'[]

Sub test1()

With Worksheets("Hoja1")
.Protect Password:="123", UserInterfaceOnly:=True
.EnableOutlining = True
End With

End Sub
'[]


o tambien podrias utilizar el siguiente si le añadimos al codigo la
siguiente linea:

'[]

Sub test2()

With Worksheets("Hoja1")
.Protect Password:="123", UserInterfaceOnly:=True
.EnableOutlining = True
.Outline.ShowLevels RowLevels:=3

End With

End Sub

O tambien podriamos hacer lo siguiente:

'[]

Sub test3()

With Sheets("hoja1")
.Unprotect
.EnableOutlining = True
.Protect Contents:=True, UserInterfaceOnly:=True
.Outline.ShowLevels RowLevels:=3

End With

End Sub


'[]

Comentanos ok? :-)

Saludos
Monica




Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]

www.fermu.com