Comment bloquer clic droit sur onglet? ?

[tonio59]

Bonjour à tous,

Je voudrais rendre le cklic droit sur les onglets impossible pour éviter de fausses manip sur mon classeur. Comment puis je faire ? ? ? ?


Merci

A pluche

 

[tonio59]

re, j'ai trouvé comment bloquer les clic droit sur toute la feuille, mais ça marche pas pour l'onglet . . . désespérant, mais je persévers

 

[tonio59]

voila la solution pour ce que ça intéresse (je l'ai trouvé dans les archives) . .

Sub EnleverPlyCtrl()
Dim Ctrl As Object
For Each Ctrl In Application.CommandBars('Ply').Controls
If Ctrl.ID = 945 Or Ctrl.ID = 847 Or Ctrl.ID = 889 Or Ctrl.ID = 848 Then Ctrl.Delete
Next Ctrl
End Sub

Sub ReMettrePlyCtrl()
Dim Ctrl As Object
For Each Ctrl In Application.CommandBars('Ply').Controls
If Ctrl.ID = 945 Or Ctrl.ID = 847 Or Ctrl.ID = 889 Or Ctrl.ID = 848 Then Exit Sub
Next
With Application.CommandBars('Ply')
.Controls.Add ID:=945, Before:=1
.Controls.Add ID:=847, Before:=2
.Controls.Add ID:=889, Before:=3
.Controls.Add ID:=848, Before:=4
End With
End Sub


A pluche

 

[myDearFriend!]

Bonsoir Tonio59,

Ci-dessous une autre solution plus simple et peut-être un peu moins 'radicale' que celle que tu as trouvée :

      'Pour désactiver le menu clic droit sur onglet
      Application.CommandBars('Ply').Enabled = False
     
      'Pour le rétablir
      Application.CommandBars('Ply').Enabled = True

Cordialement,

 

[tonio59]

bonjour,

Merci pour cette réponse claire et précise. Elle est plus simple, plus performante et plus élégante ! ! ! ! !

Je n'ai qu'un mot à dire, BRAVO ! ! ! !

A bientôt sur d'autres post.

Ciao, à pluche