Encore un petit soucis de protection

Re : Encore un petit soucis de protection

STOP j'ai trouvé, pour protéger les feuilles mais par contre mes macros ne fonctionnent plus, si l'un d'entre vous a une petite idée, je l'en remercie.

Re : Encore un petit soucis de protection

Bonjour wilplan,

Il te faut déprotéger ta feuille en début de macro et la reprotéger avant de sortir.

ActiveSheet.Unprotect ("ton mot de passe s'il existe")

et

ActiveSheet.Protect ("ton mot de passe s'il existe")

par exemple.

Bonne soirée.

Jean-Pierre

Re : Encore un petit soucis de protection

Merci Jean-Pierre, c'est Nickel

Re : Encore un petit soucis de protection

jeanpierre à dit:

Bonjour wilplan,

Il te faut déprotéger ta feuille en début de macro et la reprotéger avant de sortir.

ActiveSheet.Unprotect ("ton mot de passe s'il existe")

et

ActiveSheet.Protect ("ton mot de passe s'il existe")

par exemple.

Bonne soirée.

Jean-Pierre

Cliquez pour agrandir...

Bonjour à tous,

le fil m'intéresse,

j'utilise également ce code, néanmoins j'ai remarqué que la "re"protection n'agissait que sur le verrouillage et déverrouillage des cellules.

j'explique :

après avoir exécuté la macro, j'ai voulu vérifier le bon fonctionnement de celle-ci.
par l'onglet révision, j'ai constaté qu'elle était bien protégée, en revanche en voulant reprotéger, seules les options de sélections de cellules verrouillées et déverrouillées étaient cochées.

j'ai tenté d'ajouté les options ",True" derrière Activesheet.Protect("mdp")....même résultat.

comment reprotéger ma feuille en VBA de manière à ce que toutes les options soient cochées (sauf le tri par exemple) ?

Re : Encore un petit soucis de protection

C'est bon j'ai trouvé, en fait j'ai enregistré la macro (tout bête) et ça donne :

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

Merci