Re : Trois utilisateurs, un fichier Excel...
Merci mais je n'ai pas mis de mot de passe pour la déprotection des feuilles...
En revanche j'ai mis un bouton qui demande un mot de passe pour afficher les feuilles du classeur (et c'est la le bug) avec le code suivant:
Sub AffichageF()
Dim i As Integer, MesSht As String, TSht() As String, ValBn As String
' Tableau des feuilles à AFFICHER/CACHER séparée par des virgule
MesSht = "Listesdéroulantes,Traités,En cours traitement,Non traités,Stats"
TSht = Split(MesSht, ",")
'
ActiveSheet.Unprotect
ActiveSheet.Shapes("BnAfficher").Select
ValBn = Selection.Characters.Text
If ValBn = "Afficher les feuilles" Then
' Demander le mot de passe
USF_Mdp.TextBox1.Value = ""
USF_Mdp.Show
If FlgOk = False Then
MsgBox "Mot de passe érroné !"
Exit Sub
End If
' Si OK, masquer les feuilles
For i = 0 To UBound(TSht)
Sheets(TSht(i)).Visible = xlSheetVisible
Next i
Selection.Characters.Text = "Masquer les feuilles"
Else
For i = 0 To UBound(TSht)
Sheets(TSht(i)).Visible = xlSheetVeryHidden
Next i
Selection.Characters.Text = "Afficher les feuilles"
End If
Range("A1").Select
ActiveSheet.Protect
End Sub
Mais honnetement c'est pas un mot de passe qui concerne directement la protection/déprotection (mot de passe facultatif qui est mis en place par EXCEL)