El-Matador

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 Application.CommandBars("Cell").Controls.Add(msoControlButton) .Caption = "Réinitialise le menu" .BeginGroup = True .OnAction = "EffaceMenuContextuel" End With End Sub 'Réinitialise le menu contextuel complètement Sub EffaceMenuContextuel() Application.CommandBars("Cell").Reset End Sub Sub HautDePage() ' Renvoi à la première cellule A1 ActiveSheet.Range("A1:A1").Activate End Sub Ceci est un exemple mais te donne déjà une première piste importante, à toi de l'adapter à tes besoins exactes. Merci de me tenir informé et en espérant avoir pu t'aider au mieux. N'hésite pas à me recontacter pour d'autres préoblèmes spécifiques Mata

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.

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.

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 "La Feuille est déjà protégé par un mot de passe. Il n'est pas possible de le changer sans d'abord déprotéger la feuille avec le mot de passe original", vbOKOnly, "Feuille déjà protégée" Exit Sub End If Selection.Locked = True Selection.FormulaHidden = True ' MDP = MotDePasse ' Utiliser cette ligne pour utiliser un mot de passe déjà défini MDP = InputBox("Entrez le mot de passe", "Entrez le mot de passe") 'Utiliser cette ligne pour demander un mot de passe Feuil1.Protect MDP, DrawingObjects:=True, Contents:=True, Scenarios:=True Feuil1.Visible = xlSheetVeryHidden End Sub Sub OterProtection() ' ' Macro créee le 15/06/2004 par El-Matador ' CompteurErreur = 0 Cells.Select TestMDP: MDP = InputBox("Entrez le mot de passe", "Entrez le mot de passe") On Error GoTo ErrorHandler Feuil1.Unprotect MDP Feuil1.Visible = xlSheetVisible Feuil1.Activate Feuil1.Select Selection.Locked = True Selection.FormulaHidden = False Exit Sub ErrorHandler: MsgBox Err.Description Select Case Err.Number Case 1004 Err.Clear CompteurErreur = CompteurErreur + 1 If CompteurErreur = 3 Then 'Entrez ici le nombre d'essai avant l'arrêt MsgBox "Vous avez essayez 3 mots de passe sans succès, veuillez contactez le créateur du classeur", vbOKOnly, "Nombre d'essais dépassé" Exit Sub End If End Select Resume TestMDP ' Reprend l'exécution au niveau de la ' ligne à l'origine de l'erreur End Sub Si tu as besoin d'aide ou d'un conseil tu peux toujours m'appeller. Voici ci après un exemple de classeur "protégé" pour voir ce que cela donne. Exemple de classeur "protégé" Mata