visual basic Hulp gevraagd

[Verwijderd]

dit is hier al meermaals gevraagd en ik heb hier al veel hulp gevonden omtrent de visual basic code's. ik ken totaat niets van VBA sinds een weekje zoeken en studeren op jullie site.

ik maak een spreadheet aan en ik wil bepaalde cellen verplicht laten invullen alvorens er kan opgeslaan worden. De code hieronder heb ik gevonden (hier opt forum) en deze werkt perfect. enkel wil ik net iets anders ik probeer het zo goed mogelijk uit te leggen:
Als B1 een waarde heeft moet men de andere cellen(zie hieronder dewelke) ook verplicht invullen. als men niet alle cellen heeft ingevuld kan men niet opslaan en zou ik een msg willen laten verschijnen. echter als cel B1 niet is ingevuld mogen de andere cellen ook leeg blijven.

kan iemand me de juiste code geven want ik geraak er niet uit :-) ALVAST STEENHARD BEDANKT

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With Sheets("meldingsformulier")
If IsEmpty(.Range("B1").Value) And IsEmpty(.Range("B2").Value) And IsEmpty(.Range("B3").Value) And IsEmpty(.Range("B4").Value) And IsEmpty(.Range("B5").Value) And IsEmpty(.Range("B6").Value) And IsEmpty(.Range("D2").Value) And IsEmpty(.Range("D3").Value) And IsEmpty(.Range("F2").Value) Then
Exit Sub
ElseIf Not IsEmpty(.Range("B1").Value) And Not IsEmpty(.Range("B2").Value) And Not IsEmpty(.Range("B3").Value) And Not IsEmpty(.Range("B4").Value) And Not IsEmpty(.Range("B5").Value) And Not IsEmpty(.Range("B6").Value) And Not IsEmpty(.Range("D2").Value) And Not IsEmpty(.Range("D3").Value) And Not IsEmpty(.Range("F2").Value) Then
Exit Sub
Else
Cancel = True
MsgBox "alle velden zijn verplicht in te vullen alvorens u kan opslaan"
End If
End With
End Sub

[Pluistronaut]

Visual Basic:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

With Sheets("meldingsformulier")

If IsEmpty(.Range("B1").Value) then

If IsEmpty(.Range("B2").Value) Or IsEmpty(.Range("B3").Value) Or IsEmpty(.Range("B4").Value) Or IsEmpty(.Range("B5").Value) Or IsEmpty(.Range("B6").Value) Or IsEmpty(.Range("D2").Value) Or IsEmpty(.Range("D3").Value) Or IsEmpty(.Range("F2").Value) Then

Cancel = True
MsgBox "alle velden zijn verplicht in te vullen alvorens u kan opslaan"

end if

end if

end with

end sub

[Verwijderd]

Opgelost. Merci!