Discussion :

[retraite83]

Bonjour

j'ai une feuille protégée avec l'option Excel "Modifier les objets"

Cependant j'ai besoin de protéger un objet (bouton) particulier de cette feuille par son nom pour ne pas autoriser sa modification (clic droit) sachant qu'une macro lui est associée.

J'ai bien codé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_SheetBeforeRightClick(ByVal sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

Manifestement cela ne suffit pas.

[Transitoire]

Bonjour, je ne suis pas sur d'avoir très bien compris?
Il suffit d'enlever l'option modifier les objets. Si vous avez d'autres objets que vous souhaitez avoir accessible, vous pouvez aller décocher la case protection dans le tableau de l'objet que vous désirez garder accessible au Double click.
J'espère avoir été clair?




Cordialement

[retraite83]

Bonjour,

c'est peut être moi qui n'est pas clair. En résumé :

Je veux l'option "Modifier les objets" pour ma feuille sauf pour un objet de la feuille (un bouton) pour lequel je ne veux pas cette option

[Philippe Tulliez]

Bonjour,
La procédure événementielle Workbook_SheetBeforeRightClick concerne le clic droit sur une cellule et pas sur un objet ActiveX ou formulaire
Chaque objet ActiveX a ses propres procédures événementielles (dans l'objet Worksheet) mais à ma connaissance, l'action sur le clic droit ne fait pas partie des événements que l'on peut intercepter sur l'un de ces objets

Liste des procédures événementielles pour un contrôle CommandButton (ActiveX)

[retraite83]

Bonjour et merci,

cela confirme tous mes tests.

En conclusion si on a besoin de l'option "Modifier les objets" pour une raison quelconque sur une feuille, on ne peut pas empêcher l'utilisateur de supprimer un bouton par erreur sur cette même feuille ?

Dont acte

[Patrice740]

Bonjour,

... on ne peut pas empêcher l'utilisateur de supprimer un bouton par erreur sur cette même feuille

Si tu utilises un bouton ActiveX, il ne peut pas être supprimé par mégarde : ça ne peut être fait qu'en mode création, donc en connaissance de cause.

EDIT :
Il me semble utopique de se protéger contre toutes les erreurs que peut faire un utilisateur.
Je n'ai qu'un mot d'ordre, ou plus exactement deux : Formation et Responsabilisation de l'utilisateur.

[Transitoire]

Bonjour, je ne peut pas parler d'active X car sur mac nous ne les avons pas. Par contre, vous pouvez choisir de garder actif la modification des objets, en sachant que vous devrez à ce moment la, modifier l'accès aux objets par le panneau de contrôle de chaque objet. Si vous conservez la case Verrouillé cliquée, il sera verrouillé (si la feuille est verrouillée). Sinon il ne sera pas verrouillé. Vous devrez faire cette manipulation pour tous les objets présents, avec le choix que vous souhaitez. Enfin sur mon Mac c'est comme cela que ça marche.


Si jamais cela ne marche pas avec les boutons ActiveX, vous pouvez toujours remplacer le bouton par une forme ou une photo ou autre chose ainsi que vous pourrez le voir ci-dessous(gomme pour effacer, imprimante pour imprimer etc) et relier l'objet à la procédure qu'il est censé lancer. Bon! enfin moi ce que j'en dit c'est juste pour essayer d'aider.


Cordialement

[retraite83]

#7

Je ne vois pas cet affichage permettant d'accéder à la protection d'un objet particulier. Est-ce spécifique au Mac ?

[Transitoire]

Bonjour,
dans le cadre d'un bouton, un click droit sur le bouton ouvre le sous menu suivant(voir ci-dessous) peut-être spécifique au Mac?


Dans le cas d'un objet, un click droit sur l'objet propose un format de l'image ou on peut choisir sur propriétés Verrouiller ou non. voir ci-dessous. La aussi peut-être spécifique au Mac?


Il est bien entendu que cela ne fonctionne que si la feuille est verrouillée.
Cordialement

[Philippe Tulliez]

Bonjour,

Je ne vois pas cet affichage permettant d'accéder à la protection d'un objet particulier. Est-ce spécifique au Mac ?

Dans l'onglet [Développeur], la commande propriété affiche la propriété de l'objet sélectionné. Il suffit de modifier la valeur de la propriété Locked de True à False pour que l'on puisse après la protection de la feuille effectuer une modification des propriétés de cet objet mais franchement, je n'en vois non seulement pas l'intérêt mais en plus je trouve cela dangereux.

Pour moi un bouton sert à effectuer une action lorsque l'on clique dessus. Point à la ligne
Le but de la protection d'une feuille c'est pour éviter que l'utilisateur fasse des manipulations malheureuses. Si en plus il peut modifier les propriétés d'un ActiveX, cela devient fou.

Qu'elle est la finalité ?

[Jean-Philippe André]

Bonjour,

je conseillerai naïvement de proposer le bouton dans un ruban personnalisé, ca peut t'ouvrir d'autres approches visuellement et techniquement parlant

[retraite83]

Merci à tous, je vais regarder tout cela attentivement,

je rappelle la finalité de ma question :

J'ai une feuille protégée avec l'option "Modifier les objets".

J'ai aussi dans la feuille un bouton associé à une macro, du coup l'utilisateur peut le sélectionner avec clic droit puis le supprimer

C'est cela que je veux éviter d'une manière ou d'une autre. Je pensai à "protéger" l'objet "bouton"

PS : mon bouton est un bouton de formulaire pas d'ActiveX

[Patrice740]

J'ai aussi dans la feuille un bouton associé à une macro, du coup l'utilisateur peut le sélectionner avec clic droit puis le supprimer
PS : mon bouton est un bouton de formulaire pas d'ActiveX

Je t'ai déjà dit qu'un activeX, il ne peut pas être sélectionné par clic droit.
Remplace ton bouton de formulaire par un bouton activeX.

[retraite83]

Oui j'ai fais, le clic droit est bien désactivé.

Mais mon bouton à une forme que je n'arrive pas à attribuer au bouton activeX

[Philippe Tulliez]

Bonjour,

Mais mon bouton à une forme que je n'arrive pas à attribuer au bouton activeX

Il est tout à fait possible d'assigner une macro à d'autres objets tels que les formes (commande Formes du groupe Illustrations de l'ongle [Insertion]) ainsi tu peux avoir un triangle, un rond, etc que tu peux mettre en couleur, réduire ou augmenter la taille, bref à ta sauce
On peux également associer une macro à une image

Je n'ai toujours pas compris la raison de supprimer le bouton après avoir activer la macro

[retraite83]

Non il n'est pas question de supprimer le bouton, au contraire je ne veux pas que l'utilisateur puisse le supprimer.

Hors comme ma feuille est protégée avec l'option "Modifier les objets" il peut le faire par erreur malgré le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_SheetBeforeRightClick(ByVal sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

J'ai bien compris pourquoi.
Bien noté également qu'un bouton ActiveX ne peux pas être supprimé.

Donc le code ci-dessus et un bouton ActiveX associé à ma macro au lieu d'un bouton de formulaire me convient sauf que mon bouton est dessiné avec un dessin "Parchemin Horizontal xx" et que je ne sais pas affecté ce dessin à un bouton ActiveX

[Patrice740]

Edit :

Macro pour placer une image sur un bouton ActiveX
L'image doit être dans le même répertoire que le classeur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
Sub PlacerImageSurBoutonActiveX()
Dim wsh As Worksheet              'Feuille
Dim obj As OLEObject              'Objet OLE de la feuille
Dim btn As MSForms.CommandButton  'Bouton
Dim img As String                 'Image.FullName
 
  img = ThisWorkbook.Path & "\ImageBouton.jpg"
  Set wsh = ThisWorkbook.Worksheets("Feuil1")
  Set obj = wsh.OLEObjects("CommandButton1")
  Set btn = obj.Object
  btn.Caption = Empty
  btn.Picture = LoadPicture(img)
  btn.PicturePosition = fmPicturePositionCenter
  btn.AutoSize = True
 
End Sub

Une fois l'mage chargée, enregistrer le classeur, l'image est aussi enregistrée.