Msgbox si clic droit

[jofdm]

Bonjour à tous,
Dans un classeur protégé, je souhaiterais faire apparaître une msgbox pour toute tentative d'insertion de feuille.
J'utilisais ce code lors d'un clic droit sur une cellule
Private Sub Workbook_SheetBeforeRightClick(ByVal _
Sh As Object, ByVal Target As Range, Cancel As Boolean)
MsgBox ("Sur n'importe quelle feuille, ca marche!")
End Sub

Merci d'avance pour votre aide

 

[tototiti2008]

Re : Msgbox si clic droit

Bonjour jofdm,

Quel rapport entre le clic droit sur une cellule et l'insertion de feuille ?

Pour l'insertion de feuille, tu peux essayer de mettre ce code dans Thisworkbook

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    MsgBox "Interdit d'insérer une feuille"
    Application.DisplayAlerts = False
    Sh.Delete
    Application.DisplayAlerts = True
End Sub