VBA password protect workbook after set date

Hi,

Upon opening my workbook I am trying to make it become password protected, however this will only be applicable after a specific date (10/09/2021). i currently have the following code but it is displaying syntax errors:

PHP Code: 

Private Sub Workbook_Open()
Dim d1 As Date
Dim d2 As Date
Dim password As String
d1 = 10 / 9 / 2021
d2 = Date
If d2 > d1 Then
password = InputBox (“enter password”)
Else
MsgBox (“Opening file”)
End If
If password = “abC123_ Then
MsgBox (“Welcome!”)
Else
MsgBox (“Incorrect password!”)
password = InputBox(“enter password again”)
End If
End Sub 


Any help would be much appreciated.

Thanks

With these changes it should work better.

Please Login or Register  to view this content.

Great thank you so much, that working perfectly from what i asked. As a slight adjustment to my initial request, is there a way to just open the workbook with no message box when its before the expiry date. So to change this part?

PHP Code: 

Else
        MsgBox ("Opening file")
        Exit Sub
    End If 


Oh, yes, just get rid of the Msgbox; sincerely I thought that most of the MsgBoxs were there only for debugging.

Thanks, sorry fairly new to VBA and i worked that out just after i pressed send. Thanks for your help

Glad we have been of some help .