Accueil > Forum > > > > focus et autre
 focus et autre
vendredi 19 avril 2002 à 09:14:29 |
focus et autre
kyp
|
bonjour je developpe un petit logiciel pour une entreprise ds le cadre de mon stage en excel+VBA...j aimerais limiter les action spossibles de l utilisateur de facon a ce kil n accede pas a excel,kil ne voit ke ma user form... donc j aimerais pouvoir abaisser mon doc excel mais laisser la userform visible bien sur,et surtout empecher kil accede au doc excel,je m imagine k en fait il n ai pas le droit de deplacer le focus autre part ke sur les user form ,enfin je ve kil n ai pas la possibilité de toucher au menu excel(pour enregistrer etc,ou kil fasse des conneries...)..pouvez vous m aider |
|
vendredi 19 avril 2002 à 13:53:51 |
Re : focus et autre
Neo.balastik
|
Salut,
Un truc sympa à mettre dans ton user form:
Il te faut 2 boutons de commande.
Le but est de cacher la fenêtre d'Excel via le premier bouton et de la faire réapparaître avec le 2e.
Tout cela avec des API's bien sûr.
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Const SW_HIDE = 0
Const SW_SHOW = 5
Dim CurrentHwnd As Long
Dim ParentHwnd As Long
Private Sub CommandButton1_Click()
'On cache la fenêtre d'Excel
ShowWindow ParentHwnd, SW_HIDE
End Sub
Private Sub CommandButton2_Click()
'On affiche la fenêtre d'Excel
ShowWindow ParentHwnd, SW_SHOW
End Sub
Private Sub UserForm_Activate()
'On obtient le handle de la fenêtre en cours
'Peut pas faire autrement, y a pas de propriété
'Hwnd en VBA Excel
CurrentHwnd = GetActiveWindow
'On obtient le handle de la fenêtre parent, c'est à dire celle d'Excel...
ParentHwnd = GetParent(CurrentHwnd)
'Et quand on a tout ca, on peut en faire des choses marrantes....
End Sub
Bonne chance.
Tchao
NéoB
-------------------------------
Réponse au message :
-------------------------------
bonjour je developpe un petit logiciel pour une entreprise ds le cadre de mon stage en excel+VBA...j aimerais limiter les action spossibles de l utilisateur de facon a ce kil n accede pas a excel,kil ne voit ke ma user form...
donc j aimerais pouvoir abaisser mon doc excel mais laisser la userform visible bien sur,et surtout empecher kil accede au doc excel,je m imagine k en fait il n ai pas le droit de deplacer le focus autre part ke sur les user form ,enfin je ve kil n ai pas la possibilité de toucher au menu excel(pour enregistrer etc,ou kil fasse des conneries...)..pouvez vous m aider
|
|
vendredi 19 avril 2002 à 14:25:43 |
neo b mon sauveur
kyp
|
toujours toi ki m aide merci ;-)
-------------------------------
Réponse au message :
-------------------------------
Salut,
Un truc sympa à mettre dans ton user form:
Il te faut 2 boutons de commande.
Le but est de cacher la fenêtre d'Excel via le premier bouton et de la faire réapparaître avec le 2e.
Tout cela avec des API's bien sûr.
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Const SW_HIDE = 0
Const SW_SHOW = 5
Dim CurrentHwnd As Long
Dim ParentHwnd As Long
Private Sub CommandButton1_Click()
'On cache la fenêtre d'Excel
ShowWindow ParentHwnd, SW_HIDE
End Sub
Private Sub CommandButton2_Click()
'On affiche la fenêtre d'Excel
ShowWindow ParentHwnd, SW_SHOW
End Sub
Private Sub UserForm_Activate()
'On obtient le handle de la fenêtre en cours
'Peut pas faire autrement, y a pas de propriété
'Hwnd en VBA Excel
CurrentHwnd = GetActiveWindow
'On obtient le handle de la fenêtre parent, c'est à dire celle d'Excel...
ParentHwnd = GetParent(CurrentHwnd)
'Et quand on a tout ca, on peut en faire des choses marrantes....
End Sub
Bonne chance.
Tchao
NéoB
-------------------------------
Réponse au message :
-------------------------------
bonjour je developpe un petit logiciel pour une entreprise ds le cadre de mon stage en excel+VBA...j aimerais limiter les action spossibles de l utilisateur de facon a ce kil n accede pas a excel,kil ne voit ke ma user form...
donc j aimerais pouvoir abaisser mon doc excel mais laisser la userform visible bien sur,et surtout empecher kil accede au doc excel,je m imagine k en fait il n ai pas le droit de deplacer le focus autre part ke sur les user form ,enfin je ve kil n ai pas la possibilité de toucher au menu excel(pour enregistrer etc,ou kil fasse des conneries...)..pouvez vous m aider
|
|
Cette discussion est classée dans : ke, excel, focus, kil, accede
 Répondre à ce message
 Sujets en rapport avec ce message
