werkblad beveiligen tegen afdrukken

[Swacar185]

Kan men er op 1 of andere manier voor zorgen , dat een bepaald werkblad niet kan afgedrukt worden ?
Dank bij voorbaat

 

[Wigi]

Dit is de code die moet komen bij ThisWorkbook:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If ActiveSheet.Name = "Blad1" Then Cancel = True
End Sub

Hiermee wordt Blad1 nooit afgedrukt. Pas aan indien nodig.

Wigi

 

[Swacar185]

Dit is de code die moet komen bij ThisWorkbook:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If ActiveSheet.Name = "Blad1" Then Cancel = True
End Sub

Hiermee wordt Blad1 nooit afgedrukt. Pas aan indien nodig.

Wigi

Ok, ik snap wel dat ik if activesheet.name= moet wijzigen naar het werkblad dat ik wil verhinderen, maar hoe krijg ik die code in ThisWorkbook ? moet dit dan in een automatisch opstartende macro of zoiets ?
Dank bij voorbaat

 

[Wigi]

Dubbelklik op ThisWorkbook en plak mijn code. Sluit VBA af.

Wanneer je nu dat bewuste blad probeert te printen, zal ie stoppen.

 

[Swacar185]

opgelost ! thx

 

[Wigi]

Graag gedaan Swacar.