Bonjour voici une macro permettant de supprimer les raccourcies du clavier:
Sub Désactive()
Dim K, I As Integer
On Error Resume Next
For Each K In
Array("^", "%", "+^", "+%", "^%", "+^%")
For I = 32 To 255
Application.OnKey K & Chr$(I), ""
Next I
Next K
End Sub
Sub
Réactive()
Dim K, I As Integer
On Error Resume Next
For Each K In
Array("^", "%", "+^", "+%", "^%", "+^%")
For I = 32 To 255
Application.OnKey K & Chr$(I)
Next I
Next K
End Sub
Mon souci vient dans le fait que lorsque je fais fonctionner cette macro et
que je la compil avec Visual Basic pas de souci elle marche.J'enregsitre tout
mon classeur je le réouvre et la je m'appercoit que celle ci ne marche
plus.Je dois a chaque fois faire alt+F11 et aller dans Visual basic et
refaire play et la sa remarche.
Avez vous une solution a mon souci?
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
anonymousA
bonjour,
à l'ouverture du classeur (dans le workbook_open) la macro Désactive est-elle lancée ?
A+
Bonjour voici une macro permettant de supprimer les raccourcies du clavier: Sub Désactive() Dim K, I As Integer On Error Resume Next For Each K In Array("^", "%", "+^", "+%", "^%", "+^%") For I = 32 To 255
Application.OnKey K & Chr$(I), "" Next I Next K End Sub
Sub Réactive() Dim K, I As Integer On Error Resume Next For Each K In Array("^", "%", "+^", "+%", "^%", "+^%") For I = 32 To 255
Application.OnKey K & Chr$(I) Next I Next K End Sub
Mon souci vient dans le fait que lorsque je fais fonctionner cette macro et que je la compil avec Visual Basic pas de souci elle marche.J'enregsitre tout mon classeur je le réouvre et la je m'appercoit que celle ci ne marche plus.Je dois a chaque fois faire alt+F11 et aller dans Visual basic et refaire play et la sa remarche. Avez vous une solution a mon souci?
bonjour,
à l'ouverture du classeur (dans le workbook_open) la macro Désactive
est-elle lancée ?
A+
Bonjour voici une macro permettant de supprimer les raccourcies du clavier:
Sub Désactive()
Dim K, I As Integer
On Error Resume Next
For Each K In
Array("^", "%", "+^", "+%", "^%", "+^%")
For I = 32 To 255
Application.OnKey K & Chr$(I), ""
Next I
Next K
End Sub
Sub
Réactive()
Dim K, I As Integer
On Error Resume Next
For Each K In
Array("^", "%", "+^", "+%", "^%", "+^%")
For I = 32 To 255
Application.OnKey K & Chr$(I)
Next I
Next K
End Sub
Mon souci vient dans le fait que lorsque je fais fonctionner cette macro et
que je la compil avec Visual Basic pas de souci elle marche.J'enregsitre tout
mon classeur je le réouvre et la je m'appercoit que celle ci ne marche
plus.Je dois a chaque fois faire alt+F11 et aller dans Visual basic et
refaire play et la sa remarche.
Avez vous une solution a mon souci?
à l'ouverture du classeur (dans le workbook_open) la macro Désactive est-elle lancée ?
A+
Bonjour voici une macro permettant de supprimer les raccourcies du clavier: Sub Désactive() Dim K, I As Integer On Error Resume Next For Each K In Array("^", "%", "+^", "+%", "^%", "+^%") For I = 32 To 255
Application.OnKey K & Chr$(I), "" Next I Next K End Sub
Sub Réactive() Dim K, I As Integer On Error Resume Next For Each K In Array("^", "%", "+^", "+%", "^%", "+^%") For I = 32 To 255
Application.OnKey K & Chr$(I) Next I Next K End Sub
Mon souci vient dans le fait que lorsque je fais fonctionner cette macro et que je la compil avec Visual Basic pas de souci elle marche.J'enregsitre tout mon classeur je le réouvre et la je m'appercoit que celle ci ne marche plus.Je dois a chaque fois faire alt+F11 et aller dans Visual basic et refaire play et la sa remarche. Avez vous une solution a mon souci?
Xav
Bonjour,
pour que ta macro fonctionne à chaque ouverture du classeur, place la directement dans ton classeur, pas dans un module
Dans l'éditeur VBA, double click sur ThisWorkbook et choisir Workbook-Open dans les menus déroulants
Tu peux alors recopier ta macro dans le Sub
Private Sub Workbook_Open()
Attention au niveau de protection lors de l'ouverture d'Excel qui peut empêcher le lancement de la macro
Tu peux vérifier dans Outils-Macro-Sécurité -- Cordialement
@+ Xav "zotar" a écrit dans le message de news:
Bonjour voici une macro permettant de supprimer les raccourcies du clavier:
Sub Désactive() Dim K, I As Integer On Error Resume Next For Each K In Array("^", "%", "+^", "+%", "^%", "+^%") For I = 32 To 255
Application.OnKey K & Chr$(I), "" Next I Next K End Sub
Sub Réactive() Dim K, I As Integer On Error Resume Next For Each K In Array("^", "%", "+^", "+%", "^%", "+^%") For I = 32 To 255
Application.OnKey K & Chr$(I) Next I Next K End Sub
Mon souci vient dans le fait que lorsque je fais fonctionner cette macro et
que je la compil avec Visual Basic pas de souci elle marche.J'enregsitre tout
mon classeur je le réouvre et la je m'appercoit que celle ci ne marche plus.Je dois a chaque fois faire alt+F11 et aller dans Visual basic et refaire play et la sa remarche. Avez vous une solution a mon souci?
Bonjour,
pour que ta macro fonctionne à chaque ouverture du classeur, place la
directement dans ton classeur, pas dans un module
Dans l'éditeur VBA, double click sur ThisWorkbook et choisir Workbook-Open
dans les menus déroulants
Tu peux alors recopier ta macro dans le Sub
Private Sub Workbook_Open()
Attention au niveau de protection lors de l'ouverture d'Excel qui peut
empêcher le lancement de la macro
Tu peux vérifier dans Outils-Macro-Sécurité
--
Cordialement
@+
Xav
"zotar" <zotar@discussions.microsoft.com> a écrit dans le message de
news:7A22E4A9-8FE8-4074-B07E-059656DB3578@microsoft.com...
Bonjour voici une macro permettant de supprimer les raccourcies du
clavier:
Sub Désactive()
Dim K, I As Integer
On Error Resume Next
For Each K In
Array("^", "%", "+^", "+%", "^%", "+^%")
For I = 32 To 255
Application.OnKey K & Chr$(I), ""
Next I
Next K
End Sub
Sub
Réactive()
Dim K, I As Integer
On Error Resume Next
For Each K In
Array("^", "%", "+^", "+%", "^%", "+^%")
For I = 32 To 255
Application.OnKey K & Chr$(I)
Next I
Next K
End Sub
Mon souci vient dans le fait que lorsque je fais fonctionner cette macro
et
que je la compil avec Visual Basic pas de souci elle marche.J'enregsitre
tout
mon classeur je le réouvre et la je m'appercoit que celle ci ne marche
plus.Je dois a chaque fois faire alt+F11 et aller dans Visual basic et
refaire play et la sa remarche.
Avez vous une solution a mon souci?
pour que ta macro fonctionne à chaque ouverture du classeur, place la directement dans ton classeur, pas dans un module
Dans l'éditeur VBA, double click sur ThisWorkbook et choisir Workbook-Open dans les menus déroulants
Tu peux alors recopier ta macro dans le Sub
Private Sub Workbook_Open()
Attention au niveau de protection lors de l'ouverture d'Excel qui peut empêcher le lancement de la macro
Tu peux vérifier dans Outils-Macro-Sécurité -- Cordialement
@+ Xav "zotar" a écrit dans le message de news:
Bonjour voici une macro permettant de supprimer les raccourcies du clavier:
Sub Désactive() Dim K, I As Integer On Error Resume Next For Each K In Array("^", "%", "+^", "+%", "^%", "+^%") For I = 32 To 255
Application.OnKey K & Chr$(I), "" Next I Next K End Sub
Sub Réactive() Dim K, I As Integer On Error Resume Next For Each K In Array("^", "%", "+^", "+%", "^%", "+^%") For I = 32 To 255
Application.OnKey K & Chr$(I) Next I Next K End Sub
Mon souci vient dans le fait que lorsque je fais fonctionner cette macro et
que je la compil avec Visual Basic pas de souci elle marche.J'enregsitre tout
mon classeur je le réouvre et la je m'appercoit que celle ci ne marche plus.Je dois a chaque fois faire alt+F11 et aller dans Visual basic et refaire play et la sa remarche. Avez vous une solution a mon souci?
