Empêcher un code de s'exécuter dans d'autres classeurs Excel
Atef73
-
ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention -
ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention -
Salut a tous en fait je voudrais savoir comment empêcher le code clic droit et les autres codes ci dessous de s'exécuter dans d'autres classeurs Excel, a chaque fois je lance le fichier Excel la ou se trouve mon code (qui empêche de faire un clic droit sur ce fichier....et d'autres restrictions..) il s'ensuit que dans les autres fichiers Excel qui n'ont aucune liaison entre eux, le clic droit est bloqué. MA QUESTION COMMENT RENDRE TOUS CES CODES APPLICABLES JUSTE SUR CE FICHIER LA.
voici mon code:
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub
Private Sub Workbook_Open()
Application.CommandBars("Ply").Enabled = False
DisplayScrollBars = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = false
Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",false)"
Application.DisplayStatusBar = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayWorkbookTabs = false
End Sub
voici mon code:
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub
Private Sub Workbook_Open()
Application.CommandBars("Ply").Enabled = False
DisplayScrollBars = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = false
Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",false)"
Application.DisplayStatusBar = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayWorkbookTabs = false
End Sub
A voir également:
- Empêcher un code de s'exécuter dans d'autres classeurs Excel
- Code ascii - Guide
- Liste déroulante excel - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Word et excel gratuit - Guide
- Code puk bloqué - Guide
3 réponses
Bonjour Atef, bonjour le forum,
Pour le clic droit, tu n'agis que sur le fichier donc pas de problème, pour les autres classeurs ça ne fonctionnera pas. Le code n'agit que sur le classeur qui le contient.
En revanche pour le reste, tu agis cette fois sur l'Application (donc sur Excel) et une fois que c'est fait, c'est fait.
Pour le clic droit, tu n'agis que sur le fichier donc pas de problème, pour les autres classeurs ça ne fonctionnera pas. Le code n'agit que sur le classeur qui le contient.
En revanche pour le reste, tu agis cette fois sur l'Application (donc sur Excel) et une fois que c'est fait, c'est fait.
Bonjour Thau Theme et Merci pour ta réponse, enfin j'ai trouvé la solution, il suffit d'ajouter le code suivant:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Ply").Enabled = True
et voila résolu.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Ply").Enabled = True
et voila résolu.