Pop up warning message!

I have a monthly workbook log and a sheet for each week. I want to put a warning pop up message when user open the workbook not designed for the month compare to the current system date. For example, user want open a sept workbook log and today is only august, so it will popup a warning message to tell user that they need to open the workbook for august instead. And possiblly a popup message for each weekly worksheet as well.

Use the workbook_open event

See Chip Pearson's page on events
http://www.cpearson.com/excel/events.htm

Private Sub Workbook_Open()
if year(date) <> 2005 and month(date) <> 6 then
msgbox "This workbook is only for Jun 2006"
if Application.Username <> "canix" then
thisworkbook.close Savechanges:=False
end if
end if
End Sub

--
Regards,
Tom Ogilvy


"canix" <canix.1tazag_1123265141.5818@excelforum-nospam.com> wrote in
message news:canix.1tazag_1123265141.5818@excelforum-nospam.com...
>
> I have a monthly workbook log and a sheet for each week. I want to put
> a warning pop up message when user open the workbook not designed for
> the month compare to the current system date. For example, user want
> open a sept workbook log and today is only august, so it will popup a
> warning message to tell user that they need to open the workbook for
> august instead. And possiblly a popup message for each weekly
> worksheet as well.
>
>
> --
> canix
> ------------------------------------------------------------------------
> canix's Profile:
http://www.excelforum.com/member.php...o&userid=25962
> View this thread: http://www.excelforum.com/showthread...hreadid=393383
>