Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel mot de passe pour protèger les feuille

mot de passe pour protèger les feuille

2 réponses
Avatar
Daniel
Bonsoir à tous

Les deux macros suivante enlève et mait la protection sur les feuilles de
mon fichier.
Q: comment y inclure un mot de passe pour la protection des feuilles.

Merci

Sub déprotegelesfeuilles()
Dim F As Worksheet
For Each F In ThisWorkbook.Worksheets
F.Unprotect Next F
End Sub

Sub protegelesfeuilles()
Dim F As Worksheet
For Each F In ThisWorkbook.Worksheets
F.Protect
Next F
End Sub
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Pierre Fauconnier
Bonjour

F.Protect "toto", DrawingObjects:=True, contents:=True, Scenarios:=True

Les paramètres drawingobjects, contents et scenarios sont optionnels.
Lorsqu'un mot de passe - ici, toto - est spécifié, il faut bien évidemment
déprotéger la feuille en utilisant ce mot de passe
f.unprotect "toto"

Note que si ton code vba n'est pas verrouillé à la lecture, l'accès aux
modules VBA de ton classeur révèle ton mot de passe :(

Tu peux verrouiller l'accès à ton code vba via Outils/Propriétés de
vbaproject dans VBE...

Cela convient-il?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"Daniel" a écrit dans le message de
news:9Rp4d.92754$
Bonsoir à tous

Les deux macros suivante enlève et mait la protection sur les feuilles de
mon fichier.
Q: comment y inclure un mot de passe pour la protection des feuilles.

Merci

Sub déprotegelesfeuilles()
Dim F As Worksheet
For Each F In ThisWorkbook.Worksheets
F.Unprotect Next F
End Sub

Sub protegelesfeuilles()
Dim F As Worksheet
For Each F In ThisWorkbook.Worksheets
F.Protect
Next F
End Sub




Avatar
Daniel
Très bien pour moi cela va
Gros Merci

"Pierre Fauconnier" a écrit dans le
message de news:%
Bonjour

F.Protect "toto", DrawingObjects:=True, contents:=True, Scenarios:=True

Les paramètres drawingobjects, contents et scenarios sont optionnels.
Lorsqu'un mot de passe - ici, toto - est spécifié, il faut bien évidemment
déprotéger la feuille en utilisant ce mot de passe
f.unprotect "toto"

Note que si ton code vba n'est pas verrouillé à la lecture, l'accès aux
modules VBA de ton classeur révèle ton mot de passe :(

Tu peux verrouiller l'accès à ton code vba via Outils/Propriétés de
vbaproject dans VBE...

Cela convient-il?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"Daniel" a écrit dans le message de
news:9Rp4d.92754$
Bonsoir à tous

Les deux macros suivante enlève et mait la protection sur les feuilles
de


mon fichier.
Q: comment y inclure un mot de passe pour la protection des feuilles.

Merci

Sub déprotegelesfeuilles()
Dim F As Worksheet
For Each F In ThisWorkbook.Worksheets
F.Unprotect Next F
End Sub

Sub protegelesfeuilles()
Dim F As Worksheet
For Each F In ThisWorkbook.Worksheets
F.Protect
Next F
End Sub