Interdire creation d'onglet

[sten83]

Bonjour a tous petit problème avec un fichier, plusieurs utilisateurs sur ce fichier.
Ce que j'aimerai c'est pouvoir interdire la création d'un nouvel onglet en cliquant sur le petit + avec un message stipulant "Vous n'avez pas l'autorisation pour cette commande".
Et pouvoir activer de nouveau la commande avec un mot de passe.
Est ce possible?
Merci pour votre aide.

 

[camarchepas]

Re : Interdire creation d'onglet

Bonjour ,

Pour le message pas sur ,

Par contre pour empêcher la création il suffit de protéger le classeur et sa structure

 

[phlaurent55]

Re : Interdire creation d'onglet

Bonjour sten,

Voir fichier joint,

lors d'une création d'un nouvel onglet, un mot de passe sera demandé MDP= toto

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Application.ScreenUpdating = False
If InputBox("Entrez votre mot de passe pour pouvoir ajouter un onglet") <> "toto" Then
    Application.DisplayAlerts = False
    Sheets(Sheets.Count).Delete
    Exit Sub
End If
Application.ScreenUpdating = True
End Sub

à+
Philippe

Edit: Bonjour çamarchepas

 

[Pierrot93]

Re : Interdire creation d'onglet

Bonjour à tous,

au cas ou la feuille insérée ne soit pas la dernière :

Private Sub Workbook_NewSheet(ByVal Sh As Object)
If InputBox("Entrez votre mot de passe pour pouvoir ajouter un onglet") <> "toto" Then
    Application.DisplayAlerts = False
    Sh.Delete
End If
End Sub

bon après midi
@+