Onderdelen werkblad blokkeren voor afdrukken

[Louise050513]

Hallo,

Weet er iemand of je ook bepaalde cellen in een werkblad kan blokkeren en/of beveiligen om afgedrukt te worden?

Bij voorbaat dank.

Groet,

Louise

 

[gast0660]

Hoi Louise
Probeer deze eens
Plaats de code onder This workbook

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If ActiveSheet.Name = "[COLOR="#FF0000"]Sheet1[/COLOR]" Then
        Cancel = True
        Application.EnableEvents = False
        Application.ScreenUpdating = False
		With ActiveSheet
        .Range("[COLOR="#FF0000"]A1:A3,B10:B14,C12[/COLOR]").Font.ColorIndex = 2
        .PrintOut
        .Range("[COLOR="#FF0000"]A1:A3,B10:B14,C12[/COLOR]").Font.ColorIndex = 1
    End With
	 Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub

Pas de rode gedeeltes aan naar de cellen dat je niet wil printen
Edit pas ook je bladnaam aan