excel protect

New Contributor


I like to protect an excel worksheet for opening with a password, but it have to work just after a while. So, i give a worksheet to some one, and he or she can use it for, example, a month. After a month a password is neccecary to open the sheet. How can i make that? I think it is possible with VBA.

Gr. Marc.

3 Replies

Something like this


Private Sub Workbook_Open()

Dim ExpiryDate As String
Dim pwd As String

pwd = "ABC"
ExpiryDate = "28/01/2019"

If Date > ExpiryDate Then

    MsgBox "Password has expired", vbCritical, "Expired Password!"
    If InputBox("Enter Password", "", "") <> pwd Then
     'enter a close or repeat password routine here
        MsgBox "Close"
        Exit Sub
    End If
End If

End Sub

I think i need more help, because het won't work. I probebly make a mistake.




Hi, have you written much vba before?

Are you getting an error message?

Related Conversations
Copy/paste no longer working in Excel
Jon Firooz in Excel on
76 Replies
changing Date format in a pivot table
ahmad ali in Excel on
12 Replies
runtime error 1004 : Method range of object - 'Global' failed
Lorenzo Kim in Excel on
16 Replies
INDEX & MATCH interrupted by Inconsistent Dates
shade206 in Excel on
18 Replies
!SPILL error with SUMIFS formula
Dzung Vu in Excel on
18 Replies
Need to extract values from named cells (Get and Transform)
JEMagnussen in Excel on
23 Replies