Interdire insertion feuille

[VinceNC]

Bonjour à tous,

Je souhaiterais interdire l'insertion d'une nouvelle feuille dans le classeur.

J'ai bien vu des messages concernant des blocages de commande mais rien que j'ai pu adapter. En plus, sur mon cas particulier vu qu'il y a plusieurs façons de procéder à l'insertion, je patauge.

La macro s'execute à l'ouverture du fichier.

Une bonne idée ?
Merci

 

[VinceNC]

Re : Interdire insertion feuille

En réflechissant 10 secondes de plus, il suffit de vérouiller la structure du classeur.

Mais si quelqu'un à un code ça pourrait servir à d'autres...

 

[Pierrot93]

Re : Interdire insertion feuille

Bonjour Vince,

pas sûr d'avoir bien compris la demande, peut être un code comme celui-ci à placer dans le module "thisworkbook", mais bon....

Option Explicit
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Application.DisplayAlerts = False
Sh.Delete
Application.DisplayAlerts = True
End Sub

bonne journée
@+

 

[VinceNC]

Re : Interdire insertion feuille

Merci Pierrot93.

Je tenterai ça la prochaine fois.