Merci m3ellem1 pour cette solution, pour préciser il ne faut rien mettre avant d'utiliser protect.
Par contre y a un truc qui m’intrigue, en mode exclusif tous marche parfaitement. Mais quand je partage le fichier un message d'erreur apparais a l'ouverture.
Selon le débogage ( Columns et Range ) semble causé l'erreur.
Private Sub Workbook_Open()
ActiveSheet.Protect "Delta!7604@", UserInterfaceOnly:=True
Range("Q:AC").EntireColumn.Hidden = True
Range("C5:IJ1004").Locked = True
Dim mot_de_passe As String
mot_de_passe = InputBox("MOT DE PASSE SESSION")
GoTo MDPS
MDPX:
mot_de_passe = InputBox("MOT DE PASSE INCORRECT ESSAYER DE NOUVEAU")
MDPS:
If mot_de_passe = "NTA5653" Then
Range("Q:AC,AD:BN,BO:CY,CZ:EJ,GR:GW,IB:IF").EntireColumn.Hidden = False
Range("C5:G1004,I5:I1004,L5:L1004,N5:P1004,FX5:FY1004,GY5:GZ1004,IH5:IH1004").Locked = False
Exit Sub
End If
If mot_de_passe = "NTO1533" Then
Columns("Q:AC").EntireColumn.Hidden = False
Exit Sub
End If
End Sub