Opslaan onder bepaalde voorwaarde

[P. Men]

Goedemiddag,

weer de volgende vraag

Op het momement dat een bepaald aantal velden gevuld is mag een file pas opgeslagen kunnen worden, is dit mogelijk?

Jullie weten hier vast wel een antwoord op

groet, Pieter

 

[Wigi]

Hiermee stop je het opslaan als A1 op blad Blad1 leeg is:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Sheets("Blad1").Range("A1") = "" Then Cancel = True
End Sub

Code komt bij ThisWorkbook te staan.

Pas verder zelf aan.

Wigi

 

[P. Men]

Hoi Wigi,

code is duidelijk werkt ook...

wederom bedankt!

 

[Wigi]

Graag gedaan.

De vraag mag nog op opgelost komen.