javajom
Javajon
- Local time
- Today, 13:46
- Joined
- Mar 5, 2008
- Messages
- 37
Hi,
I've just had some help with a spreadsheet security issue and I was wondering how to modify the code for Access? The code is:
Can anybody help?
I've just had some help with a spreadsheet security issue and I was wondering how to modify the code for Access? The code is:
PHP:
Private Sub Auto_Open1()
Dim i As Integer
Dim P_Word As String
P_Word = "1968javajon"
If Date <= DateSerial(2008, 8, 30) Then
Application.ScreenUpdating = False
For i = 2 To Worksheets.Count
Worksheets(i).Visible = True
Next i
Application.ScreenUpdating = True
Else
MsgBox ("Sorry need password, please contact creator")
Application.ScreenUpdating = False
For i = 2 To Worksheets.Count
Worksheets(i).Select
ActiveSheet.Protect Password:=P_Word
Next i
Application.ScreenUpdating = True
End If
End Sub
Can anybody help?