Souci avec macro dé(protéger) 53 feuilles et autorisations aux utilisateurs

[Pitchou]

Bonjour et mes meilleurs voeux 2019.

Voilà, j'ai réussi à trouver les deux macros via un forum qui me servent à dé(protéger) 53 feuilles avec MDP.

Mon souci est que du fait que j'ai donné certaines autorisations aux utilisateurs pour travailler dans ces feuilles, lorsque je fais travailler les deux macros, je perds les autorisations sélectionnées.

Comment puis je faire svp? Heu, je suis débutante en macro, donc soyez indulgents avec moi

Voilà les deux macros pour dé(protéger).

Sub Protéger()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Protect Password:="Chat"
Next i
End Sub


Sub Déverrouiller()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Unprotect Password:="Chat"
Next i
End Sub

Alors, mon souci est que j'ai chez moi pour l'instant la version Excel 2003 (il faut que je change de version je sais ) et que je bosse au boulot avec Excel 2016 et pour lequel concerne mon problème.

Heu, autre chose me vient si je peux avoir une autre aide.

Lorsque ces deux macros fonctionnent, elles me sélectionnent toutes les feuilles, mêmes celle où j'ai placé mes boutons alors que je ne voudrais pas que celle-ci se protège via la macro.

Comment faire?

Si quelqu'un à autre chose à me proposer.....

Merci.

[i20100]

Bonjour,

voici un exemple,

Code : Sélectionner et copier le code

Sub Protege()
'protection de la feuille active
With ActiveSheet
'permet filtre et grouper lignes et colonnes
    .EnableAutoFilter = True
    .EnableOutlining = True
    
    'pour les options de protection que vous ne désirer pas autoriser: changer True pour False
    .Protect Password:="", _
        DrawingObjects:=True, _
        Contents:=True, _
        Scenarios:=True, _
        AllowFormattingCells:=True, _
        AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, _
        AllowInsertingColumns:=True, _
        AllowInsertingRows:=True, _
        AllowInsertingHyperlinks:=True, _
        AllowDeletingColumns:=True, _
        AllowDeletingRows:=True, _
        AllowSorting:=True, _
        AllowFiltering:=True, _
        AllowUsingPivotTables:=True, _
        UserInterfaceOnly:=True
 End With
End Sub

[Pitchou]

Bonjour i20100 et merci pour votre réponse.
Je n'ai pas tout suivi.
Pas le fait que cela soit mal expliqué mais le fait que je débute.
Dans la traduction de ce qu'il se trouve dans votre liste, je n'ai pas trouvé le "insérer un commentaire" lorsque l'on fait un clic droit où dans lorsqu'on sélectionne "protéger la feuille" et que je coche "modifier les objets" qui permet lui d'insérer un commentaire.
Par contre, lorsque je voulais écrire avec un := il me disait qu'il y avait une erreur ainsi qu'avec la virgule après True.
Lorsque je pourrais j'essaierai de montrer un exemple quelconque.