Re,
En réflechissant un peu plus, je n'aurais pas dit de bêtises tout à l'heure,
pour les cellules tu colles cela dans le module de Thisworkbook
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub
pour tous les onglets
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.CommandBars(30).Enabled = False
End Sub
Si c"est un onlet en particulier, par exemple Feuil1
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim Test As Boolean, Ctrl As Object
Test = IIf(Sh.Name = "Feuil1", False, True)
With Application.CommandBars(30)
For Each Ctrl In .Controls
Ctrl.Enabled = Test
Next Ctrl
End With
End Sub
A+++