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

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Pitchou
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 16 janvier 2019
Version d'Excel : Excel 2016

Message par Pitchou » 16 janvier 2019, 19:31

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 :lole:

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 :lole: :lole: ) 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. :wink:
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 4'182
Appréciations reçues : 177
Inscrit le : 16 mars 2017
Version d'Excel : 2010 sur PC

Message par i20100 » 17 janvier 2019, 06:52

Bonjour,

voici un exemple,
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
Si le problème est résolu, pensez au clic sur le bouton
isabelle
Avatar du membre
Pitchou
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 16 janvier 2019
Version d'Excel : Excel 2016

Message par Pitchou » 17 janvier 2019, 14:59

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.
:lole:
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message