Skip to main content

Kutools per Office — Una Suite. Cinque Strumenti. Ottieni di Più.

Come impedire agli utenti di stampare un foglio di lavoro?

Author Xiaoyang Last modified

Nel nostro lavoro quotidiano, potrebbero esserci alcune informazioni importanti nel foglio di lavoro. Per proteggere la diffusione dei dati interni, il reparto potrebbe non permetterci di stamparle. E qui, parlerò di come impedire agli utenti di stampare un foglio di lavoro.

Impedire agli utenti di stampare un foglio di lavoro specifico con VBA

Impedire agli utenti di stampare l'intera cartella di lavoro con VBA


arrow blue right bubble Impedire agli utenti di stampare un foglio di lavoro specifico con VBA

È possibile applicare il seguente codice VBA per proteggere il vostro foglio di lavoro specifico dalla stampa.

1. Attivate il foglio di lavoro su cui desiderate disabilitare la funzione di stampa.

2. Tenere premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

3. Quindi, nell'area sinistra del Project Explorer, fare doppio clic su ThisWorkbook per aprire il modulo e incollare il seguente codice al suo interno:

Codice VBA: impedire agli utenti di stampare un foglio di lavoro specifico

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

prevent printing sheet vba code

Nota: Nel codice sopra, Sheet1 è il foglio di lavoro attivo che non è consentito stampare.

4. Salvare e chiudere quindi questo codice, e ora quando si tenta di stampare questo foglio di lavoro specifico, verrà visualizzato il seguente avviso.

prevent printing sheet warning message

Nota: Con questo codice, solo il foglio di lavoro specifico non può essere stampato, ma gli altri fogli possono essere stampati normalmente.


arrow blue right bubble Impedire agli utenti di stampare l'intera cartella di lavoro con VBA

Se è necessario impedire agli utenti di stampare l'intera cartella di lavoro, ecco anche un codice che può aiutarvi.

1. Aprite la vostra cartella di lavoro che non permettete ad altri di stampare.

2. Tenere premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

3. Quindi, nell'area sinistra del Project Explorer, fare doppio clic su ThisWorkbook per aprire il modulo e incollare il seguente codice al suo interno:

Codice VBA: impedire agli utenti di stampare un foglio di lavoro specifico

Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Update 20140626
Cancel = True
MsgBox "You can't print this workbook"
End Sub

prevent printing workbook vba code

4. Salvare e chiudere quindi questo codice, tornare alla cartella di lavoro, e ora quando si prova a stampare un foglio o l'intera cartella di lavoro, non sarà permesso stamparli e verrà visualizzato il seguente avviso:

prevent printing workbook warning message


Articoli correlati:

Come stampare più cartelle di lavoro in Excel?

Come stampare intervalli in Excel?

Come stampare rapidamente la pagina corrente in Excel?

Come stampare una colonna lunga su una sola pagina in Excel?

I migliori strumenti per la produttività in Office

🤖 Kutools AI Aide: Rivoluziona l’analisi dei dati grazie a: Esecuzione intelligente | Genera codice | Crea formule personalizzate | Analizza dati e crea grafici | Attiva Funzioni avanzate
Funzionalità più usate: Trova, evidenziazione o contrassegna duplicati | Elimina righe vuote | Unisci colonne o celle senza perdere dati | Arrotonda senza formula...
Super RICERCA.VERT: Ricerca VERT per criteri multipli | Ricerca VERT per valori multipli | Ricerca su più fogli | Corrispondenza approssimativa...
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa | Elenco a discesa dipendente | Elenco a discesa multi-selezione...
Gestore colonne: Aggiungi un numero specifico di colonne | Sposta colonne | Cambia stato di visibilità delle colonne nascoste | Confronta intervalli & colonne...
Funzionalità in primo piano: Attenzione della griglia | Visualizzazione di progettazione | Barra delle formule avanzata | Gestore di cartelle di lavoro & fogli | Libreria AutoText | Selettore di data | Unisci dati | Crittografa/Decrittografa celle | Invia Email per elenco | Super Filtri | Filtro speciale (filtra grassetto/corsivo/barrato...)...
Top15 strumenti:12 strumenti Testo (Aggiungi testo, Elimina Caratteri Specifici, ...) |50+ tipi di grafico (Diagramma di Gantt, ...) |40+ formule pratiche (Calcola letà in base alla data di nascita, ...) |19 strumenti di inserimento (Inserisci codice QR, Inserisci Immagine da percorso, ...) |12 strumenti di conversione (Converti in parole, Conversione valuta, ...) |7 strumenti Unione & Dividi (Unione avanzata righe, Dividi celle, ...) | ... e altro ancora
Usa Kutools nella lingua che preferisci – supporta Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre lingue!

Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...


Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice

  • Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
  • Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!

Tutti gli add-in Kutools. Un solo programma di installazione

La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.

Excel Word Outlook Tabs PowerPoint
  • Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
  • Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
  • Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
  • Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
  • Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in