Foro Excel

Hola a todos

Por favor, me pueden ayudar a colocar el password que me pide el libro al abrirlo?
es: SILVIA.

adjunto el archivo, la macro se trata de desproteger la hoja, para marcar que permita los autofiltros y volver a proteger.

este es el codigo, yo hice lo del filtro, y el resto lo copie de la web, que es para permitir agrupar y desagrupar en hojas protegidas.. no se donde se colocaria el pass que me pide al abrir el archivo.

Private Sub Workbook_Open()
With Worksheets("base")
.EnableOutlining = True
.Protect Password:="SILVIA", _
Contents:=True, UserInterfaceOnly:=True
ActiveSheet.Unprotect
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
End With

End Sub



muchas gracias a todos.

Silvia

Buenas tardes, Silvia...

Coloca la siguiente instruccion al iniciar el Sub:
ActiveSheet.UnProtect Password:="silvia" (Esto desprotejera la hoja con la clave "Silvia"

Coloca la siguiente instruccion antes de terminar el Sub:
ActiveSheet.Protect Password:="silvia" (Esto protejera la hoja con la clave "Silvia"

Quedaria algo asi:

Sub Macro()
ActiveSheet.UnProtect Password:="silvia"

x>ZXZ
>ZXZX
>ZXZX
>ZXZ>
"·$&/(/)()(()

ActiveSheet.Protect Password:="silvia"
End Sub

Espero te sirva...

Hola Angel88657

gracias por la ayuda, pero no me sale .

te comento.
al proteger la hoja, las opciones de Agrupar y desagrupar no me funcionaban, entonces encontré esta macro en la Web (claro que yo le cambie los datos de hoja y Password)

Private Sub Workbook_Open()
With Worksheets("base")
.EnableOutlining = True
[color=#BF40FF] .Protect Password:="SILVIA", _
Contents:=True, UserInterfaceOnly:=True
End With
End Sub[/color]

Con eso, cuando abria el archivo, la hoja seguía protegida, y me permitia agrupar y desagrupar..
(del menu Datos/Agrupar y Esquema/Agrupar)

Pero no me di cuenta que tampoco funcionaban los filtros... y la única forma de hacerlo era quitar la protección, marcar que permita autofiltro y volver a proteger... si cerraba el libro, al volver a abrir tenia que hacer lo mismo... asi que grabé una macro que hiciera eso, y la agregué a la anterior.. Funciona bien, pero me pide el password, y si por error esta en minúscula, o con otro error, entra al depurador... por eso quiero que la macro incluya el password... no se si me dejo entender....

muchas gracias por la atención y la ayuda prestada..

Saludos,
Silvia

Ya me salió después de tanto probar...

Private Sub Workbook_Open()

With Worksheets("base")
.EnableOutlining = True
.Protect Password:="SILVIA", _
Contents:=True, Scenarios:=True, AllowFiltering:=True, UserInterfaceOnly:=True

End With

End Sub

agregué : Scenarios:=True, AllowFiltering:=True en la línea 3



SAludos
Silvia