Two into one function again

[javajon]

Hi,
I need to made a auto open macro which will protect a sheet after a certain date. I have two bits of code:

Sub Auto_Open12()
Dim i As Integer

If Date <= DateSerial(2008, 3, 1) Then
Application.ScreenUpdating = False
For i = 2 To Worksheets.Count
Worksheets(i).Visible = True
Next i
Application.ScreenUpdating = True
Else
Put some code in here????????
End If
End Sub 

Which gives an activation date, and this:

Sub ProtectSheet()

Sheets("Database Refresh").Select
ActiveSheet.Protect Password:="1968javajon"

End Sub 

Which asks for a password to enter sheet after that date, so I was wondering how I can put the two functions together to act as one.

Also I was wondering if any knows of a good reference book to learn VB I've learnt some Java, Javascript and html and would like to get a understanding.

[jonn]

try this. it will active when the workbook is opened and will password protect the sheets if the date is greater that March 1st 2008

Please Login or Register  to view this content.

i found the dummies VBA book good for learning VBA

[javajon]

Hi,
That's brill works a treat.
Thanks