Clic droit forme automatique

[sososo82]

Bonjour tout le monde!

Comment empêcher le clic droit de la souris sur une forme automatique?
Cela afin de protéger cette dernière d'une modification accidentelle...


Merci pour votre aide

 

[BERRACHED said]

Re : Clic droit forme automatique

Salut;sososo82

touts ce qui apparaisse sur l'ecran d'un Pc meme protéger du click droit est copiable que ce soit image ou forme automatique

Cordialement

 

[BERRACHED said]

Re : Clic droit forme automatique

ré,

je m'excuse ta quéstion etait de protéger est non pas copier donc voila un bout de code pour cela :

Worksheets(""Feuil1"").Shapes(""Nom de l'objet"").Locked = True

Cordialement

 

[Pierrot93]

Re : Clic droit forme automatique

Bonsoir sososo, re Said

petite précision, pour que le blocage soit actif, il faut que la feuille soit protégée.

bonne soirée.
@+

 

[BERRACHED said]

Re : Clic droit forme automatique

Salut,Pierrot93

Merci de la précision elle est de taille sinon sans ça elle marchera pas

Cordialement

 

[sososo82]

Re : Clic droit forme automatique

Salut!

Tout d'abord merci à vous deux d'avoir répondu.

Oui ça marche nikel: il suffit juste de protéger la feuille et terminé le clic droit sur les formes automatiques!

En revanche je n'ai pas eu besoin de rentrer le code de SaÏd pour que ça fonctionne.

Par contre problème:

j'avais un code qui me permettait sur ma feuille principale de masquer grace à un bouton (forme auto) toutes les autres feuilles du classeur, ce bouton ne marche plus car il y a une erreur avec cette ligne :
ActiveSheet.Shapes("BnAfficher").Select

C'est donc du à la protection de la feuille

N'y a t'il pas moyen de faire fonctionner les deux ensemble? (masquer les autres feuilles et protéger la principale)

PS: l'erreur dit "la méthode select de l'objet shapes a échoué"

 

[jeanpierre]

Re : Clic droit forme automatique

Bonjour sososo82, Said, Pierrot et le forum,

Au début de ton code, après le Sub, tu mets : ActiveSheet.Unprotect ("ton mot de passe s'il y en a un")

et à la fin, avant le End : ActiveSheet.protect ("ton mot de passe s'il y en a un")

Normalement, ce doit être bon.

Bonne journée.

Jean-Pierre

 

[sososo82]

Re : Clic droit forme automatique

Bonjour JP,


Wouaw.... ça marche impec! Je peux ainsi masquer et protéger... Franchement merci beaucoup jeanpierre tu m'enlève une épine du pied et rapidement en plus....

Bonne journée à tout le monde et à bientôt!