Sans protection classeur

re,
tu crois ou t'es sur. Un code bien écrit ne fait pas planter même s'il y a
des feuilles cachées.
On ne peut pas verrouiller les onglets (du moins en Excel 2000) .
Par ailleurs, il est possible de masquer les onglets, mais à moins
d'invalider le controle Options dans Outils , il sera possible de les faire
répparaitre.
De plus dans le cas du masquage d'onglets, il te faudra gérer le déplacement
de feuille à feuille pour l'utilisateur à moins que celui-ci n'ait qu'une
seule feuille sur laquelle il doit travailler.
Je crois qu'il faut te résoudre à travailler ton code pour le faire
travailler avec des feuilles cachées.


A+

Bonjour,

je voudrais savoir si c'est possible d'interdire la modification du nom des
onglets (en les cachants si c'est possible), car je ne peux pas protéger mon
classeur (sinon, il plante à cause des feuilles cachées je crois).

Donc peut-on cacher les onglets, ou les verouiller?
MERCI beaucoup. YANN

Bonjour Yann

Mets ceci dans THisWorkbook

Private Sub Workbook_Open()
ActiveWindow.DisplayWorkbookTabs = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWindow.DisplayWorkbookTabs = True
End Sub

Cordialement

Hervé



"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message de
news:B1DF73E3-64DE-4E36-B3B8-B752241A5D06@microsoft.com...

Bonjour,

je voudrais savoir si c'est possible d'interdire la modification du nom
des

onglets (en les cachants si c'est possible), car je ne peux pas protéger
mon

classeur (sinon, il plante à cause des feuilles cachées je crois).

Donc peut-on cacher les onglets, ou les verouiller?
MERCI beaucoup. YANN

Re,
ouais, c vrai, j'avais pas pensé à la navigation d'onglets en onglets.
Mon code, est :

Sub Auto_open()
' Auto_open Macro
' Macro enregistrée le 01/02/2005 par User144
'
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 à toi.

YANN