Re : Gérer plusieurs Utilisateurs sur un même Classeur
Rebonjour à toutes et a tous,
J'ai adapter le code transmis par Michel qui est ci dessous :
code :
Private Sub workbook_open()
Dim mdp As String
Sheets("PAC").Activate
mdp = InputBox("Veuillez saisir votre Mot de Passe svp")
If mdp = "CP" Or mdp = "APPRO" Or mdp = "ASSIS" Or mdp = "x13241" Then
With ActiveSheet
.Unprotect
.Cells.Locked = True
End With
Select Case mdp
Case "CP"
Union(Range("A1:A5000"), Range("E1:E5000")).Locked = False
Case "APPRO"
Union(Range("B1:B5000"), Range("C1:C5000")).Locked = False
Case "ASSIS"
Union(Range("D1
5000"), Range("F1:F5000")).Locked = False
Case "x13241"
Range("A1:IV65000").Locked = False
End Select
End If
ActiveSheet.Protect
Call filtre
End Sub
Private Sub filtre()
Sheets("PAC").Activate
Feuil1.EnableAutoFilter = True
Feuil1.Protect contents:=True, userInterfaceOnly:=True
End Sub
Toutefois, je souhaiterai que lorsque le mot de passe saisie de correspond pas as CP, APPRO,ASSIS ou x13241, il y est un message qui dise un truc du style "Veuillez sasir svp un mot de passe correct".
Y a t'il une âme charitable pour m'aider svp?
Merci d'avance
Yochma23