• Initiateur de la discussion Initiateur de la discussion Fermo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

F

Fermo

Guest
Bonjour... quand Excel démarre, avec des macros, si l'on presse le bouton droit de la souris, on peut activer des menus,

J'aimerais, que le bouton droit soie bloqué, durand le début du chargement du fichier excel pour 5 sec. ~


Merci de votre aide
 
Salut Fermo et le forum

Ecrit ceci dans le module ThisWorkbook

Option Explicit
Dim chrono As Single

Private Sub Workbook_Open()
chrono = Timer
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, _
ByVal Target As Range, Cancel As Boolean)
If Timer - chrono < 5 Then
Cancel = True
Else
Cancel = False
End If
End Sub

Mytå
 
Salut Mita, merci pour ta réponse, mais je n'arrive pas à faire marcher ta formule...
Ou dois je mettre *Option Explicit Dim... et comment.

Pour l'open et la suivante, je les ais collé, celà ce partage automatiquement, ça devrait jouer!

Ecrit ceci dans le module ThisWorkbook

Option Explicit ?
Dim chrono As Single ?
--------------------------------------------------------
Private Sub Workbook_Open()
chrono = Timer
End Sub
---------------------------------------------------------
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, _
ByVal Target As Range, Cancel As Boolean)
If Timer - chrono < 5 Then
Cancel = True
Else
Cancel = False
End If
End Sub
 
Re bonjour Myta, effectivement cela fonctionne, mais que, quand le fichier est chargé.
Si tu double clic, dès que tu as lancé le fichier, pendant et avant qu'il est chargé, tu peux choisir les menus et ça je pense que c'est problématique!!!


Merci pour ta réponse Fermo
 
Re fermo

Ajoute ceci pour bloquer le double click

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Timer - chrono < 5 Then
Cancel = True
Else
Cancel = False
End If
End Sub

Mytå
 
Re Myta ...


Je recommence mon explication qui apparemment n'est pas explicite.

Quand tu ouvres ton fichier souris.xls, qui est par exemple sur le bureau, tu double clic, et le fichier commence l'ouverture.

Pendant ce temps là, depuis le moment ou tu as lancé le fichier et qu'il soit entièrement charger, ou pendant qu'il charge...

Tu peux avec le bouton droit, choisir les menus et c'est ça que j'aimerais éviter !

Et ainsi bloquer la souris, mais pas quand le fichier est ouvert... Avant

A + si tu as une idée Merci
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
15
Affichages
347
Réponses
3
Affichages
153
Réponses
4
Affichages
221
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
418
Retour