XL 2013 (RESOLU) Protection automatique des nouvelles feuilles

[chaelie2015]

Bonjour Forum
J'ai un code qui crée des feuilles nommées 'Item N°x' (avec x variant) à partir de la feuille nommée 'Type'. Ce code copie également le contenu de la feuille 'Type' dans les nouvelles feuilles qui commencent par 'Item N°...'. La feuille 'Type' est protégée au démarrage du classeur grâce au code suivant

Private Sub Workbook_Open()
Sheets("Type").Protect "CharBel", userinterfaceonly:=True 'PROTECTION DE LA FEUILLE QLQ SOIT LE CODE
End Sub

Maintenant, je souhaite avoir un code identique à celui de la feuille 'type' dans le `Private Sub Workbook_Open()` et que ces nouvelles feuilles soient protégées une fois créées. Est-ce possible ,pour que chaque nouvelle feuille créée soit automatiquement protégée.
--------------------------------------
Pour rappel : Ce code s'exécute automatiquement lorsque le classeur est ouvert. Il protège la feuille nommée "Type" en utilisant le mot de passe "CharBel". La protection est appliquée de manière que le code VBA puisse toujours modifier la feuille sans nécessiter de mot de passe.
Merci

 

[job75]

Bonjour chaelie2015,

Pour protéger toutes les feuilles du classeur :

Private Sub Workbook_Open()
Dim Sh As Object
For Each Sh In Sheets
    Sh.Protect "CharBel", UserInterfaceOnly:=True
Next
End Sub

A+

 

[job75]

Si l'on veut que les feuilles créées soient protégées dès leur création mettre dans ThisWorkbook :

Private Sub Workbook_Open()
Dim Sh As Object
For Each Sh In Sheets
    Sh.Protect "CharBel", UserInterfaceOnly:=True
Next
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.Protect "CharBel", UserInterfaceOnly:=True
End Sub

 

[youky(BJ)]

Bonjour tous,
ou encore dès nouvel onglet
Trés étonnant que Gérard n'y est pas pensé
Bruno

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sh.Protect "CharBel", UserInterfaceOnly:=True
End Sub

 

[chaelie2015]

Si l'on veut que les feuilles créées soient protégées dès leur création mettre dans ThisWorkbook :

Private Sub Workbook_Open()
Dim Sh As Object
For Each Sh In Sheets
    Sh.Protect "CharBel", UserInterfaceOnly:=True
Next
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.Protect "CharBel", UserInterfaceOnly:=True
End Sub

Re
Merci , c'est la meilleure proposition.
Merci

 

[job75]

Bonjour Bruno,

Trés étonnant que Gérard n'y est pas pensé

J'utilise Workbook_SheetActivate qui fait la même chose que Workbook_NewSheet.

 

[Phil69970]

Bonjour à tous

Juste en passant

Un bémol à UserInterfaceOnly car sur un TS lors de l'ajout de ligne du TS cela ne fonctionne pas

Voir entre autre cette conversation post #4 et post #8