Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel verrouiller fonction imprimer

verrouiller fonction imprimer

7 réponses
Avatar
christelle
Bonjour

j'ai un doc Excel que je dois diffuser et je voudrais
savoir s'il existe un moyen pour que l'on ne puisse pas
imprimer le document ( doc confidentiel )quand les gens le
recevront ?

Merci d'avance
Signaler un problème avec ce contenu

7 réponses

Supprimer
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
Avatar
Philippe.R
Bonjour Christelle,
Ceci, copié dans le module thisworkbook du classeur devrait faire l'affaire :

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

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"christelle" a écrit dans le message de
news:0b3501c36bd3$955987d0$
Bonjour

j'ai un doc Excel que je dois diffuser et je voudrais
savoir s'il existe un moyen pour que l'on ne puisse pas
imprimer le document ( doc confidentiel )quand les gens le
recevront ?

Merci d'avance


Avatar
emcy
salut,

si je me trompe pas, cette methode marche que si la
personne qui ouvre le classeur met activer les macros à
l'ouverture de celui. y a-t-il un moyen pour empecher
cela ?

De plus, il est toujours possible de faire un
copier/coller du classeur dans un autres classeur qui ne
sera pas protégé => il faudrait aussi bloquer le presse-
papier




-----Message d'origine-----
Bonjour Christelle,
Ceci, copié dans le module thisworkbook du classeur
devrait faire l'affaire :


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

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"christelle" a écrit dans le message
de

news:0b3501c36bd3$955987d0$
Bonjour

j'ai un doc Excel que je dois diffuser et je voudrais
savoir s'il existe un moyen pour que l'on ne puisse pas
imprimer le document ( doc confidentiel )quand les
gens le


recevront ?

Merci d'avance



.




Avatar
christelle
Merci beaucoup. Cela fonctionne tres bien


-----Message d'origine-----
Bonjour Christelle,
Ceci, copié dans le module thisworkbook du classeur
devrait faire l'affaire :


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

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"christelle" a écrit dans le message
de

news:0b3501c36bd3$955987d0$
Bonjour

j'ai un doc Excel que je dois diffuser et je voudrais
savoir s'il existe un moyen pour que l'on ne puisse pas
imprimer le document ( doc confidentiel )quand les gens
le


recevront ?

Merci d'avance



.




Avatar
Philippe.R
Bonjour Emcy,
Tu ne te trompes pas ; il y a toujours moyen de compliquer la tâche de ceux qui veulent faire autre
chose que ce que l'on souhaite avec un document.
Pour ce qui est de le protéger totalement, je ne vois que la plume d'oie et le coffre fort, et encore
;o)))

Pour inciter fortement quelqu'un à activer les macros, il y a cette procédure :
"Désolé, pour utiliser ce classeur vous devez activer les macros à l'ouverture ; veuillez le fermer et
l'ouvrir à nouveau"
dans le module thisworkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'MPFE
Sheets(1).Visible = True
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
Sheets(i).Visible = xlVeryHidden
Next i

End Sub

et

Private Sub Workbook_Open()
'MPFE
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
Sheets(i).Visible = True
Next i
Sheets(1).Visible = False
Application.ScreenUpdating = True

End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"emcy" a écrit dans le message de news:0dee01c36bde$0b7cdcf0$
salut,

si je me trompe pas, cette methode marche que si la
personne qui ouvre le classeur met activer les macros à
l'ouverture de celui. y a-t-il un moyen pour empecher
cela ?

De plus, il est toujours possible de faire un
copier/coller du classeur dans un autres classeur qui ne
sera pas protégé => il faudrait aussi bloquer le presse-
papier

-----Message d'origine-----
Bonjour Christelle,
Ceci, copié dans le module thisworkbook du classeur
devrait faire l'affaire :


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

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"christelle" a écrit dans le message
de

news:0b3501c36bd3$955987d0$
Bonjour

j'ai un doc Excel que je dois diffuser et je voudrais
savoir s'il existe un moyen pour que l'on ne puisse pas
imprimer le document ( doc confidentiel )quand les
gens le


recevront ?

Merci d'avance



.




Avatar
Emcy
resalut,

