onglets classeur

[grin d'or]

Bonjour à toutes et à tous
j'ai décocher la case onglets de classeur dans outils/option,mais mon problème que j'ai 2 feuille je veux pas les afficher si un utilisateur coche la case onglets de classeur
avez-vous une solition
Merci d'avance

 

[plumazon]

bonjour,

et si tu va ds le menu Format/Feuille/cacher..
ainsi meme si on coche ds outils onglet, les feuilles n'aparaitront pas


a+

 

[grin d'or]

Re
Merci plumazon,mais je ne veus pas les masquer
car sont liées par autres feuilles de données
Merci d'avance

 

[Luc]

re bonjour plumazon B)

Private Sub Worksheet_Activate()
Sheets(Array('Feuil3', 'Feuil2')).Select

ActiveWindow.SelectedSheets.Visible = False
End Sub

tu n'as que le non des feuilles a changer et/ou à ajouter [file name=testongletsLuc.zip size=8054]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/testongletsLuc.zip[/file]

 

[Luc]

:whistle:
et bonjour grin d'or

 

[plumazon]

luc
juste une question : c quoi la diffenrence entre ton code et le fait de cacher les feuilles par la methode simple??


merci

 

[Luc]

ce code une foie mis dans le Worksheet recache les onglets si on cherche a les ouvrir
teste le fichier '
c'est juste une petite precotion suplémentaire :evil:

 

[plumazon]

ok merci

 

[Dull]

Salut grin d'or, Plumazon, Luc, le Forum


Si tu veut que les feuilles soient cachées vraiment (Même avec format--feuille--afficher) met plutôt ce code


Private Sub Worksheet_Activate()
Sheets(Array('Feuil3', 'Feuil2')).Select

ActiveWindow.SelectedSheets.xlSheetVeryHidden = True
End Sub [file name=testongletsLuc_20060507142048.zip size=5507]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/testongletsLuc_20060507142048.zip[/file]