Esconder Mostrar columnas por VBA

Definitivamente no te tomas un descanso nunca... ?
Pero me alegra ver tu fidelidad al responderme y te lo agradezco de todo corazón.
Si no me equivoco, tendré una última pregunta dentro de unos días.
Te deseo buenas noches.

Hola

1) Desbloquear todas las celdas de la hoja (clic derecho en el triángulo en la esquina superior derecha entre las pestañas de título - Formato de celdas - Protección - Desmarcar Bloqueada

2) Proteger la hoja con una contraseña, por ejemplo abcd
(Pestaña Revisar - Proteger Hoja)

3) Abrir el editor de VBA con ALT+F11 y luego Inserción - Módulo
Copiar y pegar las siguientes macros en la página en blanco

Sub Mascar() ActiveSheet.Unprotect "abcd" Columns("C:E").Select Selection.EntireColumn.Hidden = True Columns("J:M").Select Selection.EntireColumn.Hidden = True Columns("O:Q").Select Selection.EntireColumn.Hidden = True Columns("S:U").Select Selection.EntireColumn.Hidden = True Columns("X:AF").Select Selection.EntireColumn.Hidden = True ActiveSheet.Protect "abcd" End Sub Sub Desmascar() ActiveSheet.Unprotect "abcd" Columns("C:E").Select Selection.EntireColumn.Hidden = False Columns("J:M").Select Selection.EntireColumn.Hidden = False Columns("O:Q").Select Selection.EntireColumn.Hidden = False Columns("S:U").Select Selection.EntireColumn.Hidden = False Columns("X:AF").Select Selection.EntireColumn.Hidden = False ActiveSheet.Protect "abcd" End Sub

Reemplazar en las macros el abcd por el código utilizado para la protección de la hoja antes de cerrar el editor

Las macros se inician desde la pestaña Desarrollador - Macros donde puedes en Opciones asignarles el atajo de teclado de tu elección

Cdlmnt
Via
--
"La imaginación es más importante que el conocimiento."    A. Einstein

Hola Via,
¿No habría algún truco para que el MP no aparezca en "calir" en el código?
Agradeciéndote.

Hola jean300,

Te propongo este código VBA:

 Option Explicit Sub ColsHideShow() ActiveSheet.Unprotect "abcd" Range("C:E, J:M, O:Q, S:U, X:AF").Columns.Hidden = Not Columns("C").Hidden ActiveSheet.Protect "abcd" End Sub 

⚠  Las líneas #6 y #7 deben estar en una sola línea.

Ejecuta esta macro para ocultar las columnas; luego ejecútala
de nuevo para mostrar las mismas columnas.

Un saludo

Hola Lucien,
Mis agradecimientos por tu solución de la que tomo nota.
Con gusto.