Forum Discussion

Marc_Mes's avatar
Marc_Mes
Copper Contributor
Jan 30, 2019

excel protect

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.

excel
Macros and VBA

3 Replies

  • Wyn Hopkins's avatar
    Wyn Hopkins
    MVP
    Jan 30, 2019

    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
    • Marc_Mes's avatar
      Marc_Mes
      Copper Contributor
      Jan 30, 2019

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

       

      Marc.

      Netherlands

      • Wyn Hopkins's avatar
        Wyn Hopkins
        MVP
        Jan 30, 2019
        Hi, have you written much vba before?

        Are you getting an error message?