Discussion :

[retraite83]

Bonjour,

peut-on obliger de passer par une macro pour ouvrir un classeur, c'est à dire empêcher qu'il ne s'ouvre directement.

[jerome.vaussenat]

Salut,

Voici une proposition. elle est composée de 2 codes macros :
Un dans le fichier qui doit être ouvert par la macro (et que la macro)
Ce code est à placer dans le module "Thisworkbook". Il demande la fermeture du fichier ...

Code :

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

1
2
3
Private Sub Workbook_Open()
    ActiveWorkbook.Close
End Sub

Le problème, c'est que maintenant, si tu veux ouvrir le fichier, a chaque fois, il se ferme ...
Donc dans la macro qui ouvre le fichier, il faut momentanément désactiver les événements

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Macro1()
'
' Macro1 Macro
'
 
    Application.EnableEvents = False ' => désactive les événements
 
   'ton code pour ouvri le fichier et faire ce que tu veux dedant
 
    Application.EnableEvents = True
End Sub

Juste pour être complet, si tu veux, tout de même ouvrir le premier fichier sans passer par une macro (et oui, il y a toujours une solution mais il faut la connaître !!!)
Passe par la commande ouvrir et Maintient la touche "Shift" pendant l'ouverture. Cela à comme effet de déactiver les événements momentanément.

[unparia]

Bonjour
Tu peux toujours aller au plus simple --->> le protéger par un mot de passe et utiliser ce mot de passe dans l'instruction (ta macro) de son ouverture

[retraite83]

Merci,

je comprends bien le principe, ok pour le code dans le classeur appelé qui ne doit être ouvert que par une macro

Code :

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

1
2
3
4
 
Private Sub Workbook_Open()
    ActiveWorkbook.Close
End Sub

par contre pour

Code :

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

sub macro1

je ne vois pas bien car il y a des liaisons entre les 2 fichiers, vont-elles être mises à jour automatiquement à l'ouverture du classeur ?

je vais tester

[unparia]

je ne vois pas bien car il y a des liaisons entre les 2 fichiers, vont-elles être mises à jour automatiquement à l'ouverture du classeur ?

Il s'agit là d'une autre question, n'ayant rien à voir avec le fait que le fichier soit ouvrable ou non autrement que par macro.

[clementmarcotte]

Bonjour,

Bonjour,

peut-on obliger de passer par une macro pour ouvrir un classeur, c'est à dire empêcher qu'il ne s'ouvre directement.

Non. Sauf peut-être pour un expert en programmation Windows. Ceci dit, les solutions proposées devraient suffire pour les utilisateurs honnêtes et obéissants.

[unparia]

Bonjour clementmarcotte

Ceci dit, les solutions proposées devraient suffire pour les utilisateurs honnêtes et obéissants.

Et tous les autres (les espiègles ... et ils ne manquent pas) se dépêcheront d'ouvrir ce classeur, justement parce qu'il aura été protégé (ils voudront savoir pourquoi, du coup ).

[unparia]

Les plus vicieux :
- écriront dans le classeur concerné (celui à ne pas ouvrir autrement que par macro depuis un classeur d'appel) une instruction telle que si condition (par exemple présence d'un fichier texte créé et rempli depuis le classeur d'appel) non vérifiée -->> ouverture d'un classeur tiers totalement "bidon", ou de n'importe quoi (la calculette, un jeu quelconque, etc ... par exemple) puis fermeture du classeur.
- écriront depuis le classeur d'appel une instruction de création/remplissage du fichier texte que recherchera le classeur concerné (celui à ne pas ouvrir autrement)
Et ? -->> et ils trouveront toujours un encore plus vicieux qu'eux pour deviner qu'il y a là un mécanisme étrange, qu'il s'efforceront de découvrir, ne serait-ce que pour s'amuser. Et ils y parviendront

Bref -->> beaucoup de travail dans un but assez "questionnable".

[retraite83]

Merci à tous, je prends note de vos conseils, j'ai implémenté la solution du post #2 et cela correspond bien à mon besoin

[Pierre Fauconnier]

Salut.

Attention toutefois avec Application.EnableEvents.

Sans une gestion d'erreurs qui permet de restaurer la gestion des évènements, tu pourrais bloquer les évènements sur tous les fichiers ouverts, même ceux qui sont indépendants de ton "système". Ca pourrait énerver plus d'un utilisateur si ton fichier se plante.

Je ne saurais trop conseiller d'intégrer une gestion d'erreurs

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
  On Error GoTo EndHandler
 
  Application.EnableEvents = False
  ...
  ...
  ...
 
EndHandler:
  Application.EnableEvents = True
End Sub

[retraite83]

Quand j'ouvre mon fichier je fais ça :

Code :

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

1
2
3
4
 
Application.EnableEvents = False
Workbooks.Open ThisWorkbook.Path & "\fichier.xlsm"
Application.EnableEvents = True

Cela marche très bien mais tu me conseilles donc plûtot cela ?

Code :

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

1
2
3
4
5
6
7
 
On Error GoTo EndHandler
 
  Application.EnableEvents = False    ' si erreur on saute cette ligne
  Workbooks.Open ThisWorkbook.Path & "\fichier.xlsm"   ' si erreur on n'ouvre pas
EndHandler:
  Application.EnableEvents = True

[Pierre Fauconnier]

Oui. imagine ce qui se passe si ton fichier ne peut s'ouvrir pour une raison ou une autre. Il y aura une erreur, tu stopperas le code et Application.EnableEvents restera à False.

Il faut toujours gérer les erreurs lorsque le code modifie une propriété d'application, de manière à remettre Excel dans l'état dans lequel ta macro l'a trouvé.

(Normalement, il faudrait toujours gérer les erreurs avec un On error... sur les évènements, qui sont en général les premiers appels de pile, de manière à ne pas entrer en débogage)

[retraite83]

Oui j'ai bien noté et bien compris,

merci je vais vérifié tout ça (je ne touche quand même pas les propriétés d'application à tout va !)

[retraite83]

Bonjour,

je reprends cette discussion voulant "protéger" l'accès à certains classeurs

Dans un classeur "test" je fais uniquement :

Code :

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

1
2
3
4
5
6
7
 
Private Sub Workbook_Open()
       Msgbox "test"
       ActiveWorkbook.Close
       Exit Sub
Msgbox "ok"
End Sub

j'ouvre en faisant "Ouvrir" et en maintenant enfoncée la touche "Shift", j'ai bien le message "test" mais jamais "ok"

Le classeur se ferme toujours

Où est mon erreur ? je ne la vois pas d'après vos conseils..

[eriiic]

Bonjour,

ça fait quoi à ton avis Exit Sub ?
Et à plus forte raison s'il est précédé de ActiveWorkbook.Close
Seul Chuck Norris arrive à voir Ok
eric

[retraite83]

Bonjour,

oui mais bon sang mais c'est bien sur...