VBA password protect workbook after set date

[Danny1986]

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:

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

[rollis13]

With these changes it should work better.

Option Explicit
Private Sub Workbook_Open()
    Dim d1     As Date
    Dim d2     As Date
    Dim password As String
    d1 = CDate("10/02/2021")
    d2 = Date
    If d2 > d1 Then
        password = InputBox("enter password")
    Else
        MsgBox ("Opening file")
        Exit Sub
    End If
pwd:
    If password = "abC123_" Then
        MsgBox ("Welcome!")
        Exit Sub
    Else
        MsgBox ("Incorrect password!")
        password = InputBox("enter password again")
        If password = "" Then
        MsgBox ("No password ... no party ...")
        ThisWorkbook.Close False
        End If
        GoTo pwd
    End If
End Sub

[Danny1986]

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?

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

[Joske920]

Hi,

try this,

Private Sub Workbook_Open()
   Dim d1 As Date
   Dim d2 As Date
   Dim password As String
   
   d1 = CDate("10/09/2021")
   d2 = Date
   
   If d2 > d1 Then
      While password <> "abC123_"
         password = InputBox("enter password", "Locked", "XXXX")
         If password = "abC123_" Then
            MsgBox "Welcome!", vbOKOnly
           Else
            MsgBox "Incorrect password!", vbCritical
         End If
      Wend
   End If
   
End Sub

[rollis13]

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

[Danny1986]

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

[rollis13]

Glad we have been of some help .