Forcer l'activation des macros

Version imprimable

21/10/2009, 16h35
steps5ive

Forcer l'activation des macros

Bonjour,

J'ai un fichier excel que j'envoie à plusieurs personnes dans lequel elles doivent entrer certains chiffres que je récupère plus tard. Ces chiffres affectent des colonnes verrouillées dans lesquelles s'effectuent des calculs divers par macros.

Le problème est que bien souvent, les usagers utilisent le fichier sans activer les macros (même si c'est écrit bien en évidence à l'ouverture du fichier....) et donc mes calculs ne s'effectuent pas correctement et lorsque je les récupère, tout est faussé.

Et puisque les macros ne sont pas activées, il est hors de question de traiter ce problème par code. Donc, avez-vous une idée comment je pourrais empêcher les modifications sans l'activation des macros?

Merci et bonne journée.
21/10/2009, 16h50
jfontaine

Bonjour,

Une solution serait d'utiliser l'evenement Workbook_Open pour mettre la date et l'heure d'ouverture du classeur

Code:

Sheets(1).Range("A1").Value = Now

dans la cellule B1 tu mets la formule renvoyant la meme information

Code:

=MAINTENANT()

Si les macros ne sont pas active, A1 sera inférieur a B1 tu utilises en suite les mises en forme conditionnel pour mettre un message en gros dans une cellule pour l'utilisateur
21/10/2009, 17h14
aalex_38

Bonjour à tous,

Une solution pour obliger à activer les macros, c'est de n'afficher qu'une seule feuille indiquant que les macros doivent être activées.

Si elles sont désactivées => la feuille s'afficher
Sinon lancer une macro au démarrage pour afficher toutes les feuilles, sauf celle qui previent qu'il faut activer les macro ...
22/10/2009, 02h11
Lufia

Bonjour à vous!

Je fouinais sur le forum quand j'ai vu cette discussion! Cette fonction m'intéresse beaucoup puisque je crée des fichiers avec macros utilisés par beaucoup d'utilisateurs et l'activation des macro est un problème récurant!
Comment mettre comme condition "si les macro sont activées"??

Merci!!
Geneviève
22/10/2009, 09h05
ucfoutu

Bonjour, Lufia,

Il te faut passer par l'un des stratagèmes décrits au dessus

Par ailleurs :
1) pour écrire ta condition, il te faudrait utiliser une macro !
2) la réponse donnée par aalex_38, qui n'est pas une vérification par expression conditionnelle mais un mécanisme "protecteur" qui empêche l'utilisation si les macros sont désactivées, me parait la plus astucieuse.

bonjour le fil le forum un exemple je cache la feuille2 par code important!!!
Code:

1 2 3 4 5 6 7 Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheets("feuil2").Visible = xlSheetVeryHidden End Sub Private Sub Workbook_Open() Sheets("feuil2").Visible = xlSheetVisible End Sub
bien sur proteger ton projet par mot de passse dans vba
mais bon un sujet recurrant!!! il exsite plein de "craks" pour casser le code du projet idem pour les feuilles suffisant pour un non bidouilleur!!

22/10/2009, 12h14
Lufia

Bonjour Laetitia, le forum!

Je ne suis pas certaine de comprendre ce que cela est supposé produire comme effet...

Peut-être est-ce un manque de café :oops: mais j'ai testé et rien ne se produit... que j'active ou non les macros ne change rien...

Peut-être être un peu plus explicite?

Merci!
Geneviève

Bonjour,

En supposant que "Feuil1" soit le nom de la feuille qui demande d'afficher les macros :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Fl As Worksheet
 
Set Fl = ThisWorkbook.Worksheets("Feuil1")
Fl.Visible = xlSheetVisible
 
For Each Fl In ThisWorkbook.Worksheets
    If Fl.Name <> "Feuil1" Then
        Fl.Visible = xlSheetVeryHidden
    End If
Next
 
 
 
Set Fl = Nothing
End Sub
 
Private Sub Workbook_Open()
On Error GoTo fin
Application.ScreenUpdating = True
 
Dim Fl As Worksheet
 
For Each Fl In ThisWorkbook.Worksheets
    If Fl.Name <> "Feuil1" Then
        Fl.Visible = xlSheetVisible
    End If
Next
 
If Application.ThisWorkbook.Worksheets.Count > 1 Then
    Set Fl = ThisWorkbook.Worksheets("Feuil1")
    Fl.Visible = xlSheetHidden
End If
fin:
Application.ScreenUpdating = True
Set Fl = Nothing
End Sub

22/10/2009, 14h19
steps5ive

Merci aalex_38!

J'ai opté pour ta solution et ça marche super bien!

Merci et bonne journée!!
22/10/2009, 14h27
aalex_38

Tant mieux si ça marche bien, j'ai repris l'exemple de Laetitia en le completant un peu.
22/10/2009, 14h29
Lufia

J'ai, encore une fois en tant que non expérimentée :oops:, une question pour vous!

Où dois-je inscrire ce code? Parce qu'en l'inscrivant dans Module1 de mon document ça n'a absolument aucun effet....
Y a-t-il autre chose que je dois activer??

Je souhaiterais d'obtenir le résultat suivant:

Si les macros sont désactivées, masquer toutes les feuilles du classeur sauf Feuil2 (où il sera inscrit de les activer).

Où encore mieux, activer automatiquement les macros sans laisser le choix à l'utilisateur.

Merci encore :)
Geneviève
22/10/2009, 14h33
aalex_38

Lufia, ici nous agissons gràce aux évenements du classeur.
Dans l'editeur VBA, dans Thisworkbook, plusieurs evenements sont disponibles regard dans les listes en haut.

Quand tu clique sur workbook dans la liste de gauche tu as tout les evenements correspondants que tu peux tester dans la fenetre de droite.

Dans l'exemple, on utilise open pour l'ouverture et beforeclose pour la fermeture.Il suffit de cliquer dessus pour que la sub soit créee.
22/10/2009, 17h05
Lufia

Aahhhhh voila je devais mettre dans ThisWorkbook et non dans un module :)

Maintenant ça fonctionne très bien!!!!
Merci beaucoup! Ce code s'appliquera à beaucoup de classeur!!!

Geneviève