Désactiver icone impression

[Goodparts]

Bonjour le Forum,

Comment peut-on faire pour désactiver l'icone d'impression, ainsi que le menu Fichier - Imprimer et la fonction ctrl+p pour que les utilisateurs ne puissent qu'utiliser le bouton qui est placé sur la feuille, car la macro reliée au bouton, me permet également de faire un archivage de la feuille imprimée.

Merci

Goodparts

 

[Temjeh]

Bonsoir Goodparts
Bonne nuit le forum

Tu copie ceci dans ThisWorkbook

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
MsgBox "Vous n'avez pas le droit d'imprimer ce fichier"
End Sub

A++

Temjeh

 

[Goodparts]

Hello Temjeh & le Forum,

Merci, mais cette macro me bloque tout à fait la fonction print, je me suis mal exprimé.
J'ai un bouton sur ma feuille qui me permet d'imprimer la feuille active et d'en faire une archive en même temps, car je dois absolument avoir les données imprimée dans un autre fichier.

Goodparts

 

[Temjeh]

Bonjour Goodparts

Je m'excuse c'est moi qui n'a pas bien lu ta question

Pas sur mais essaie ca:

Je croit que tu a juste à remplacer :

Cancel = True
MsgBox "Vous n'avez pas le droit d'imprimer ce fichier"

Donc à mettre toujours dans workbook:
Private Sub Workbook_BeforePrint(Cancel As Boolean)

'imprime les cells A1àG52
Range("A1:G52").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("A1").Select

'ici tu met le reste qui sauvegarde

End Sub

Donc je pense que comme cela ton bouton fonctionne et le bouton print fait la même chose

A++

Temjeh

 

[Goodparts]

Merci Temjeh, mais ça ne fonctionne toujours pas.
Pour le moment, j'ai trouvé une solution de rechange jusqu'au moment ou j'aurai trouvé.

Goodparts

 

[STéphane]

bonjour

tu pourrais d´sactiver l´icòne d´impression en manipulant les "commandbars" (barre d´outils)

tu sembles autoriserl l´impression depuis un bouton, est-ce un bouton de la barre "formulaires", si oui, tu peux utiliser l´evènement proposé PAR tEMJEH et insérer un contróle du genre suivant :

if Application.Caller ="nomdeotnbouton" then
... tu fais ce que tu veux
else
msgbox "vousne pouvez imprimer que depuis le bouton"
end if


bye
stephane