Invalider la commande "Imprimer"

Il faut entrer dans les détails :)

Sub Essai()
Application.CommandBars("Worksheet Menu Bar"). _
Controls("Fichier").Controls("Imprimer...").Enabled = True
End Sub

--
Gaenonius

Bonsoir
Comment faire afin d'invalider la commande "imprimer"
Merci
Hervé

Bonjour,

Si tu veux empêcher aussi l'utilisation de CTRL+P, il te faudra insérer le code suivant dans "ThisWorkbook" :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub

Tu interceptes la commande d'impression (l'évennement 'imprimer' en fait) et tu l'annule
Pour ne pas désorienter tes utilisateurs, tu peux insérer un MsgBox avant Cancel=True avec un petit message d'avertissement.

Bonne journée

Rai

"Hervé" <h.lebeau@club-internet.fr> a écrit dans le message de news: eFBc3aC%23EHA.3840@tk2msftngp13.phx.gbl...

Bonsoir
Comment faire afin d'invalider la commande "imprimer"
Merci
Hervé

Merci beaucoup à tous les deux
Hervé

"Rai" <raimondpointschmidt@berlin.de> a écrit dans le message de news:
%23aaiSPI%23EHA.3368@TK2MSFTNGP10.phx.gbl...
Bonjour,

Si tu veux empêcher aussi l'utilisation de CTRL+P, il te faudra insérer le
code suivant dans "ThisWorkbook" :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub

Tu interceptes la commande d'impression (l'évennement 'imprimer' en fait) et
tu l'annule
Pour ne pas désorienter tes utilisateurs, tu peux insérer un MsgBox avant
Cancel=True avec un petit message d'avertissement.

Bonne journée

Rai

"Hervé" <h.lebeau@club-internet.fr> a écrit dans le message de news:
eFBc3aC%23EHA.3840@tk2msftngp13.phx.gbl...

Bonsoir
Comment faire afin d'invalider la commande "imprimer"
Merci
Hervé