XL 2013 (RESOLU) Protection automatique des nouvelles feuilles

chaelie2015 · 28 Mars 2024

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

VB:

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 · 28 Mars 2024

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

VB:

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

job75 · 28 Mars 2024

Bonjour chaelie2015,

Pour protéger toutes les feuilles du classeur :

VB:

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

A+

job75 · 28 Mars 2024

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

VB:

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) · 28 Mars 2024

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

VB:

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

chaelie2015 · 28 Mars 2024

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

VB:

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 · 28 Mars 2024

Bonjour Bruno,

youky(BJ) à dit:
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 · 28 Mars 2024

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

XL 2013 (RESOLU) Protection automatique des nouvelles feuilles

chaelie2015

XLDnaute Accro

job75

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

youky(BJ)

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

job75

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Discussions similaires