Acces Protégé à une feuille cachée

Bonsoir,

Menu outils, Protéger le classeur, et mettre un mot de passe...

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le message
de news: 0183E4EE-5C9B-4C81-9F1F-BE74F176B591@microsoft.com...

Bonjour à tous

J'ai fait un classeur pédagogique avec des exercices
J'ai dans une feuille qui se cahe à l'overture les solutions
Y-at-il une astuce pour boquer l'acces au solutions du problème .

Merci encore pour toutes ces réponses déjà données

Bonjour à toi aussi, *Jean-Paul V*.
*Pour reprendre les termes de ton intervention* -voir en fin de message :

Mets la propriété "Visible" de la feuille contenant les solutions à
xlSheetVeryHidden
et protège ton projet VBA par mot de passe.


--
Bien cordialement,
==================================== P. Bastard.
Pour me contacter, remplacez "Chez" par @ dans l'adresse

Une foule de conseils utiles sur le site de Misange :
http://www.excelabo.net

Bonjour à tous

J'ai fait un classeur pédagogique avec des exercices
J'ai dans une feuille qui se cahe à l'overture les solutions
Y-at-il une astuce pour boquer l'acces au solutions du problème .

Merci encore pour toutes ces réponses déjà données

Bonjour Jean-Paul V

tu fais une petite macro comme celle-ci :

'---------------------
Private Sub FeuilleCachée()

Worksheets("Feuil1").Visible = xlVeryHidden

End Sub
'---------------------

Ceci masquera ta feuille et la seule façon de la voir à nouveau, c'est d'utiliser la même ligne de code :

Worksheets("Feuil1").Visible = true


Le fait d'utiliser le mot "Private" empêche de voir le nom de la macro dans la fenêtre des macros Alt + F8


Salutations!


"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le message de news:
0183E4EE-5C9B-4C81-9F1F-BE74F176B591@microsoft.com...
Bonjour à tous

J'ai fait un classeur pédagogique avec des exercices
J'ai dans une feuille qui se cahe à l'overture les solutions
Y-at-il une astuce pour boquer l'acces au solutions du problème .

Merci encore pour toutes ces réponses déjà données

Bonjour

Je viens d'essayer et ca ne marche pas
L'acces que je veux interdire est bien la feuille1 que j'ai appelé Solution
J'ai mis dans le module1:
Sub Auto_Open()
Application.ScreenUpdating = False
Sheets("Solution").Visible = True
'Range("A2").Select
Application.Goto Reference:="ZOOM1"
ActiveWindow.Zoom = True
Range("A1").Select
Cachée
'ActiveWindow.SelectedSheets.Visible = False
Range("A1").Select
Application.Goto Reference:="ZOOM4"
ActiveWindow.Zoom = True
Application.Goto Reference:="ZOOM3"
ActiveWindow.Zoom = True
Range("A1").Select
Application.Goto Reference:="ZOOM2"
ActiveWindow.Zoom = True
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Private Sub Cachée()
Worksheets("Feuil1").Visible = xlVeryHidden
End Sub



Private Sub Montrer()
Worksheets("Feuil1").Visible = True
End Sub

Et à l'ouverture j'ai un bug sur "Worksheets("Feuil1").Visible =
xlVeryHidden"

où est l'erreur?

Merci encore et bonne soirée

Bonjour Jean-Paul V

tu fais une petite macro comme celle-ci :

'---------------------
Private Sub FeuilleCachée()

Worksheets("Feuil1").Visible = xlVeryHidden

End Sub
'---------------------

Ceci masquera ta feuille et la seule façon de la voir à nouveau, c'est d'utiliser la même ligne de code :

Worksheets("Feuil1").Visible = true


Le fait d'utiliser le mot "Private" empêche de voir le nom de la macro dans la fenêtre des macros Alt + F8


Salutations!


"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le message de news:
0183E4EE-5C9B-4C81-9F1F-BE74F176B591@microsoft.com...
Bonjour à tous

J'ai fait un classeur pédagogique avec des exercices
J'ai dans une feuille qui se cahe à l'overture les solutions
Y-at-il une astuce pour boquer l'acces au solutions du problème .

Merci encore pour toutes ces réponses déjà données

Et à l'ouverture j'ai un bug sur

"Worksheets("Feuil1").Visible = xlVeryHidden"


Est-ce que le nom de l'onglet de la feuille que tu veux cacher s'appelle "Feuil1" sinon, tu dois remplacer "Feuil1" par
le vrai nom de la feuille de ton application.


Salutations!

Bonjour
Merci ça marche !

"michdenis" wrote:

Et à l'ouverture j'ai un bug sur

"Worksheets("Feuil1").Visible = xlVeryHidden"


Est-ce que le nom de l'onglet de la feuille que tu veux cacher s'appelle "Feuil1" sinon, tu dois remplacer "Feuil1" par
le vrai nom de la feuille de ton application.


Salutations!