Bonjour,
J'ai un classeur avec plusieurs feuilles identiques (une par commercial) que j'ai protégées grâce à une macro.
Cependant, j'aimerais que les utilisateurs puissent changer le format des cellules verrouillées, faire des tris et utiliser les filtres.
Étant novice en VBA, je n'arrive pas à le faire.
Voici ma macro:
Sub Verrouiller()
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Protect
Next i
End Sub
Sub Déverrouiller()
mdp = InputBox("Entrer le mot de passe :", "Déverrouillage de l'ensemble des Feuilles")
If mdp <> "COMPTA" Then
MsgBox "Erreur Mot de Passe ! Attention", vbCritical + vbOKOnly, "Erreur"
Exit Sub
End If
For i = 1 To Sheets.Count
Sheets(i).Unprotect PassWord:="COMPTA"
Next
End Sub
Merci d'avance pour votre aide
J'ai un classeur avec plusieurs feuilles identiques (une par commercial) que j'ai protégées grâce à une macro.
Cependant, j'aimerais que les utilisateurs puissent changer le format des cellules verrouillées, faire des tris et utiliser les filtres.
Étant novice en VBA, je n'arrive pas à le faire.
Voici ma macro:
Sub Verrouiller()
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Protect
Next i
End Sub
Sub Déverrouiller()
mdp = InputBox("Entrer le mot de passe :", "Déverrouillage de l'ensemble des Feuilles")
If mdp <> "COMPTA" Then
MsgBox "Erreur Mot de Passe ! Attention", vbCritical + vbOKOnly, "Erreur"
Exit Sub
End If
For i = 1 To Sheets.Count
Sheets(i).Unprotect PassWord:="COMPTA"
Next
End Sub
Merci d'avance pour votre aide
Dernière édition: