XL 2010 Masquer le clic droit dans les onglets avec ThisWorkbook

Orson83 · 27 Février 2021

Bonjour à tous,
Je rencontre un petit soucis pour ajouter une fonction dans une macro de ThisWorkbook à la fermeture d'Excel. Il s'agit de la fonction "'Application.CommandBars("Ply").Enabled = False". En effet, au départ, ma macro doit verrouiller le classeur à la fermeture et je souhaiterai y ajouter la fonction qui permet de masquer le menu au clic droit dans les onglets.
Voici le code et la commande qui ne fonctionne pas en commentaire :

VB:

'DANS THISWORKBOOK, VERROUILLE LES PAGES A LA FERMETURE D'EXCEL + MASQUE LE CLIC DROIT ONGLETS
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Sh As Worksheet
Application.ScreenUpdating = False
    For Each Sh In ThisWorkbook.Sheets
        Sh.Protect "toto", UserInterfaceOnly:=True
        'Application.CommandBars("Ply").Enabled = False <- Ne fonctionne pas
    Next
End Sub

Merci pour votre aide.
Tchotchodu31

Compte Supprimé 979 · 27 Février 2021

Bonjour,
L'interdiction du clic droit sur les onglet est lié à l'application et non aux onglets

Voici toutes les sub à créer pour éviter les ennuis

VB:

Private Sub Workbook_Activate()
  Application.CommandBars("Ply").Enabled = False
End Sub

Private Sub Workbook_Deactivate()
  Application.CommandBars("Ply").Enabled = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  'Pour le rétablir
  Application.CommandBars("Ply").Enabled = True
End Sub

Private Sub Workbook_Open()
  'Pour désactiver le menu clic droit sur onglet
  Application.CommandBars("Ply").Enabled = False
End Sub

@+

Compte Supprimé 979 · 27 Février 2021

Bonjour,
L'interdiction du clic droit sur les onglet est lié à l'application et non aux onglets

Voici toutes les sub à créer pour éviter les ennuis

VB:

Private Sub Workbook_Activate()
  Application.CommandBars("Ply").Enabled = False
End Sub

Private Sub Workbook_Deactivate()
  Application.CommandBars("Ply").Enabled = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  'Pour le rétablir
  Application.CommandBars("Ply").Enabled = True
End Sub

Private Sub Workbook_Open()
  'Pour désactiver le menu clic droit sur onglet
  Application.CommandBars("Ply").Enabled = False
End Sub

@+

Orson83 · 27 Février 2021

BrunoM45 à dit:
Bonjour,
L'interdiction du clic droit sur les onglet est lié à l'application et non aux onglets

Voici toutes les sub à créer pour éviter les ennuis

VB:

Private Sub Workbook_Activate() Application.CommandBars("Ply").Enabled = False End Sub Private Sub Workbook_Deactivate() Application.CommandBars("Ply").Enabled = True End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Pour le rétablir Application.CommandBars("Ply").Enabled = True End Sub Private Sub Workbook_Open() 'Pour désactiver le menu clic droit sur onglet Application.CommandBars("Ply").Enabled = False End Sub

@+

Bonjour BrunoM45, le forum,
Merci pour ces informations.
Grâce à ces explications, il était plus logique de placer cette commande à l'ouverture du classeur.

VB:

Private Sub Workbook_Open()
  Application.CommandBars("Ply").Enabled = False  'Pour désactiver le menu clic droit sur onglet
End Sub

La macro fonctionne correctement et se neutralise au déverrouillage du classeur par mot de passe.
Merci encore.
Bonne journée.
Tchotchodu31

XL 2010 Masquer le clic droit dans les onglets avec ThisWorkbook

Orson83

XLDnaute Impliqué

Compte Supprimé 979

Compte Supprimé 979

Guest

Orson83

XLDnaute Impliqué

Discussions similaires