Kleine automatische controle voor printen

[Manke]

Hallo
Ik heb een gegevensblad daarop staat in
cel a1 "Naam"
cel a2 "Hier uw naam invullen"

Nu wil ik graag dat wanneer er een printopdracht voor dit blad gegeven wordt het programma Excel zelf even controleert of cel a2 niet nog gevuld is met "Hier uw naam invullen". Als dat namelijk het geval is, dan moet ie de printopdracht afbreken en met de melding komen "U heeft uw naam nog niet ingevuld"

Heeft iemand hier een mooie oplossing voor? Wellicht in VBA?

Alvast bedankt
Manke

 

[Cobbe]

Wat denk je van deze:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
controle:
If ActiveSheet.Cells(2, 1) = "" Then
MsgBox ("U mag dit dokument niet anoniem afprinten")
[a2] = InputBox("Geef alsnog uw naam op aub :")
If [a2] = "" Then GoTo controle
End If
End Sub

Cobbe

 

[Wigi]

Alternatief zonder mogelijkheid om naam op te geven:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

    If Len(Range("A1").Value) = 0 Then
        MsgBox "U mag dit dokument niet anoniem afprinten"
        Cancel = True
    End If
    
End Sub

Wigi