Bonjour, je cherche à empêcher l'utilisateur d'utiliser la touche impr
écr dans excel. J'arrive à bloquer les autres touches mais pas celle
là. Je sais que cela n'empêchera pas des experts de passer outre, mais
cela me garantit que de simples utilisateurs e pourront pas imprimer
les données.
J'ai essayé le code suivant :
Sub BlocageTouches()
Application.OnKey "{PRTSC}", "Sorry"
End Sub
Sub Sorry()
MsgBox "Désolé, vous n'êtes pas autorisé à réaliser cette action!"
End Sub
Mais il ne fonctionne pas.
J'ai essayé aussi :
Private Sub ClearClipBoard(KeyCode As MSForms.ReturnInteger)
If KeyCode = 44 Then
OpenClipboard 0
EmptyClipboard
CloseClipboard
End If
End Sub
Private Sub CommandButton1_KeyUp(ByVal KeyCode As
MSForms.ReturnInteger, _
ByVal Shift As Integer)
ClearClipBoard KeyCode
End Sub
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)
ClearClipBoard KeyCode
End Sub
Mais je ne vois pas comment l'appliquer à l'applicatio Excel
(Onglets...)et je n'arrive pas à le faire fonctionner sur un
formulaire.
Help...
Merci par avance.
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
Azo3
de toute façon , s'il fait un copier/coller....
-- Serge CENCI MVP Microsoft WORKS "Giancarlo" a écrit dans le message de news:
Bonjour, je cherche à empêcher l'utilisateur d'utiliser la touche impr écr dans excel. J'arrive à bloquer les autres touches mais pas celle là. Je sais que cela n'empêchera pas des experts de passer outre, mais cela me garantit que de simples utilisateurs e pourront pas imprimer les données. J'ai essayé le code suivant : Sub BlocageTouches() Application.OnKey "{PRTSC}", "Sorry" End Sub Sub Sorry() MsgBox "Désolé, vous n'êtes pas autorisé à réaliser cette action!" End Sub Mais il ne fonctionne pas. J'ai essayé aussi : Private Sub ClearClipBoard(KeyCode As MSForms.ReturnInteger) If KeyCode = 44 Then OpenClipboard 0 EmptyClipboard CloseClipboard End If End Sub
Private Sub CommandButton1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, _ ByVal Shift As Integer)
ClearClipBoard KeyCode End Sub
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, _ ByVal Shift As Integer)
ClearClipBoard KeyCode End Sub Mais je ne vois pas comment l'appliquer à l'applicatio Excel (Onglets...)et je n'arrive pas à le faire fonctionner sur un formulaire. Help... Merci par avance.
de toute façon , s'il fait un copier/coller....
--
Serge CENCI
MVP Microsoft WORKS
"Giancarlo" <audouinyves@aol.com> a écrit dans le message de news:
4d745697.0309220513.e41bf20@posting.google.com...
Bonjour, je cherche à empêcher l'utilisateur d'utiliser la touche impr
écr dans excel. J'arrive à bloquer les autres touches mais pas celle
là. Je sais que cela n'empêchera pas des experts de passer outre, mais
cela me garantit que de simples utilisateurs e pourront pas imprimer
les données.
J'ai essayé le code suivant :
Sub BlocageTouches()
Application.OnKey "{PRTSC}", "Sorry"
End Sub
Sub Sorry()
MsgBox "Désolé, vous n'êtes pas autorisé à réaliser cette action!"
End Sub
Mais il ne fonctionne pas.
J'ai essayé aussi :
Private Sub ClearClipBoard(KeyCode As MSForms.ReturnInteger)
If KeyCode = 44 Then
OpenClipboard 0
EmptyClipboard
CloseClipboard
End If
End Sub
Private Sub CommandButton1_KeyUp(ByVal KeyCode As
MSForms.ReturnInteger, _
ByVal Shift As Integer)
ClearClipBoard KeyCode
End Sub
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)
ClearClipBoard KeyCode
End Sub
Mais je ne vois pas comment l'appliquer à l'applicatio Excel
(Onglets...)et je n'arrive pas à le faire fonctionner sur un
formulaire.
Help...
Merci par avance.
-- Serge CENCI MVP Microsoft WORKS "Giancarlo" a écrit dans le message de news:
Bonjour, je cherche à empêcher l'utilisateur d'utiliser la touche impr écr dans excel. J'arrive à bloquer les autres touches mais pas celle là. Je sais que cela n'empêchera pas des experts de passer outre, mais cela me garantit que de simples utilisateurs e pourront pas imprimer les données. J'ai essayé le code suivant : Sub BlocageTouches() Application.OnKey "{PRTSC}", "Sorry" End Sub Sub Sorry() MsgBox "Désolé, vous n'êtes pas autorisé à réaliser cette action!" End Sub Mais il ne fonctionne pas. J'ai essayé aussi : Private Sub ClearClipBoard(KeyCode As MSForms.ReturnInteger) If KeyCode = 44 Then OpenClipboard 0 EmptyClipboard CloseClipboard End If End Sub
Private Sub CommandButton1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, _ ByVal Shift As Integer)
ClearClipBoard KeyCode End Sub
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, _ ByVal Shift As Integer)
ClearClipBoard KeyCode End Sub Mais je ne vois pas comment l'appliquer à l'applicatio Excel (Onglets...)et je n'arrive pas à le faire fonctionner sur un formulaire. Help... Merci par avance.
