Protéger un classeur avec filtre possible
m
Bonjour,
J'ai mis les 2 macros suivantes dans Excel pour protéger mes classeurs mais impossible pour les utilisateurs de filtrer le contenu des tableaux ; Comment puis-je résoudre ce problème ?
Sub ProtegeTout()
For Each Feuil In Application.Sheets
Feuil.Protect ("motdepasse")
Next Feuil
End Sub
Sub DeprotegeTout()
Application.ScreenUpdating = False
For Each Feuil In Application.Sheets
Feuil.Unprotect ("motdepasse")
Next Feuil
Application.ScreenUpdating = True
End Sub
Merci beaucoup.
Bonjour,
Si ta feuille se nomme Feuil1 et le mot de passe est callas tu peux utiliser ceci sinon il faut changer les noms
A mettre dans le module ThisWorkbook.
Private Sub Workbook_Open()
Feuil1.EnableAutoFilter = True
Feuil1.Protect Password:="callas", Contents:=True, UserInterfaceOnly:=True
End SubSalut le forum
Un bout de code
Sub ProtegeTout()
Dim Sh As Worksheet
For Each Sh In Application.Sheets
Sh.Protect _
Password:="toto", _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True, _
AllowFiltering:=True
Next Sh
End SubMytå