Encore un petit soucis de protection

[wilplan]

Bonjour le Forum,

Je cherche à protéger les feuilles de mon programme, (cinq en tout), à l'onglet révision j'ai presque trouvé mon bonheur.

Presque parcequ'en fait il faudrait que je garde des cellules déverrouillées, d'où mon soucis

si c'est possible, faut-il protéger les feuilles une à une ? si vous pouviez me mettre sur la voie

Bon dimanche à tous

 

[wilplan]

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.

 

[jeanpierre]

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

 

[wilplan]

Re : Encore un petit soucis de protection

Merci Jean-Pierre, c'est Nickel

 

[manucau]

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

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) ?

 

[manucau]

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