Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Empecher l'ouverture d'Excel

Empecher l'ouverture d'Excel

3 réponses
Avatar
Nikolas
Bonjour,

Je souhaite empêcher l’ouverture d’un fichier Excel suivant des conditions.
J’ai fait le code ci-dessous, mais quand je double clique sur le fichier
Excel pour l’ouvrir, il s’ouvre puis se referme automatiquement, mais je
souhaiterais qu’il ne s’ouvre pas du tout c'est-à-dire que si double clique
sur mon fichier Excel, rien ne se passe, est-ce possible ?.

Voici mon code :

Private Sub Workbook_Open()
Application.Quit
End Sub

Merci de votre aide
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MB
Bonjouir

Je souhaite empêcher l'ouverture d'un fichier Excel suivant des
conditions.


Lesquelles ?
C'est pour le proteger ?

le mettre en fichier caché ?

Le cacher dans le dedale de l'arborescence windows

Cordialement

Michel BERTRAND

Avatar
Nikolas
Bonjour Michel,

Je vais résumer ce que je souhaite faire. J'envoie des données depuis Access
vers Excel. J'ouvre par Access le fichier Excel puis je fais apparaître une
progress bar et je formate en même temps mon fichier Excel.

Dans le cas ou la personne ouvre le fichier sans passer par Access, je
souhaite faire ceci, et il y deux techniques.
1/ La personne double clique, le fichier ne s'ouvre pas mais il fait
apparaître une progress bar qui provient d’Excel est quand c'est à 100%, mon
fichier Excel s'ouvre.

2/ La personne double clique, le fichier s'ouvre mais le classeur est caché,
je fais apparaître une progress bar et quand je suis à 100 %, alors je fais
apparaître, le classeur.

Merci de votre aide,

Nikolas


Bonjouir

Je souhaite empêcher l'ouverture d'un fichier Excel suivant des
conditions.


Lesquelles ?
C'est pour le proteger ?

le mettre en fichier caché ?

Le cacher dans le dedale de l'arborescence windows

Cordialement

Michel BERTRAND






Avatar
Oliv'
Nikolas que je salut a écrit dans

Bonjour Michel,

Je vais résumer ce que je souhaite faire. J'envoie des données depuis
Access vers Excel. J'ouvre par Access le fichier Excel puis je fais
apparaître une progress bar et je formate en même temps mon fichier
Excel.

Dans le cas ou la personne ouvre le fichier sans passer par Access, je
souhaite faire ceci, et il y deux techniques.
1/ La personne double clique, le fichier ne s'ouvre pas mais il fait
apparaître une progress bar qui provient d'Excel est quand c'est à
100%, mon fichier Excel s'ouvre.

2/ La personne double clique, le fichier s'ouvre mais le classeur est
caché, je fais apparaître une progress bar et quand je suis à 100 %,
alors je fais apparaître, le classeur.

Merci de votre aide,

Nikolas




Pour la solution 2 Il te faudrait masquer les feuilles avant fermeture de
ton classeur et les laisser masquer tant que ta macro n'est pas terminée,
mais je doute qu'elle puisse s'executer si les feuilles sont masquées.
mais si c'est ce que tu veux : à mettre dans thisworbook

Tu crées une feuille ici nommé ActiverMacros qui sera la seule a aparaitre
si ton utilisateur n'active pas les macros.
et tu y indiques veuillez refermer et activer les macros...

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Enregistrer = MsgBox("Voulez-vous enregistrer les modifications ?", vbYesNo
+ vbQuestion)
If Enregistrer = 6 Then
Sheets("ActiverMacros").Visible = True
For Each sh In Sheets
If sh.Name <> "ActiverMacros" Then sh.Visible = xlVeryHidden
Next sh
Sheets("ActiverMacros").Visible = True
Save
Else: ThisWorkbook.Saved = True
End If
End Sub

Private Sub Workbook_Open()
Application.ScreenUpdating = False
For Each sh In Sheets
sh.Visible = True
Next sh
Sheets("ActiverMacros").Visible = xlVeryHidden
End Sub

Pour la 1 et je pense que cela repondra plus a ta demande crée un userform
que tu affichespar la macro
Workbook_Open avec le code suivant
Userform1.show vbModeless

Un mélange des 2 peux être ta réponse
Voir le site de http://frederic.sigonneau.free.fr/Bricolos.htm ou
http://www.excelabo.net/xl/userforms.php

--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


Bonjouir

Je souhaite empêcher l'ouverture d'un fichier Excel suivant des
conditions.


Lesquelles ?
C'est pour le proteger ?

le mettre en fichier caché ?

Le cacher dans le dedale de l'arborescence windows

Cordialement

Michel BERTRAND