Private Sub Workbook_Open()
Sheets("RH").Protect "toto", UserInterfaceOnly:=True
Sheets("Tracking TBT").Protect "toto", UserInterfaceOnly:=True
Range("toutes_tbt").EntireColumn.Hidden = True
Sheets("Tracking Safety Meeting").Protect "toto", UserInterfaceOnly:=True
Sheets("Tracking Safety Meeting").Range("toutes_sf").EntireColumn.Hidden = True