Macro protection de feuille avec mots de passe

[popof]

Bonjour le forum
Bonjour les zens 🙂


Ma petite question du jour, pour protéger une feuille version Macro, je sais faire ( enfin l'enregistreur m'a dit de faire )

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True, AllowUsingPivotTables:=True

Moi je suis d'accord avec lui oui mais voilà, je n'arrive pas à mettre un mot de passe à cette protection 😱 et pourtant vous jure g cherché 😱

D'avance merci

 

[PascalXLD]

Bonjour

AJoute au bout (mais as-tu vraoment besoin de tout??)

password:='Toto'

Bon courage

 

[popof]

Bonjour pascal76

mais as-tu vraoment besoin de tout??)

Disons que je veux que les utilisateurs aient le possibilités de filtrer 🙂

Bon je mets le code et me donne une claque g tout essayer sauf ça 😱 des fois je m'en veux :whistle:

 

[popof]

re pascal76 🙁

Bon ok pour l'activation mais pour la désactivation le :

Activesheets.unprotect,password:='popof' ça marche pô 😱

 

[Creepy]

Hello à vous,

Aller un petit tours dans l'aide VBA et ....

Roulement de tambours .....

expression.Unprotect(Password)

++

Creepy

 

[popof]

Re pascal76, Creepy

faites sonner trompette et clairons

ça marcheuuuuuuuuuuu :woohoo:

 

[popof]

Re creepy, pascal76

Bon j'arrête la musique, le test sur un fichier tiers c ok mais sur mon fichier 'pro' (j'aime bien le terme) voilà le code

Case 3
        With Sheets(mafeuille)
        .Columns('A:az').EntireColumn.Hidden = False 'affichage complet pour le mode modification
        expression.Unprotect , Password:=('popof')
        End With

:ermm:

😱

 

[popof]

re à tous

bingoOoo B)

Case 3
        With Sheets(mafeuille)
        .Columns('A:az').EntireColumn.Hidden = False 'affichage complet pour le mode modification
        .Unprotect Password:=('popof')
        End With

ce coup ci ça marche :woohoo:

Creepy, pascal76 Mirci les zens :kiss: