Note: The other languages of the website are Google-translated. Back to English

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

Como todos sabemos, en una hoja de trabajo protegida, existen muchas limitaciones para que apliquemos algunas operaciones. Por ejemplo, no podemos alternar entre datos agrupados y no agrupados. ¿Hay alguna forma de agrupar o desagrupar filas en una hoja de trabajo protegida?

Agrupar y desagrupar filas en una hoja de trabajo protegida con código VBA

Pestaña de Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil
Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%
  • Reutiliza cualquier cosa: Agregue las fórmulas, gráficos y cualquier otra cosa más utilizados o complejos a sus favoritos y reutilícelos rápidamente en el futuro.
  • Más de 20 funciones de texto: Extraer número de la cadena de texto; Extraer o eliminar parte de los textos; Convierta números y monedas a palabras en inglés.
  • Combinar herramientas: Varios libros de trabajo y hojas en uno; Fusionar varias celdas / filas / columnas sin perder datos; Fusionar filas duplicadas y suma.
  • Herramientas divididas: Divida los datos en varias hojas según el valor; Un libro de trabajo para varios archivos Excel, PDF o CSV; Una columna a varias columnas.
  • Pegar saltando Filas ocultas / filtradas; Cuenta y suma por color de fondo; Envíe correos electrónicos personalizados a varios destinatarios de forma masiva.
  • Súper filtro: Cree esquemas de filtros avanzados y aplíquelos a cualquier hoja; Ordenar por semana, día, frecuencia y más; Filtrar por negrita, fórmulas, comentario ...
  • Más de 300 potentes funciones; Funciona con Office 2007-2021 y 365; Admite todos los idiomas; Fácil implementación en su empresa u organización.

flecha azul burbuja derecha Agrupar y desagrupar filas en una hoja de trabajo protegida con código VBA

Tal vez, no hay otra buena manera de resolver este problema, pero usando un código VBA, haga lo siguiente:

1. Active la hoja de trabajo que desea usar, asegúrese de que la hoja de trabajo aún no esté protegida.

2. Luego mantenga presionado el ALT + F11 llaves, y abre el Ventana de Microsoft Visual Basic para aplicaciones.

3. Hacer clic recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.

Código de VBA: agrupe y desagrupe filas en una hoja de trabajo protegida

