Esto parece funcionar muy bien, pero cuando cierro y vuelvo a abrir el libro de trabajo, me encuentro con el mismo problema: no puedo expandir mis grupos colapsados.

Muchas gracias hermano, esto funciona muy bien. Muchas gracias.

Tengo el mismo problema cuando cierro el libro. ¿Alguna idea para arreglarlo?

Private Sub Workbook_Open() Dim wsh como variante para cada wsh en hojas de trabajo (Array ("TD_ fase_3", "RS_Phase_2")) wsh.EnableOutlining = True wsh.Protect Password:="260615", DrawingObjects:=False, _ contenidos: =Verdadero, _ Escenarios:=Verdadero, _ Permitir filtrado:=Verdadero, _ Permitir formatear celdas:=Verdadero, _ Solo interfaz de usuario:=Verdadero Siguiente wsh End Sub

¡Hola! Usé la primera macro con éxito y luego tuve el mismo problema de cerrar el libro y la macro ya no funcionaba. Veo la solución anterior, pero no puedo hacer que funcione en absoluto. ¿Te importaría pasarme? ¿Combino ambos códigos o solo uso el último? Si mi contraseña es "perro", ¿reemplazo uno de los valores en el código? Solo estoy solicitando una hoja de trabajo ("Hoja1"); ¿Lo uso en cualquier lugar? ¡¡Muchas gracias de antemano!!

Por favor ayúdenme, quiero colapsar y expandir algunos rollos y columnas en una hoja de cálculo de Excel que está protegida. ¿Cómo puedo usar macros para hacer esto? Probé lo que mostraste, pero simplemente no funcionan en mi hoja de cálculo. Por favor ayuda.

Hola, ayúdenme a expandir y contraer rollos y columnas en una hoja de cálculo de Excel que está protegida. Intenté usar los que mostraste arriba pero no funcionan.

¿Se ha preguntado/respondido? ¿En qué parte del código puede especificar/cambiar una contraseña personal?

¿Cómo puedo cambiar la contraseña a otro valor?

Cuando uso el comando, veo un mensaje de error como se muestra a continuación:
Private Sub Workbook_Open ()
Dim wsh como variante
Para cada wsh en hojas de trabajo (Array ("TD_ fase_3", "RS_Phase_2"))
wsh.EnableOutlining = Verdadero
wsh.Contraseña de protección:="260615", Objetos de dibujo:=Falso, _
contenido:=Verdadero, _
Escenarios:=Verdadero, _
Permitir Filtrado:=Verdadero, _
AllowFormattingCells:=Verdadero, _
solo interfaz de usuario: = Verdadero
Siguiente wsh
End Sub
Error de tiempo de ejecución '9':
Subíndice fuera de rango

esto funciona un poco, una vez que cierras y vuelves a abrir, se detiene :(

Sublibro de trabajo_Abrir()
'Actualiza 20140603
Dim xWs como hoja de trabajo
Establecer xWs = Application.ActiveSheet
Dim xPws como cadena
xPws = "rfc" ''Aplicación.InputBox("Contraseña:", xTitleId, "", Tipo:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = Verdadero
End Sub

He conseguido que este código funcione. Pero cuando cierro y vuelvo a abrir debo ir a la pestaña de desarrollador, seleccionar el botón de macros, seleccionar ejecutar e ingresar la contraseña.

¿Hay alguna manera de eliminar la contraseña del código O un código de ejecución automática que ejecutará automáticamente este marco e ingresará la contraseña?

Para solucionar el problema de que esto no funcione en su archivo después de haberlo cerrado y vuelto a abrir, debe pegar el código VBA en "ThisWorkbook" en Objetos de Microsoft Excel en lugar de un nuevo módulo. Esto ejecutará automáticamente la macro cada vez que se abra el archivo.

¿Tiene elementos visuales para el Código VBA discutido hace 6 días para peachyclean sobre ThisWorkbook en Microsoft Objects en lugar de un nuevo módulo? La funcionalidad se pierde cuando vuelvo a mi libro de trabajo

Alguien podría necesitar esto, creo que descubrí cómo hacer que esto funcione.

Primero, su código debe escribirse en "ThisWorkbook" en Objetos de Microsoft Excel, como sugiere @peachyclean.
En segundo lugar, tome el código que escribió @Sravanthi y péguelo en la ubicación mencionada anteriormente.

Sublibro de trabajo_Abrir()
'Actualiza 20140603
Dim xWs como hoja de trabajo
Establecer xWs = Application.ActiveSheet
Dim xPws como cadena
xPws = "rfc" ''Aplicación.InputBox("Contraseña:", xTitleId, "", Tipo:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = Verdadero
End Sub

La cuestión es que debe estar en la hoja que desea proteger pero que permite usar la agrupación, y guardar el libro de trabajo y cerrar, sin proteger. Ahora, si lo abre, la macro se inicia automáticamente, hará que la hoja esté protegida con la contraseña "rfc". Ahora puede usar la agrupación, la hoja está protegida.

Para mi solución, modifiqué la contraseña aplicada, por lo que puede volver a escribir cualquier contraseña AQUÍ:
xPws = "ESCRIBAYCONTRASEÑAAQUÍ" ''Aplicación.InputBox("Contraseña:", xTitleId, "", Tipo:=2)

Además, no quería que la hoja a proteger estuviera activa al abrir el archivo, por lo que he modificado esta parte:
Establecer xWs = Aplicación.ActiveSheet ->
Establezca xWs = Application.Worksheets("ESCRIBA EL NOMBRE DE LA HOJA AQUÍ")

Ahora funciona de maravilla, la hoja denominada 'WRITEANYSHEET'SNAMEHERE' está protegida pero la agrupación es aplicable. A la larga, creo que el problema será que si quiero modificar este archivo y mantener la solución, tendré que desproteger esta hoja para que funcione en la próxima apertura. Supongo que puedes escribir otra macro para desproteger automáticamente al cerrar :)


Espero que haya ayudado.

formidable

¿Cómo agrupar y desagrupar filas y columnas en una hoja de trabajo protegida?

Mierda, esto robó mi Excel más tarde y cambió la contraseña en privado