Discussion :

[Garion27]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[laetitia]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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