Create a prompt as a person saves a file

I would like to create a prompt that will pop up as a user tries to save a
file and ask them have they filled in a certain cell, say "A2"

Can anybody help?
--
thanks

ah

Hi,
Go to the ThisWorkbook class module and enter the following code...

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

If Me.Sheets(1).Range("$A$2").Value = "" Then
MsgBox "You have not entered a value in cell A2 on the first sheet!"
''whatever message you want
Let Cancel = True
End If

End Sub


Hth,
Oli

--
Message posted via http://www.officekb.com

ah,

This VBA routine will work. To add it to your worksheet, go to Tools ->
Macro -> Visual Basic Editor. In the left side structure of the Visual Basic
Editor, look for "ThisWorkbook". Double click on ThisWorkbook and macro
below to the code module. After you add the macro, hit File -> Close. Then,
save your file.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Did you fill in cell A2?"
Style = vbYesNo
Title = "Save Data Prompt"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
Exit Sub
Else
Cancel = True
End If
End Sub

----
Regards,
John Mansfield
http://www.pdbook.com

"ah" wrote:

> I would like to create a prompt that will pop up as a user tries to save a
> file and ask them have they filled in a certain cell, say "A2"
>
> Can anybody help?
> --
> thanks
>
> ah

Thanks very much, this is excellent

"John Mansfield" wrote:

> ah,
>
> This VBA routine will work. To add it to your worksheet, go to Tools ->
> Macro -> Visual Basic Editor. In the left side structure of the Visual Basic
> Editor, look for "ThisWorkbook". Double click on ThisWorkbook and macro
> below to the code module. After you add the macro, hit File -> Close. Then,
> save your file.
>
> Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
> Dim Msg, Style, Title, Help, Ctxt, Response, MyString
> Msg = "Did you fill in cell A2?"
> Style = vbYesNo
> Title = "Save Data Prompt"
> Response = MsgBox(Msg, Style, Title)
> If Response = vbYes Then
> Exit Sub
> Else
> Cancel = True
> End If
> End Sub
>
> ----
> Regards,
> John Mansfield
> http://www.pdbook.com
>
> "ah" wrote:
>
> > I would like to create a prompt that will pop up as a user tries to save a
> > file and ask them have they filled in a certain cell, say "A2"
> >
> > Can anybody help?
> > --
> > thanks
> >
> > ah

This works thansk very much

"Oliver Ferns via OfficeKB.com" wrote:

> Hi,
> Go to the ThisWorkbook class module and enter the following code...
>
> Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
> Boolean)
>
> If Me.Sheets(1).Range("$A$2").Value = "" Then
> MsgBox "You have not entered a value in cell A2 on the first sheet!"
> ''whatever message you want
> Let Cancel = True
> End If
>
> End Sub
>
>
> Hth,
> Oli
>
> --
> Message posted via http://www.officekb.com
>