Protect Workbook Based on Dates

[yah_kid]

Hello... I need some help in finishing up with a macro that asks for a password when the file is opened after a certain dates. So if the dates in the computer is over the 15th day of the month, upon opening the spreadsheet it will ask for a password. Otherwise, it is okay. Thanks for all the help.
-----------------------------------------------------
Sub auto_open()

Dim MyDate
Dim SetDate
Dim CompareDate

MyDate = Format(Date, "mm/dd/yyyy")
CompareDate = Mid(MyDate, 1, 2) & "/" & "15" & "/" & Mid(MyDate, 7, 4)

If MyDate > CompareDate Then
ActiveWorkbook.Password = "test"
'MsgBox "Please Use a New Spreadsheet from the Server" & vbCrLf, vbOKOnly, "Outdated Spreadsheet"
Else

End If

End Sub
-----------------------------------------------------------------------------

[Leith Ross]

Hello Yah_kid,

Just needs a little tweak. Here it is.
_________________________________________________________________

Sub auto_open()

Dim MyDate

MyDate = Date

If Day(MyDate) > 15 Then
ActiveWorkbook.Password = "test"
'MsgBox "Please Use a New Spreadsheet from the Server" & vbCrLf, vbOKOnly, "Outdated Spreadsheet"
Else

End If

End Sub

________________________________________________________________


Hope this helps,
Leith Ross

[yah_kid]

Hi Leith,

Thanks for the reply. However, when I change the dates in my computer to be less than the 15th day, it still asks for a password. I guess what I'm asking is how to protect a workbook when it is opened using VBA.

ActiveWorkbook.Password = "test"MyDate = Date

Thanks for all the help.