Empêcher l'ajout d'une feuille

[Jacques25]

Bonjour à tous,

Afin de brider un fichier pour limiter son utilisation je souhaiterai interdire l'ajout d'onglet. Est ce que c'est possible et si oui commetn?

merci de votre aide.

Bonne journée.

Jack

 

[camarchepas]

Re : Empêcher l'ajout d'une feuille

Bonjour ,

Oui , en protégeant la structure du classeur,

pour Excel 2010 : Menu Fichier
information,
protéger le classeur
puis protéger la structure du classeur ,

et voilà

 

[Scoobidoo]

Re : Empêcher l'ajout d'une feuille

Bonjour Jacques25,

Pour ma part, j'utilise ce code placé dans ThisWorkbook:

Private Sub Workbook_NewSheet(ByVal Sh As Object)

    If Worksheets.Count > 3 Then

        Application.DisplayAlerts = False
        'supprime la nouvelle feuille
        Sh.Delete
        MsgBox "Désolé, l'ajout de feuille n'est pas possible !", _
               vbExclamation, _
               "ACTION NON AUTORISEE."
        Application.DisplayAlerts = True

    End If
    
End Sub

Dans cet exemple, le nombre de feuille du classeur est limité à 3.

A+

Scoobidoo

 

[Jacques25]

Re : Empêcher l'ajout d'une feuille

Bonjour Nono,Scoobidou,

Merci pour vos réponses, j'ai pas testé la macro mais je le garde, selon les cas j'aurai besoin de l'une ou l'autre des solutions.

Encore merci.
Bonne fin de journée.

Jack