Validation

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Heath Higgins - 30 Dec 2004 21:25 GMT

I would like to have a cell on a spreadsheet configured so if a user tries
to open the speadsheet without populating a specific cell the worksheet
would not save and a msgbox would pop and inform the user that the cell must
be populated. Not concerned at the moment of what data is populated as long
as is there is something in this cell. Any help would be appreciated.

Thanks!

Reply to this Message

Bob Phillips - 30 Dec 2004 21:34 GMT

Heath,

Trap the BeforeSave evenet like so

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

If Thisworkbook.Worksheets("Sheet1").Range("A1").Value = ""
Cancel = True
MsgBox "Cell A1 must be poulated before saving

End Sub

and maybe also make sure it is saved ebfore exitiing (optional)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Me.Saved = False Then
MsgBox "Please save before closing."
Cancel = True
End If
End Sub

The code goes in the Thisworkbook code module.

Signature

HTH

RP
(remove nothere from the email address if mailing direct)

> I would like to have a cell on a spreadsheet configured so if a user tries
> to open the speadsheet without populating a specific cell the worksheet
[quoted text clipped - 3 lines]
>
> Thanks!

Reply to this Message

Heath Higgins - 31 Dec 2004 02:46 GMT

cool beans. will give it a try.

thanks!

> Heath,
>
[quoted text clipped - 30 lines]
>>
>> Thanks!

Reply to this Message