focus et autre [ par kyp ]
bonjour je developpe un petit logiciel pour une entreprise ds le cadre de mon stage en excel+VBA...j aimerais limiter les action spossibles de l utili
excel saisie [ par T103 ]
sous excel, je voudrai ke lutilisateur ne puisse saisir dans les cellules ke des noms ke jorai specifierpar ex :il poura ecrire interim, stage mai pas
Lost focus userform dans excel. [ par jpsonza ]
Bonjour,Dans mon appli en VBA j'affiche un userform dans ma feuille excel , j'aimerais savoir s'il est possible de faire:Que le userform soit utilisab
aidez moi svp [ par pharaohXe ]
voila ca fait pas longtemps ke je me suis mie a visual basic et la j'ai un probleme:je voudrai ke kan je clike sur un bouton et kil n'y a ps ce kil do
[excel] évennement lancé lorsqu'une useform perd le focus [ par didrocks ]
Bonjour! J'aimerai savoir quel est l'évenement déclenché lorsqu'une userform (non modale, donc), perd (ou reprend) le focus au profil d'une cellule da
focus pour textbox EXCEL [ par pino2 ]
PinoLorsque j'ouvre un userform je donne le focus a un textboxjusque là tous ok. mon textbox s'appelle TBrecdans Sub userform_activateTBrec.SetFocusJe
macro sous excel [ par tari ]
bjr a tous !!!je travaille sous access et excelSous access a partir d'un bouton j'exporte une table sous excel é j'ouvre excelUne fois sous excel, j'a
Passer le focus à une autre application sous VBA ? [ par Chouchensb ]
Bonjour,Qqu'un sait il comment passer le focus à une autre application sous VBA. Par exemple, si j'ai Excel et la calculatrice Windows ouverts, quelle
Excel pb sur perte de focus [ par Deca31 ]
Bonjour,Voici mon petit pb, excel 2002 sous windows 2000J'affiche un splendide formulaire qui marche très bien en excel c'est mon prunch! ), mais quan
Focus sur IE [ par chico95 ]
Salut a tous, Voila, j'ai une macro qui contrôle IE depuis Excel et j'aimerai savoir comment mettre le focus sur IE pour effectuer des sendkeys ! Pl
 Livres en rapport
|
Derniers Blogs
 GESTION D'EXCEPTION AVEC LES TASKSGESTION D'EXCEPTION AVEC LES TASKS par richardc
Nous avons vu dans un précédent article comment utiliser Task pour effectuer des opérations dans un autre thread.
Malheureusement, comme tout le monde n'est pas parfait, il se peut que cette exécution se passe mal et qu'une exception se produise.
La...
Cliquez pour lire la suite de l'article par richardc DéMARRONS AVEC LES TASKSDéMARRONS AVEC LES TASKS par richardc
Que vous le vouliez ou non, le développement multi-tâche est maintenant une obligation pour toute nouvelle application. Il est donc vital d'en comprendre les mécanismes et de s'y mettre le plus tôt possible.
En attendant le .NET Framework 4.5 avec le...
Cliquez pour lire la suite de l'article par richardc SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPSSLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko
Retrouvez les slides et les démo de ma session Fast & Furious XAML Apps. A ceux qui se posent la question : "est-ce que le code de la DataGrid est disponible?", je vous répondrais "pas encore". Je vais mettre en place un projet codeplex pour part...
Cliquez pour lire la suite de l'article par Vko XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|