Excel VBA

[Std]

Beste,

ik vond een bestand op "Help mij.nl", zie bijlage, die tot op zeker hoogte mijn vraag beantwoord.

In kolom A moeten cellen ingevuld zijn alvorens men blad 2 kan invullen.

Nu wil ik het net een tikje anders hebben en dat is dat de geel gemarkeerde cellen ingevuld moeten zijn voordat het bestand (onder andere bestandnaam) opgeslagen kan worden.

Wie heeft raadt?

Bekijk bijlage Excel Verplichtevelden.xlsm

 

[HSV]

In thisworkbook.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 Cancel = Application.CountA(Sheets("blad1").Range("a1,a3,a5,a7")) <> 4
End Sub

 

[Std]

In thisworkbook.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 Cancel = Application.CountA(Sheets("blad1").Range("a1,a3,a5,a7")) <> 4
End Sub

Beste Harry,

allereerst mijn dank voor je antwoord! ik krijg het alleen nog niet werkend, wil je code soms aan het bestand toevoegen?

 

[HSV]

Heb je de code wel in de thisworkbook-module geplaatst?
Daarna testen of je het onder een ander bestandsnaam kan opslaan.

 

[Std]

Heb je de code wel in de thisworkbook-module geplaatst?
Daarna testen of je het onder een ander bestandsnaam kan opslaan.

Nogmaals mijn dank, heb weinig ervaring met VBA en daardoor niet aan gedacht om het onder thisworkbook te plaatsen.