Protection des onglets

Bonjour Yann24,

ActiveWindow.SelectedSheets.Visible = False ' --------- ça plante là

Il ne faut pas oublier que le classeur a besoin d'avoir TOUJOURS au moins une feuille visible. Est-ce bien le cas ? Si
tu essaie de masquer la dernière feuille visible du classeur... cela génère une erreur !


Salutations!


"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message de news:
B4CC2C2C-7E0A-4FAF-A8D4-0F7BB200EC5D@microsoft.com...
Bonjour,
Je voudrais protéger le nom de mes onglets, mais avec mon code ci-après, ça
plante.
Mon code, est :

Sub Auto_open()
' Auto_open Macro
'
Sheets("CP 2005-2006").Select
ActiveSheet.Protect

If Sheets("Info").Visible = True Then
Sheets("Info").Select
ActiveWindow.SelectedSheets.Visible = False ' --------- ça plante là
End If
If Sheets("JF").Visible = True Then
Sheets("JF").Select
ActiveWindow.SelectedSheets.Visible = False
End If
If Sheets("Message").Visible = True Then
Sheets("Message").Select
ActiveWindow.SelectedSheets.Visible = False
End If
If Sheets("hsup").Visible = True Then
Sheets("hsup").Select
ActiveWindow.SelectedSheets.Visible = False
End If
If Sheets("2005").Visible = True Then
Sheets("2005").Select
ActiveWindow.SelectedSheets.Visible = False
End If

MasquerColonnes '(appel d'une macro)

ProtectionFeuille '(appel d'une macro)

CacheBOutils '(appel d'une macro)

ActiveWorkbook.Protect Structure:=True, Windows:úlse

End Sub

Je sais pas pkoi il plante. il me met :
"erreur d'éxécution '1004'
La méthode 'Visible' de l'objet 'Sheets' a échoué"
Et kan j'enlève mon ActiveWorkbook.Protect, tout marche.

Merci.

YANN