Discussion :

[vandman]

Bonjour,

J'ai fait une super macro pour obliger les utilisateurs à remplir les cellules selon mes formats prédéfinis.

Le seul hic, c'est que lorsqu'on ouvre le fichier, les macros sont désactivées. Comment faire pour que les personnes à qui j'envoie le fichier, ouvre celui-ci avec les macros active ou ne puissent pas l'ouvrir du tout.

Cordialement,

[QuestVba]

Bonjour,

Il faut ruser. Moi je crée une feuille en plus où j'écris en grand activer les macros.

Evidemment, il faut avoir créé une macro pour masquer toutes les feuilles sauf la feuille de démarrage. Et s'il active les macro, alors démasquage des autres feuilles ....


A la fermeture de ton fichier, cette macro cahe tout sauf la feuille MacroActiv

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("MacroActiv").Visible = xlSheetVisible
For Each sh In Sheets
   If sh.Name <> "MacroActiv" Then sh.Visible = xlSheetVeryHidden
Next sh
ActiveWorkbook.Save
End Sub

A l'activation des macro,

Code :

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

1
2
3
4
5
6
Private Sub Workbook_Open()
For Each sh In Sheets
   sh.Visible = xlSheetVisible
Next sh
Sheets("MacroActiv").Visible = xlSheetVeryHidden
End Sub

[vandman]

Merci, Ca fonctionne.

[QuestVba]

Ne pas oublier