Comment rendre indisponible une feuille si macro pas active ?

bonjour Patrick,

il y a un exemple ici : http://www.excelabo.net/trucs/forcer_macros

isabelle

Patrick24 a écrit :

Bonjour,

Comment rendre indisponible (pas utilisable), mais visible une feuille
de calcul si les macros ne sont pas actives ? et donc de faire en
sorte d'activer les macros?
Merci de votre aide.
Patrick.

Bonjour,

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Sheets("xxx").Visible = xlVeryHidden
End Sub

Private Sub Workbook_Open()
Sheets("xxx").Visible = True
End Sub

JB
http://boisgontierjacques.free.fr/





On 17 oct, 13:58, "Patrick24" <no-s...@wanadoo.fr> wrote:

Bonjour,

Comment rendre indisponible (pas utilisable), mais visible une feuille de
calcul si les macros ne sont pas actives ? et donc de faire en sorte
d'activer les macros?
Merci de votre aide.
Patrick.

Bonjour,
Merci pour vos réponses ça fonctionne bien, mais je viens de mettre à jour
un autre problème
Je vais faire un autre post gestion erreur
Merci beaucoup
Bonne journée.

"JB" <boisgontier@hotmail.com> a écrit dans le message de groupe de
discussion :
8b851907-6617-4fc5-a12d-67dccd8c3e91@f16g2000yqm.googlegroups.com...

Bonjour,

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Sheets("xxx").Visible = xlVeryHidden
End Sub

Private Sub Workbook_Open()
Sheets("xxx").Visible = True
End Sub

JB
http://boisgontierjacques.free.fr/





On 17 oct, 13:58, "Patrick24" <no-s...@wanadoo.fr> wrote:

Bonjour,

Comment rendre indisponible (pas utilisable), mais visible une feuille de
calcul si les macros ne sont pas actives ? et donc de faire en sorte
d'activer les macros?
Merci de votre aide.
Patrick.