Y a-t-il un moyen d'empêcher un utilisateur d'ouvrir un fichier Excel en
appuyant sur [Shift], ce qui empêcherait la macro de démarrage de s'exécuter ?
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
Denis Michon
Bonjour Patrick,
Je doute qu'il soit possible d'empêcher l'usager d'enfoncer la touche Shift mais tu peux quand même faire en sorte que ta macro d'ouverture s'exécute quand même !
Installe ce processus dans ton ThiWorkbook de ton classeur et observe l'effet de la touche "Shift"
'Déclaration de la variable dans le haut du classeur Dim Ouverture As Boolean '------------------------- Private Sub Workbook_Activate()
If Ouverture = False Then Workbook_Open End If
End Sub '------------------------- Private Sub Workbook_Open()
Ouverture = True MaProcédure
End Sub '------------------------- Sub MaProcédure() MsgBox "Bonjour" End Sub '-------------------------
Salutations!
"Patrick Fredin" a écrit dans le message de news:
Bonjour,
Y a-t-il un moyen d'empêcher un utilisateur d'ouvrir un fichier Excel en appuyant sur [Shift], ce qui empêcherait la macro de démarrage de s'exécuter ?
Je n'ai rien trouver sur le sujet.
Merci pour votre aide.
-- Patrick
Bonjour Patrick,
Je doute qu'il soit possible d'empêcher l'usager d'enfoncer la touche Shift mais tu peux quand même faire en sorte que ta macro
d'ouverture s'exécute quand même !
Installe ce processus dans ton ThiWorkbook de ton classeur et observe l'effet de la touche "Shift"
'Déclaration de la variable dans le haut du classeur
Dim Ouverture As Boolean
'-------------------------
Private Sub Workbook_Activate()
If Ouverture = False Then
Workbook_Open
End If
End Sub
'-------------------------
Private Sub Workbook_Open()
Ouverture = True
MaProcédure
End Sub
'-------------------------
Sub MaProcédure()
MsgBox "Bonjour"
End Sub
'-------------------------
Salutations!
"Patrick Fredin" <nospam_patrick.fredin@iquebec.com> a écrit dans le message de news:
731A5472-D901-4E61-9855-239C1CF4B2EB@microsoft.com...
Bonjour,
Y a-t-il un moyen d'empêcher un utilisateur d'ouvrir un fichier Excel en
appuyant sur [Shift], ce qui empêcherait la macro de démarrage de s'exécuter ?
Je doute qu'il soit possible d'empêcher l'usager d'enfoncer la touche Shift mais tu peux quand même faire en sorte que ta macro d'ouverture s'exécute quand même !
Installe ce processus dans ton ThiWorkbook de ton classeur et observe l'effet de la touche "Shift"
'Déclaration de la variable dans le haut du classeur Dim Ouverture As Boolean '------------------------- Private Sub Workbook_Activate()
If Ouverture = False Then Workbook_Open End If
End Sub '------------------------- Private Sub Workbook_Open()
Ouverture = True MaProcédure
End Sub '------------------------- Sub MaProcédure() MsgBox "Bonjour" End Sub '-------------------------
Salutations!
"Patrick Fredin" a écrit dans le message de news:
Bonjour,
Y a-t-il un moyen d'empêcher un utilisateur d'ouvrir un fichier Excel en appuyant sur [Shift], ce qui empêcherait la macro de démarrage de s'exécuter ?
