Password to expire after set period or by date

[bptaw]

I have a user login form and I want the password to expire after a certain date. The workbook opens with a single page and the other sheets are made visible after successful login.
My sample user form login code is:

Private Sub cmdLogin_Click()

Dim user As String
Dim password As String
user = Me.txtUserID.Value
password = Me.txtPassword.Value

If (user = "admin" And password = "admin") Or (user = "user" And password = "user") Then

Unload Me
' Unhide all worksheets in the workbook
Worksheets("TS").Visible = xlSheetVisible
Worksheets("Hemp").Visible = xlSheetVisible
Worksheets("Maize").Visible = xlSheetVisible
Worksheets("Summary Page").Visible = xlSheetVisible
Worksheets("Water Calculations").Visible = xlSheetVisible

' Unhide a specific shape by name
Dim ws As Worksheet
Set ws = ActiveSheet ' Change to the desired worksheet
ws.Shapes("buttonLink").Visible = False
ws.Shapes("Pentagon 4").Visible = True
On Error GoTo 0 ' Reset error handling


Else

MsgBox "Invalid login credentials. Please try again."

End If

End Sub



Anyone help?

 

[Akuini]

Maybe something like this:

user = Me.txtUserID.Value
password = Me.txtPassword.Value

If Date > DateValue("2023-10-15") Then
    MsgBox "something.."
    Exit Sub
End If

If (user = "admin" And password = "admin") Or (user = "user" And password = "user") Then

I want the password to expire after a certain date.

Edit:
Wait, do you mean you want to apply this only on certain passwords or all passwords?

 

[bptaw]

If Date > DateValue("2023-10-15") Then MsgBox "something.." Exit Sub End If

Maybe something like this:

user = Me.txtUserID.Value
password = Me.txtPassword.Value

If Date > DateValue("2023-10-15") Then
    MsgBox "something.."
    Exit Sub
End If

If (user = "admin" And password = "admin") Or (user = "user" And password = "user") Then

Edit:
Wait, do you mean you want to apply this only on certain passwords or all passwords?

No, your simple solution does the trick. I think it is now pretty secure as I have also locked the vba. Am I right?

 

[bptaw]

Maybe something like this:

user = Me.txtUserID.Value
password = Me.txtPassword.Value

If Date > DateValue("2023-10-15") Then
    MsgBox "something.."
    Exit Sub
End If

If (user = "admin" And password = "admin") Or (user = "user" And password = "user") Then

Edit:
Wait, do you mean you want to apply this only on certain passwords or all passwords?

But there is one other little matter. The shape I hide when the user logs in (ws.Shapes("buttonLink").Visible = False) shows up again on returning to that page. How can I stop that?

 

[Akuini]

But there is one other little matter. The shape I hide when the user logs in (ws.Shapes("buttonLink").Visible = False) shows up again on returning to that page. How can I stop that?

Sorry, I don't understand this part. But probably this:

user = Me.txtUserID.Value
password = Me.txtPassword.Value

If Date > DateValue("2023-10-15") Then
    MsgBox "something.."
    Activesheet.Shapes("buttonLink").Visible = False
    Exit Sub
End If

If (user = "admin" And password = "admin") Or (user = "user" And password = "user") Then

 

[bptaw]

Sorry, I don't understand this part. But probably this:

user = Me.txtUserID.Value
password = Me.txtPassword.Value

If Date > DateValue("2023-10-15") Then
    MsgBox "something.."
    Activesheet.Shapes("buttonLink").Visible = False
    Exit Sub
End If

If (user = "admin" And password = "admin") Or (user = "user" And password = "user") Then

I tried that but the button does not disappear. Effectively I want the button linked to the login form to be hidden after successful login. At the moment it is initially hidden but when I go back to the start sheet it's there again. The code I have is:
' Unhide a specific shape by name
Dim ws As Worksheet
Set ws = ActiveSheet ' Change to the desired worksheet
ws.Shapes("buttonLink").Visible = False
ws.Shapes("Pentagon 4").Visible = True
On Error GoTo 0 ' Reset error handling
after the sheets are made visible.

 

[Akuini]

At the moment it is initially hidden but when I go back to the start sheet it's there again.

Sorry, I have no idea why it appeared again.

 

[bptaw]

I just need a way of making it stay hidden until I restart the workbook

 

[bptaw]

Maybe there's a way to hide this shape when other worksheets are visible?