ne plus avoir accés aux onglets

[balu57]

bonjour à toutes et tous,

mon problème est d'interdire l'accés aux onglets de classeur.

Pour ne plus les afficher, je sais faire:
outils=>options=>onglets de classeur

mais comment faire pour que je sois le seul à pouvoir les afficher de nouveau?

j'ai essayé: la protection de feuille et de classeur et j'ai toujours accés aux options, donc à la possibilité de réactiver les onglets...

Merci pour vos réponses

 

[Temjeh]

Bonjour à tous

Oui c'est possible!

Dans ta feuil (Alt+F11) que tu veut masquer pour toujour colle ceci:
Ex: clic 2 fois sur feuil2 et met ceci:

Private Sub Worksheet_Activate()
ActiveWindow.SelectedSheets.Visible = False
End Sub

A++

Temjeh

 

[balu57]

merci pour ta réponse rapide, je vais essayer, mais j'ai une question subsidiaire, dans ce cas est ce qu'un lien vers cette feuille définitivement masquée, fonctionnera correctement?

 

[Temjeh]

Rebonjour à tous

Oui les référence aux cells masquées fonctionnent quand-même

Voici le même avec password *Carotte*

Private Sub Worksheet_Activate()
Dim Password As String
Password = Application.InputBox(prompt:='Entrez le mot de passe', Title:='', Default:='', Type:=2)
If Not (Password = 'Carotte') Then
ActiveWindow.SelectedSheets.Visible = False
Else
Exit Sub
End If
End Sub

A++

Temjeh

 

[balu57]

génial, je vais tester tout ça...
merci, merci, merci.................,merci
et plus encore

 

[balu57]

reresalut

je viens de tester avec un lien hypertexte vers la feuille masquée, et ça ne fonctionne pas!!!
tu parles peut être d'un autre type de lien? si oui, dis m'en plus stp!!

 

[Temjeh]

Rebonjour tous

C'est sur que ton lien ne marche pas car le but est de rendre inaccessible tes feuils!!!

Ptêtre mettre plutot sous un bouton un code qui déprotège avec password et si bon password...unlock et affiche feuille!

Temjeh