Sub Consulter_Données() Application.ScreenUpdating = False
mdp = InputBox("Entrer mot de passe :", "Activation de la protection des feuilles")
If mdp <> "loulou" Then
MsgBox "Mot de passe incorrect", vbCritical + vbOKOnly, "Erreur"
Exit Sub
End If
ThisWorkbook.Unprotect "loulou"
With Worksheets("DONNEES")
.Visible = xlSheetVisible
.Activate
.Unprotect "loulou"
End With
ThisWorkbook.Protect "loulou"
End Sub