Macro protection de feuille avec mots de passe

popof · 23 Juin 2005

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 )

Code:

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 · 23 Juin 2005

Bonjour

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

password:='Toto'

Bon courage

popof · 23 Juin 2005

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 · 23 Juin 2005

re pascal76

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

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

Creepy · 23 Juin 2005

Hello à vous,

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

Roulement de tambours .....

expression.Unprotect(Password)

++

Creepy

popof · 23 Juin 2005

Re pascal76, Creepy

faites sonner trompette et clairons

ça marcheuuuuuuuuuuu :woohoo:

popof · 23 Juin 2005

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

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 · 23 Juin 2005

re à tous

bingoOoo B)

Code:

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:

Macro protection de feuille avec mots de passe

popof

XLDnaute Occasionnel

PascalXLD

XLDnaute Barbatruc

popof

XLDnaute Occasionnel

popof

XLDnaute Occasionnel

Creepy

XLDnaute Accro

popof

XLDnaute Occasionnel

popof

XLDnaute Occasionnel

popof

XLDnaute Occasionnel

Discussions similaires