je pensait qu'il serait possible de rendre la feuille du
documment "invisible" par defaut et de faire en sorte
qu'une macro lancé au demarrage face réapparaitre la
feuille. Mais je ne sais pas si ça marche si un petit
malin essaye de la faire réapparaitre manuellement
(protection par mot de passe possible ?( je m'y connais
pas trop dans ce domaine))

-----Message d'origine-----
Bonjour Emcy,
Tu ne te trompes pas ; il y a toujours moyen de
compliquer la tâche de ceux qui veulent faire autre

chose que ce que l'on souhaite avec un document.
Pour ce qui est de le protéger totalement, je ne vois
que la plume d'oie et le coffre fort, et encore

;o)))

Pour inciter fortement quelqu'un à activer les macros,
il y a cette procédure :

créer une feuille que l'on place en 1ère position dans
"Désolé, pour utiliser ce classeur vous devez activer
les macros à l'ouverture ; veuillez le fermer et

l'ouvrir à nouveau"
dans le module thisworkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'MPFE
Sheets(1).Visible = True
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
Sheets(i).Visible = xlVeryHidden
Next i

End Sub

et

Private Sub Workbook_Open()
'MPFE
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
Sheets(i).Visible = True
Next i
Sheets(1).Visible = False
Application.ScreenUpdating = True

End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"emcy" a écrit dans le message de
news:0dee01c36bde$0b7cdcf0$

salut,

si je me trompe pas, cette methode marche que si la
personne qui ouvre le classeur met activer les macros à
l'ouverture de celui. y a-t-il un moyen pour empecher
cela ?

De plus, il est toujours possible de faire un
copier/coller du classeur dans un autres classeur qui ne
sera pas protégé => il faudrait aussi bloquer le presse-
papier

-----Message d'origine-----
Bonjour Christelle,
Ceci, copié dans le module thisworkbook du classeur
devrait faire l'affaire :


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

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"christelle" a écrit dans le message
de

news:0b3501c36bd3$955987d0$
Bonjour

j'ai un doc Excel que je dois diffuser et je voudrais
savoir s'il existe un moyen pour que l'on ne puisse
pas



imprimer le document ( doc confidentiel )quand les
gens le


recevront ?

Merci d'avance



.




.





Avatar
christelle
Effectivement en desactivant les macros la fonction
imprimer et de nouveau activé. Mais je narrive pa a faire
fonctionner le code que tu as ecrit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'MPFE
Sheets(1).Visible = True
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
Sheets(i).Visible = xlVeryHidden
Next i

End Sub

et

Private Sub Workbook_Open()
'MPFE
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
Sheets(i).Visible = True
Next i
Sheets(1).Visible = False
Application.ScreenUpdating = True

End Sub

Pourrait tu me donner plus d'explication sur son
fonctionnment et ou l'inserer precisment (avt ou apres le
code de la fonction imprimer ds lthisworksheet )car je ne
m'y connais pas trop voir pas du tt en VB.


Merci bcp
-----Message d'origine-----
Bonjour Emcy,
Tu ne te trompes pas ; il y a toujours moyen de
compliquer la tâche de ceux qui veulent faire autre

chose que ce que l'on souhaite avec un document.
Pour ce qui est de le protéger totalement, je ne vois que
la plume d'oie et le coffre fort, et encore

;o)))

Pour inciter fortement quelqu'un à activer les macros, il
y a cette procédure :

créer une feuille que l'on place en 1ère position dans le
"Désolé, pour utiliser ce classeur vous devez activer les
macros à l'ouverture ; veuillez le fermer et

l'ouvrir à nouveau"
dans le module thisworkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'MPFE
Sheets(1).Visible = True
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
Sheets(i).Visible = xlVeryHidden
Next i

End Sub

et

Private Sub Workbook_Open()
'MPFE
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
Sheets(i).Visible = True
Next i
Sheets(1).Visible = False
Application.ScreenUpdating = True

End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"emcy" a écrit dans le message de
news:0dee01c36bde$0b7cdcf0$

salut,

si je me trompe pas, cette methode marche que si la
personne qui ouvre le classeur met activer les macros à
l'ouverture de celui. y a-t-il un moyen pour empecher
cela ?

De plus, il est toujours possible de faire un
copier/coller du classeur dans un autres classeur qui ne
sera pas protégé => il faudrait aussi bloquer le presse-
papier

-----Message d'origine-----
Bonjour Christelle,
Ceci, copié dans le module thisworkbook du classeur
devrait faire l'affaire :


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

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"christelle" a écrit dans le message
de

news:0b3501c36bd3$955987d0$
Bonjour

j'ai un doc Excel que je dois diffuser et je voudrais
savoir s'il existe un moyen pour que l'on ne puisse pas
imprimer le document ( doc confidentiel )quand les
gens le


recevront ?

Merci d'avance



.




.





Avatar
Philippe.R
Bonjour Christelle,

Les deux procédures sont à copier dans le module nommé ThisWorkbook du VBAProject de ton classeur.
Tu peux y accéder, soit par la combinaison de touche Alt+F11, soit par clic droit sur un onglet et clic
sur visualiser le code ; tu verras alors une fenêtre en haut à gauche où sont listés les VBAProject()
des classeurs ouverts , tu repère le tiens, clic sur la petite croix située à côté si besoin est, tu
double clic sur le module ThisWorkbook qui apparaît dans l'arborescence et tu colles les lignes de code
:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'MPFE le 26/08/2003
'Procédure pour cacher toutes les feuilles sauf la première
Sheets(1).Visible = True
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
Sheets(i).Visible = xlVeryHidden
Next i

End Sub

' et

Private Sub Workbook_Open()
'MPFE le 26/08/2003
'Procédure pour afficher toutes les feuilles et masquer la première
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
Sheets(i).Visible = True
Next i
Sheets(1).Visible = False
Application.ScreenUpdating = True

End Sub

la procédure pour empêcher l'impression est bien à mettre dans le module de la feuille concernée
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"christelle" a écrit dans le message de
news:092401c36c71$206ceea0$
Effectivement en desactivant les macros la fonction
imprimer et de nouveau activé. Mais je narrive pa a faire
fonctionner le code que tu as ecrit


Pourrait tu me donner plus d'explication sur son
fonctionnment et ou l'inserer precisment (avt ou apres le
code de la fonction imprimer ds lthisworksheet )car je ne
m'y connais pas trop voir pas du tt en VB.


Merci bcp
-----Message d'origine-----
Bonjour Emcy,
Tu ne te trompes pas ; il y a toujours moyen de
compliquer la tâche de ceux qui veulent faire autre

chose que ce que l'on souhaite avec un document.
Pour ce qui est de le protéger totalement, je ne vois que
la plume d'oie et le coffre fort, et encore

;o)))

Pour inciter fortement quelqu'un à activer les macros, il
y a cette procédure :

créer une feuille que l'on place en 1ère position dans le
"Désolé, pour utiliser ce classeur vous devez activer les
macros à l'ouverture ; veuillez le fermer et

l'ouvrir à nouveau"
dans le module thisworkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'MPFE
Sheets(1).Visible = True
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
Sheets(i).Visible = xlVeryHidden
Next i

End Sub

et

Private Sub Workbook_Open()
'MPFE
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
Sheets(i).Visible = True
Next i
Sheets(1).Visible = False
Application.ScreenUpdating = True

End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"emcy" a écrit dans le message de
news:0dee01c36bde$0b7cdcf0$

salut,

si je me trompe pas, cette methode marche que si la
personne qui ouvre le classeur met activer les macros à
l'ouverture de celui. y a-t-il un moyen pour empecher
cela ?

De plus, il est toujours possible de faire un
copier/coller du classeur dans un autres classeur qui ne
sera pas protégé => il faudrait aussi bloquer le presse-
papier

-----Message d'origine-----
Bonjour Christelle,
Ceci, copié dans le module thisworkbook du classeur
devrait faire l'affaire :


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

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"christelle" a écrit dans le message
de

news:0b3501c36bd3$955987d0$
Bonjour

j'ai un doc Excel que je dois diffuser et je voudrais
savoir s'il existe un moyen pour que l'on ne puisse pas
imprimer le document ( doc confidentiel )quand les
gens le


recevront ?

Merci d'avance



.




.