Discussion :

[Capt_Nemo]

Bonjour à tous,

Comme beaucoup d'entre nous, mes fichiers Excel comprennent diverses macros écrites en VBA.

Je voudrais vérifier, au démarrage de mon fichier excel que le niveau de sécurité du PC utilisé, autorise bien l'acitvation des macros.

- Si le système autorise bien les macros ---> rien de spécial, le fichier s'ouvre normalement
- Sinon
Message: "Les macros ne sont pas actives, je vous invite à revoir le niveau de sécurité. Je vais fermer votre fichier !" et fermeture du fichier en sortie de ce message.


En fait, il s'agit d'écrire ici un petit code VBA et le placer dans mon fichier, une macro donc !
MAis si les macros ne sont pas activées ... ce code ne sera jamais lu !??
Sauf peut-être si on le place dans la partie "ThisWorkbook" ???

Merci pour votre aide.

Zorgloub.

[Bigalo]

Bonjour,

Très simple, SAUF la fermeture automatique du fichier :

Par défaut, toutes les feuilles sont masquées sauf 1 avec ton message légèrement adapté : "Les macros ne sont pas actives, je vous invite à fermer votre fichier et revoir le niveau de sécurité."

Une explication plus détaillée est conseillée, car la majorité des utilisateurs ne sait même pas ce qu'est le niveau de sécurité !

Dans le Workbook_Open(), on affiche toutes les feuilles sauf celle avec le message.

Dans le BeforeClose(), on fait l'inverse.

[Capt_Nemo]

Bonjour,

Merci pour votre réponse Très rapide et ce procédé effectivement simple mais efficace !

@+

[Capt_Nemo]

... (suite)

Quelle serait la ligne de commande VBA pour masquer toutes les pages sauf une ?

@+

[laetitia]

bonjour Capt_Nemo Bigalo le forum

dans BeforeClose

Code :

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

1
2
3
4
5
6
7
8
9
Sub masquer()
    Dim n As Byte, c As Byte
    Application.ScreenUpdating = False
    n = ThisWorkbook.Sheets.Count
    c = 2
    For c = 2 To n
        Sheets(c).Visible = xlSheetVeryHidden
    Next
   End Sub

dans open

Code :

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

1
2
3
4
5
6
7
8
9
Sub demasquer()
    Dim n As Byte, c As Byte
    Application.ScreenUpdating = False
    n = ThisWorkbook.Sheets.Count
    c = 2
    For c = 2 To n
        Sheets(c).Visible = xlSheetVisible
    Next
   End Sub

en complement de bigalo ne pas oublie de proteger ton projet par un mot de passe dans vba outils puis vbaproject.. puis protection ton code a confirmer

mais bon meme avec tous ca tu auras pas une protection absolu des cracks existe pour casser tous ca j' ai pas le droit de les nommer enfin!!!suffisant pour des nons bidouilleurs???

[Bigalo]

Par hypothèse, la feuille à ne pas masquer est nommée "Info"

De manière générale, pour un classeur quelconque ; dans un module standard :

Code :

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

1
2
3
4
5
6
7
8
 
Sub Masque()
Dim f
' ou si le classeur ne contient que des feuilles de calcul, Dim f as Worksheet
    For Each f In ActiveWorkbook.Sheets
        If f.Name <> "Info" Then f.Visible = True
    Next
End Sub

Ou dans le ThisWorkbook du classeur concerné :

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Workbook_Open()
Dim f
' ou si le classeur ne contient que des feuilles de calcul, Dim f as Worksheet
    For Each f In Me.Sheets
        If f.Name <> "Info" Then f.Visible = False
    Next
End Sub

[laetitia]

re bigalo .visible=false moins radicale que xlSheetVeryHidden non???

[Bigalo]

Bonsoir laetitia,

Tout à fait, mais on n’a pas particulièrement besoin de quelque chose de radical. Il s’agit juste d’aider les utilisateurs paumés quand les macros ne sont pas accessibles à cause du réglage du niveau de sécurité.