validation date n pop up msg

[ruro]

I want when excel file is opened. vba verify the date. if are on a certain date (eg June 30, 2012) will display a pop-up messages that have message: "The file needs to be updated. Click OK to renew or click Cancel to view the contents of the file" ...
So in a pop-up messages have OK and Cancel buttons
If click "OK" then the excel file will be closed (

Active​

Workbook

.Close​

)
if click "Cancel" then open the excel file but Readonly.
Can not be made in VBA?


help me please ......

Thangs b4.

 

[Soggy]

You can create a form to do this with the massage and buttons, to call when the workbook is opened insert a bit of code in the Microsoft excel Objects > this workbook (it should be visisble on the left in your editor).

A code like this should work:

Private Sub Workbook_Open()
Call form name
End Sub

it's the private sub Workbook_open that important.

 

[ZAX]

You can create a form to do this with the massage and buttons, to call when the workbook is opened insert a bit of code in the Microsoft excel Objects > this workbook (it should be visisble on the left in your editor).

A code like this should work:

Private Sub Workbook_Open()
Call form name
End Sub

it's the private sub Workbook_open that important.

Hi Soggy,

your code makes the userform show whenever the workbook is opened ,
but this code will do the trick :

Private Sub Workbook_Open()
If Left(Now(), 8) = "7/8/2012" Then
UserForm1.Show
End If
End Sub

but remember dear ruro when you open Visual Basic double click on "This Workbook" then
enter the code

ZAX

 

[ZAX]

Hi Soggy,

You know what ,I made you this code it does what you want without using a userform.

Private Sub Workbook_Open()
pop = MsgBox("THE FILE NEEDS TO BE UPDATED", vbOKCancel, "TEST")
If Left(Now(), 9) = "6/30/2012" Then
If pop = vbOK Then
ActiveWindow.Close
End If
End If
End Sub

But remember , when you want to modify the date you gotta change the letters count in the "LEFT" function too.

ZAX