XL 2010 Masquer le clic droit dans les onglets avec ThisWorkbook

Orson83

XLDnaute Impliqué
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
 
Solution
C
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

@+
C

Compte Supprimé 979

Guest
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

XLDnaute Impliqué
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
 

Discussions similaires