Prohibit / generate pop up if saving a file with missing data in cells

[mickyd67]

Hi all - first post, be kind

I am looking for a way to either stop someone saving a file and / or giving them a pop up notice to advise them that certain cells in a spreasheet must be completed for the file to be valid.

Is this possible? Any hints / tips?

Cheers,
MD

 

[Sektor]

What cells and sheets must be checked?

 

[mickyd67]

What cells must and what sheet be checked?

Hello there - not sure I follow your question.

Let's just say in cell A1 you must put a valid date in - if you don't put anything in then it would alert you that the spreadsheet hasn't been compelted correctly.

In cell A2 you must put your name, for example. Again, if you don't then it won't allow you to save.

 

[Sektor]

In ThisWorkbook module. Rename sheet and ranges to appropriate.

[COLOR="Blue"]Private[/COLOR] [COLOR="Blue"]Sub[/COLOR] Workbook_BeforeSave([COLOR="Blue"]ByVal[/COLOR] SaveAsUI [COLOR="Blue"]As[/COLOR] [COLOR="Blue"]Boolean[/COLOR], Cancel [COLOR="Blue"]As[/COLOR] Boolean)
    [COLOR="Blue"]With[/COLOR] Sheets("Sheet1")
        Cancel = IsEmpty(.Range("A1")) [COLOR="Blue"]Or[/COLOR] IsEmpty(Range("A2"))
    [COLOR="Blue"]End[/COLOR] [COLOR="Blue"]With[/COLOR]
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Sub[/COLOR]

 

[mickyd67]

In ThisWorkbook module. Rename sheet and ranges to appropriate.

[COLOR=blue]Private[/COLOR] [COLOR=blue]Sub[/COLOR] Workbook_BeforeSave([COLOR=blue]ByVal[/COLOR] SaveAsUI [COLOR=blue]As[/COLOR] [COLOR=blue]Boolean[/COLOR], Cancel [COLOR=blue]As[/COLOR] Boolean)
    [COLOR=blue]With[/COLOR] Sheets("Sheet1")
        Cancel = IsEmpty(.Range("A1")) [COLOR=blue]Or[/COLOR] IsEmpty(Range("A2"))
    [COLOR=blue]End[/COLOR] [COLOR=blue]With[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]

Hi there - thanks for the reply. I tried this but Excel lets me close any open file without any warning or prompt.

Not sure if I am adding the data above correctly - so it might be my fault it's not working.

Any other suggestions?

Cheers.