Home

excel protect

Marc_Mes
New Contributor

Hello,

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.

 

Marc.

Netherlands

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
INDEX & MATCH interrupted by Inconsistent Dates
shade206 in Excel on
18 Replies
Need to extract values from named cells (Get and Transform)
JEMagnussen in Excel on
23 Replies
!SPILL error with SUMIFS formula
Dzung Vu in Excel on
18 Replies