Msgbox si clic droit

jofdm · 24 Janvier 2012

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 · 24 Janvier 2012

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

Code:

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

Msgbox si clic droit

jofdm

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

Discussions similaires

Msgbox si clic droit

jofdm

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency