VBA Password protect a Workbook after a certain date

[willow1985]

I have been looking online for help with this code but haven't quite found what I am looking for and was hoping someone on here could help.

I am looking to lock a workbook with a password after a certain date that will close entirely if the password is incorrect.

Something to this effect:

Private Sub Workbook_Open()
  Dim exp_date As Date
  exp_date = "9/31/2021"
  If Date > exp_date Then
'Make it prompt for a password, if incorrect 
MsgBox ("Error")
    ActiveWorkbook.Close
'if correct open workbook
End Sub

Any help finishing this code would be greatly appreciated!!

Thank you

 

[tonyyy]

You might consider the following...

Private Sub Workbook_Open()
Dim exp_date As Date
Dim pword1 As String, pword2 As String

exp_date = "8/31/2021"
pword1 = "1234"

If Date > exp_date Then
    pword2 = Application.InputBox("Please enter your password.", "Login")
    If pword2 = pword1 Then
        GoTo Proceed
    Else
        ThisWorkbook.Close savechanges:=False
    End If
End If
Proceed:
End Sub

Please be aware this is anything but foolproof. For example, simply disabling macros upon start up will circumvent this "security."

Cheers,

Tony

 

[Logit]

How to Not Let a User View an Excel File If They Disable Macros

VBA Express : Excel - Force users to enable macros in a workbook

 

[willow1985]

You might consider the following...

Private Sub Workbook_Open()
Dim exp_date As Date
Dim pword1 As String, pword2 As String

exp_date = "8/31/2021"
pword1 = "1234"

If Date > exp_date Then
    pword2 = Application.InputBox("Please enter your password.", "Login")
    If pword2 = pword1 Then
        GoTo Proceed
    Else
        ThisWorkbook.Close savechanges:=False
    End If
End If
Proceed:
End Sub

Please be aware this is anything but foolproof. For example, simply disabling macros upon start up will circumvent this "security."

Cheers,

Tony

The guys I work for are not tech savy so this should be sufficient. Thank you very much!

 

[willow1985]

How to Not Let a User View an Excel File If They Disable Macros

VBA Express : Excel - Force users to enable macros in a workbook

Very informative! Thank you, I will put a pin in this and come back to it later. Good information to know! Thank you!!

 

[Logit]

You are welcome.