Amélioration macro "activation macro"

Bonjour à tous

j'ai trouvé sur le net une macro qui permet à l'ouverture (d'un fichier contenant une macro) d'afficher si on désactive les macro (car niveau de sécurité trop haut ou la personne qui ouvre le classeur désactive les macro par peur du message) sur la feuille "Alerte macro" un message comme quoi il faut activer les macro pour pouvoir utiliser le classeur et en l'occurrence la Feuill1.

Cependant comme j'ai d'autre feuille que la feuille 1 si à l'ouverture du classeur on désactive les macros on voit toujours les feuille 2, 3 etc... (pas forcément feuill avec un chiffre).

j'aimerai qu'il y ait uniquement la feuille "Alerte macro" qui apparaisse et que les autre soit masquer et peut être même si possible que ne puisse pas y accédé (vérouillage) puisque en passant par ce chemin on peut démasquer la feuill1 :
cliquez sur le menu Format, sur Feuille puis sur Afficher.

C'est je pourrai répéter Sheets("").Visible = True mais c'est trop lourd.

1/ Avez une solution à mon problème ?

La macro est la suivante :
Code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.ScreenUpdating = False Sheets("AlerteMacro").Visible = True Sheets("Feuil1").Select 'ou autre page ActiveWindow.SelectedSheets.Visible = False With ActiveWindow .DisplayHorizontalScrollBar = True .DisplayVerticalScrollBar = True End With Application.DisplayFormulaBar = True ActiveWindow.DisplayHeadings = True End Sub

---

Code:

---

1 2 3 4

Private Sub Workbook_Open() Sheets("Feuil1").Visible = True 'ou autre page Sheets("AlerteMacro").Visible = False End Sub

---

Merci d'avance de votre aide

bonjour Garion27 le forum deja il vaut mieux utiliser
xlSheetVeryHidden que .visible=false

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub masquer() Dim nbre As Byte, cptr As Byte Application.ScreenUpdating = False nbre = ThisWorkbook.Sheets.Count cptr = 2 For cptr = 2 To nbre Sheets(cptr).Visible = xlSheetVeryHidden Next Application.ScreenUpdating = False End Sub

---