Protéger une feuille sans son nom

[stormseye]

Bonjour à tous,

Je souhaite protéger (sans mot de passe) l'ensemble des feuilles d'un classeur sans avoir leurs noms. En effet je désire que l'utilisateur puisse modifier le nom des onglet et que la macro continue à passer.

Pouvez vous m'aider svp ...
Storms-eye.

 

[tototiti2008]

Re : Protéger une feuille sans son nom

Bonjour stormseye,

Peut-être

Sub Test()
Dim Wks As Worksheet
    For Each Wks In ThisWorkbook.Worksheets
        Wks.Protect
    Next
End Sub

Edit : Bonjour david

 

[david84]

Re : Protéger une feuille sans son nom

Bonjour,
A priori, je vois 2 possibilités :
- en utilisant l'index des feuilles et non leur nom
- en nommant les onglets dans la fenêtre propriété : par ce biais, le codeName de la fenêtre propriété peut être utilisé dans le code et le nom "affiché" de chaque onglet pet être modifié sans affecter le code.
A+
Edit : bonjour Tototiti, effectivement, si c'est l'ensemble des onglets, ton code est bien plus simple.

 

[stormseye]

Re : Protéger une feuille sans son nom

Merci beaucoup pour la réactivité et l’efficacité ^^

Bonne aprem,
Storms-eye.