Assign Expiry date

[raji123]

Can somebody help me for subject topic, How can we add expiry date (Time-Lock) to a Excel workbook so that after that date Workbook gets lock and required password to re-validate/Unlock ???

Regards,

 

[footoo]

VBA Password protect a Workbook after a certain date

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...

www.mrexcel.com

In addition to the comments about disabling macros in the above link, you might also want to password protect the code.

 

[raji123]

VBA Password protect a Workbook after a certain date

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...

www.mrexcel.com

In addition to the comments about disabling macros in the above link, you might also want to password protect the code.

Thank you very much

 

[raji123]

VBA Password protect a Workbook after a certain date

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...

www.mrexcel.com

In addition to the comments about disabling macros in the above link, you might also want to password protect the code.

dear, footoo regards
can you help one more thing,
how can I use the above code for every week ?
"like, every friday mid night it will be locked and when i want to change lock date
then I can input lock date like password input"
is this possible??

thanks

 

[footoo]

Post the code you are using.

 

[raji123]

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

exp_date = "2022/07/01"
pword1 = "raji123"

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

 

[footoo]

Here's one way (untested).
To set it up :
• Open a new sheet named "Hidden".
• Enter the current lock date in cell A1.
• Hide the sheet.
Then:

Private Sub Workbook_Open()
Dim exp_date As Date
Dim pword1$, pword2$, iResponse%

exp_date = Sheets("Hidden").[A1]
pword1 = "raji123"

If Date > exp_date Then
    pword2 = Application.InputBox("Please enter your password.", "Login")
    If pword2 <> pword1 Then ThisWorkbook.Close savechanges:=False
    iResponse = MsgBox("Do you want to change the lock date?", vbOKCancel)
    If iResponse = vbOK Then Call GetADate
End If
End Sub

And this in a normal module :

Sub GetADate()
Dim TheString$
TheString = Application.InputBox("Enter a new lock date (d/m/yy)")
If IsDate(TheString) Then
    Sheets("Hidden").[A1] = DateValue(TheString)
Else
    MsgBox "Invalid date"
End If
End Sub

 

[raji123]

thank you very much footoo its working