onglet cellule

[eutrophisation]

Bonsoir tout le monde

J'ai pu recuperer ce code au niveau du forum seulement quand le classeur est protegé il ne fonctionne plus (erreur d'éxécution). Est il possible d'ameliorer le code en tenant compte de la prtection du classeur tout en autorisant l'onglet de prendre le nom de la cellule.
MERCI
ci joint fichier.

 

[mth]

Re : onglet cellule

Bonsoir eutrophisation,

Un essai avec ce code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("A2") <> "" Then
        ActiveWorkbook.Unprotect "toto"
        ActiveSheet.Name = Range("A2")
        ActiveWorkbook.Protect "toto"
    End If
End Sub

Bonne nuit,

mth

Edit: Bonsoir Gelinotte
Ca fait plaisir de voir nos amis canadiens
@ +
m

 

[Gelinotte]

Re : onglet cellule

Allô!

ActiveWorkbook.Unprotect
If Range("A2") <> "" Then ActiveSheet.Name = Range("A2").Value
ActiveWorkbook.Protect Structure:=True, Windows:=False


On déprotège la feuille avant d'exécuter la commande.
On reprotège après.

Perdrix

 

[eutrophisation]

Re : onglet cellule

merci à vous deux le code proposé par MTH m'arrange amplement.