Aller au contenu

El-Matador

Membres
  • Compteur de contenus

    4
  • Inscription

  • Dernière visite

Réputation sur la communauté

0 Neutral

À propos de El-Matador

  • Rang
    Junior Member
  1. Salut, voilà après quelques tests et recherches, tu peux essayer la macro suivante Sub CreationMenuContextuel() ' Macro créée par El-Matador @ 06/04 ' Utilise le commandbars("Cells") pour le menu utilisé dans le tableau With Application.CommandBars("Cell").Controls.Add(msoControlButton) ' Défini l'intitulé de la nouvelle fonction .Caption = "Remonter en haut de page" ' Si BeginGroup = True, crée une ligne de séparation avant la fonction .BeginGroup = False ' Lors de la sélection, renvoi vers la fonction spécifiée .OnAction = "HautDePage" End With With A
  2. Pourrais-tu être plus précis quand au menu contextuel que tu veux modifier et l'usage exacte que tu veux en faire. Chaque option d'un menu contextuel devant lui aussi être défini sous VB, c'est un peu vaste et vague, pour pouvoir être traité seul par une macro.
  3. Bien sûr puisque la feuille est protégée d'elle même. La macro sert uniquement à la déprotéger ou la reprotéger. Comme dans le cas du classeur en exemple, la feuille est protégée automatiquement à la fermeture du classeur. Donc elle est protégée quoi qu'il arrive à la réouverture du classeur. La seule chose que tu risque de faire en bloquant les macros c'est de ne pas pouvoir déprotéger la feuille via la macro. Mais ce sera toujours éventuellement possible via le menu outils/protection.
  4. Si tu connais un peu les macros, tu peux toujours utiliser le code suivant que je viens de créer sous VB. Il te reste ensuite à protéger le code du module et insérer des boutons de macro au lieu de l'hypertext. Pour configurer le code, tu as juste à changer Feuil1 par la feuille qui correspond chez toi (attention, c'est le numéro de la feuille tel que donné par VB et pas le nom que toi tu as donné.) Sub ProtectionFeuille() ' ' ProtectionFeuille Macro ' Macro créee le 15/06/2004 par El-Matador ' ' Cells.Select If Feuil1.ProtectContents = True Then MsgBox "L
×
×
  • Créer...