Sub EnableOutlining()
'Update 20140603
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
Dim xPws As String
xPws = Application.InputBox("Password:", xTitleId, "", Type:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = True
End Sub

4. Entonces presione F5 para ejecutar este código, y aparecerá un cuadro emergente para recordarle que ingrese la contraseña para proteger la hoja de trabajo actual. Ver captura de pantalla:

doc-group-in-protected-sheet1

5. Luego haga clic OK, su hoja de trabajo ha sido protegida, pero puede expandir y contraer los símbolos de contorno en esta hoja de trabajo protegida, vea la captura de pantalla:

doc-group-in-protected-sheet1

Nota:: Si su hoja de trabajo ya está protegida, este código no funcionará.


Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
officetab parte inferior
Comentarios (32)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
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.
Este comentario fue minimizado por el moderador en el sitio
Tengo el mismo problema, alguien sabe como solucionarlo. Muchas gracias
Este comentario fue minimizado por el moderador en el sitio
Necesita VBA para esto, y el usuario final deberá permitir macros para que esto funcione.

Presione Alt+F11 para activar el Editor de Visual Basic.

Haga doble clic en ThisWorkbook, en Objetos de Microsoft Excel en el explorador de proyectos en el lado izquierdo.

Copie el siguiente código en el módulo que aparece:



Private Sub Workbook_Open ()
Con Hojas de Trabajo("Resumen Emp")
.EnableOutlining = Verdadero
.Proteger UserInterfaceOnly:=Verdadero
End With
End Sub



Este código se ejecutará automáticamente cada vez que se abra el libro.
Este comentario fue minimizado por el moderador en el sitio
[cita] 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.por mayich[/quote]Ese asunto se resuelve como se muestra a continuación Private Sub Workbook_Open() Dim wsh As Variant For Each wsh In Worksheets(Array("Sheet1", "Sheet2")) wsh.EnableOutlining = True wsh.Protect Password:="260615" , DrawingObjects:=False, _ content:=True, _ Scenarios:=True, _ AllowFiltering:=True, _ AllowFormattingCells:=True, _ userinterfaceonly:=True Siguiente wsh End Sub
Este comentario fue minimizado por el moderador en el sitio
Tengo el mismo problema, tan pronto como cierro y vuelvo a ingresar a la hoja, no funciona ... proporcione paso a paso dónde y cómo usar. Ese asunto se resuelve a continuación. Private Sub Workbook_Open () Dim wsh As Variant For Each wsh In Worksheets(Array("Sheet1", "Sheet2")) wsh.EnableOutli ning = True wsh.Protect Password:="2606 15", DrawingObjects: =False, _ content:=True, _ Scenarios: =Verdadero, _ AllowFiltering:=Verdadero, _ AllowFormattingCells:=Verdadero, _userinterfaceonly:=Verdadero Siguiente wsh End Sub
Este comentario fue minimizado por el moderador en el sitio
Muchas gracias hermano, esto funciona muy bien. Muchas gracias.
Este comentario fue minimizado por el moderador en el sitio
¿Cómo conseguiste que esto funcionara? Intenté agregarlo al VBA anterior y crear un módulo diferente, pero aún no funciona. ¿Necesito cambiar alguno de los códigos? como mi contraseña que estoy usando o necesito cambiar los nombres de las hojas?
Este comentario fue minimizado por el moderador en el sitio
Tengo el mismo problema cuando cierro el libro. ¿Alguna idea para arreglarlo?
Este comentario fue minimizado por el moderador en el sitio
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
Este comentario fue minimizado por el moderador en el sitio
Todavía no estoy seguro de cómo funciona esto. ¿Hago un nuevo módulo o lo adjunto al de arriba?
Este comentario fue minimizado por el moderador en el sitio
¿Puedes hacer un recorrido paso a paso para saber dónde poner esto como lo hicieron en las instrucciones originales? Gracias.
Este comentario fue minimizado por el moderador en el sitio
¡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!!
Este comentario fue minimizado por el moderador en el sitio
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.
Este comentario fue minimizado por el moderador en el sitio
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.
Este comentario fue minimizado por el moderador en el sitio
¿Se ha preguntado/respondido? ¿En qué parte del código puede especificar/cambiar una contraseña personal?
Este comentario fue minimizado por el moderador en el sitio
¿Cómo puedo cambiar la contraseña a otro valor?
Este comentario fue minimizado por el moderador en el sitio
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
Este comentario fue minimizado por el moderador en el sitio
esto funciona un poco, una vez que cierras y vuelves a abrir, se detiene :(
Este comentario fue minimizado por el moderador en el sitio
Incluso para mí, ¿hay alguna otra solución?
Este comentario fue minimizado por el moderador en el sitio
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
Este comentario fue minimizado por el moderador en el sitio
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?
Este comentario fue minimizado por el moderador en el sitio
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.
Este comentario fue minimizado por el moderador en el sitio
¿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
Este comentario fue minimizado por el moderador en el sitio
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.
Este comentario fue minimizado por el moderador en el sitio
Hola... esto funcionó de maravilla. el único lugar donde me estoy atascando ahora es que necesito hacer esto para varias hojas en el libro de trabajo. ¿Puedes ayudarme con eso?
Este comentario fue minimizado por el moderador en el sitio
Esta cadena parecía ser exactamente lo que necesitaba, ya que no sé nada sobre VBA. Pude hacer que esto funcionara inicialmente, pero como se señaló, una vez que cierra la hoja de cálculo y la vuelve a abrir, ya no funciona. Traté de escribir el código en "ThisWorkbook" como se indica, pero no puedo encontrar la manera de hacerlo. Puedo ver "ThisWorkbook" pero no sé cómo escribir en él. De todas las formas que veo para crear un módulo, crea un nuevo módulo en una carpeta separada de "Módulos", fuera de la carpeta "Objetos de Microsoft Excel". ¿Alguna sugerencia sobre cómo poner este código en "ThisWorkbook"?
Este comentario fue minimizado por el moderador en el sitio
formidable
Este comentario fue minimizado por el moderador en el sitio
¿Cómo agrupar y desagrupar filas y columnas en una hoja de trabajo protegida?
Este comentario fue minimizado por el moderador en el sitio
Mierda, esto robó mi Excel más tarde y cambió la contraseña en privado
Este comentario fue minimizado por el moderador en el sitio
¿Hay alguna manera de hacer que esto funcione en un libro de trabajo compartido? - Necesito los cambios de pista, gracias
No hay comentarios publicados aquí todavía
Ver más
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Siganos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL