Comment empêcher les utilisateurs d'imprimer une feuille de calcul ?
Dans notre travail quotidien, il peut y avoir des informations importantes dans la feuille de calcul. Afin de protéger la diffusion des données internes, le département peut interdire leur impression. Ici, je vais expliquer comment empêcher les utilisateurs d'imprimer une feuille de calcul.
Empêcher les utilisateurs d'imprimer une feuille de calcul spécifique avec VBA
Empêcher les utilisateurs d'imprimer tout le classeur avec VBA
Empêcher les utilisateurs d'imprimer une feuille de calcul spécifique avec VBA
Vous pouvez appliquer le code VBA suivant pour protéger votre feuille de calcul spécifique contre l'impression.
1. Activez votre feuille de calcul dont vous souhaitez désactiver la fonction d'impression.
2. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
3. Ensuite, dans l'Explorateur de projets à gauche, double-cliquez sur ThisWorkbook pour ouvrir le module, et collez-y le code suivant :
Code VBA : empêcher les utilisateurs d'imprimer une feuille de calcul spécifiée
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Update 20140625
Dim WsName As String
WsName = "Sheet1"
For Each xWs In Application.ActiveWorkbook.Windows(1).SelectedSheets
If xWs.Name = WsName Then
MsgBox ("You can not print this worksheet")
Cancel = True
End If
Next
End Sub
Remarque : Dans le code ci-dessus, Sheet1 est la feuille active que vous n'êtes pas autorisé à imprimer.
4. Ensuite, enregistrez et fermez ce code, et maintenant, lorsque vous essayez d'imprimer cette feuille spécifique, vous recevrez l'avertissement suivant.
Remarque : Avec ce code, seule la feuille spécifique ne peut pas être imprimée, mais les autres feuilles peuvent être imprimées normalement.
Empêcher les utilisateurs d'imprimer tout le classeur avec VBA
Si vous devez empêcher les utilisateurs d'imprimer tout le classeur, voici également un code qui peut vous aider.
1. Ouvrez votre classeur que vous ne permettez pas aux autres d'imprimer.
2. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
3. Ensuite, dans l'Explorateur de projets à gauche, double-cliquez sur ThisWorkbook pour ouvrir le module, et collez-y le code suivant :
Code VBA : empêcher les utilisateurs d'imprimer une feuille de calcul spécifiée
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Update 20140626
Cancel = True
MsgBox "You can't print this workbook"
End Sub
4. Ensuite, enregistrez et fermez ce code, puis revenez au classeur. Maintenant, lorsque vous imprimez une feuille ou l'ensemble du classeur, ils ne seront pas autorisés à être imprimés et vous recevrez l'avertissement suivant :
Articles connexes :
Comment imprimer plusieurs classeurs dans Excel ?
Comment imprimer des plages dans Excel ?
Comment imprimer rapidement la page actuelle dans Excel ?
Comment imprimer une longue colonne sur une seule page dans Excel ?
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.
- Activez la modification et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de50 % et réduit des centaines de clics de souris chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels