Hide Show columns by vba

You never rest, do you...?
But I am happy to see your loyalty in replying to me and I thank you from the bottom of my heart.
Unless I'm mistaken, I will have one last question in a few days.
I wish you a good night.

Hello

1) Unlock all cells in the sheet (right-click on the triangle at the top right between the title bars - Format Cells - Protection - Uncheck Locked)

2) Protect the sheet with a password, e.g., abcd
(Review tab - Protect Sheet)

3) Open the VBA editor with ALT+F11 then Insert - Module
Copy and paste the following macros into the blank page

Sub Hide() 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 Unhide() 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

Replace abcd in the macros with the code used for sheet protection before closing the editor

The macros can be run from the Developer tab - Macros where you can assign a keyboard shortcut of your choice in Options

Best regards
Via
--
"Imagination is more important than knowledge." A. Einstein

Hello via,
Isn't there a trick to ensure that the MP doesn't appear as "clear" in the code?
Thank you.

Hello jean300,

I suggest this VBA code:

 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 

⚠️ The lines #6 and #7 should be in one line.

Run this macro to hide the columns; then run it again to show the same columns.

Best regards

Hello Lucien,
Thank you for your solution, which I take note of.
Looking forward to it.