Hvordan hindre brukere fra å skrive ut regneark?

You kan gjelde følgende VBA-kode for å beskytte bestemt arbeidsark som skal skrives ut.
1. Aktiver regnearket som du vil deaktivere sin utskriftsfunksjonen.
To. Hold nede ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications vinduet.
3. Og deretter i venstre Prosjekt Utforsker dobbeltklikker du Thiswork å åpne modulen, og lim inn følgende kode inn i den:
VBA-kode: hindre brukere fra å skrive en spesifisert regneark
Private Sub Workbook_BeforePrint (Cancel As Boolean) 'Oppdater 20140625Dim WsName Som StringWsName = "Ark1" for hver xWs I Application.ActiveWorkbook.Windows (1) .SelectedSheets Hvis xWs.Name = WsName Så MsgBox ("Du kan ikke skrive ut denne regnearket") Cancel = True End IfNextEnd Sub
Note : I koden ovenfor, er Ark1 det aktive regnearket som du ikke har lov til å skrive ut
4.. Deretter lagre og lukke denne koden, og nå når du prøver å skrive ut denne konkrete regnearket, vil du få følgende advarsel
. Merk: Med denne koden, er det eneste konkrete regnearket ikke lov til å skrive ut, men andre ark kan skrives som vanlig.

Hindre brukere fra å skrive ut hele arbeidsboken med VBA
Hvis du trenger å hindre brukere fra å skrive ut hele arbeidsboken, her har også en kode kan gjøre deg en tjeneste.
1. Åpne arbeidsboken som du ikke tillater andre å skrive ut.
2. Hold nede ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications vinduet.
3. Og deretter i venstre Prosjekt Utforsker dobbeltklikker du Thiswork å åpne modulen, og lim inn følgende kode inn i den:
VBA-kode: hindre brukere fra å skrive en spesifisert regneark
Private Sub Workbook_BeforePrint (Cancel As Boolean) 'Oppdater 20140626Cancel = TrueMsgBox "Du kan ikke skrive ut denne arbeidsboken" End Sub
fire. Deretter lagre og lukke denne koden, og gå til tilbake arbeidsboken, og nå når du skriver ut et regneark eller hele arbeidsboken, vil de ikke lov til å bli skrevet ut, og du vil få følgende advarsel: