Prevent columns being hidden

[Godders199]

Hello, I have been looking but cannot find the answer to what i am looking to achieve.

Is there any code that will prevent users hidding columns on a worksheet, I do not want to protect the whole sheet, but am finding different users hide different columns which then causes problems for others.

I have added in code to unhide all columns on refreshing and saving, but wondered if there was code just to prevent columns being hidden in first place.

thanks

 

[Yongle]

This unhides all hidden columns when a different cell is selected
Put in SHEET module
(right click on Tab name \ View Code)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    UsedRange.EntireColumn.Hidden = False
End Sub

 

[Yongle]

Or
UnHide the columns whenever the file is saved with

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Sheets("MySheetName").UsedRange.EntireColumn.Hidden = False
End Sub

 

[Yongle]

I should have mentioned that the code to unhide at time of saving must be placed in ThisWorkbook module

 

[Godders199]

thanks for your help