onglet cellule

eutrophisation · 4 Octobre 2010

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 · 4 Octobre 2010

Re : onglet cellule

Bonsoir eutrophisation,

Un essai avec ce code:

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 · 4 Octobre 2010

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 · 4 Octobre 2010

Re : onglet cellule

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

onglet cellule

eutrophisation

XLDnaute Occasionnel

Pièces jointes

mth

XLDnaute Barbatruc

Gelinotte

XLDnaute Accro

eutrophisation

XLDnaute Occasionnel

Discussions similaires