Bonjour Forum
j'ai utilisé ce code pour protéger toutes les feuilles prédéfinit d'un classeur
VB:
Private Sub Workbook_Open()
Sheets("OC").Protect "mp", userinterfaceonly:=True 'PROTECTION DE LA FEUILLE QLQ SOIT LE CODE
je souhaite généraliser ce code de protection dans le cas ou je veux créer d'autre feuille, je souhaite que ces derniers seront verrouiller automatiquement.
Salutations
Re : Verouillage automatique des nouvelle feuilles
Bonjour BERNARD
Merci pour la réponse rapide; mais j'ai un autre souci avec ton code , tu as verrouillé toutes les cellules des nouvelle feuilles?
Salutations
Re : Verouillage automatique des nouvelle feuilles
Bonjour PASCAL, BERNARD
Je m’explique
D’origine j’ai une feuille type nommé « OC « a partir de cette feuille que je l’ai protégé (qlq cellule) je souhaite protéger les feuilles qui vont être créé automatiquement.
SALUTATIONS
Re : Verouillage automatique des nouvelle feuilles
Re,
Sur mon ordi, avec Excel 2013, cette manière de procéder fonctionne parfaitement.
Essaye cette syntaxe ...:
Sub ProtectionFeuilles()
For i = 1 To Worksheets.Count
With Sheets(i)
If Sheets(i).Name <> "OC" Then
.Protect "mp", userinterfaceonly:=True
.EnableSelection = xlNoSelection
End If
End With
Next i
End Sub