VBA to Lock and prevent opening of the excel file

[Excelguruintraining]

Hello, I hope all is well. I’m trying to write a code that I can add to the macros I have created so that after a certain date the workbook saves and enters a password that will prevent the workbook from opening. I have come up with the code below but can’t seem to get it to work. Any help is appreciated.

If CDate(Now) > CDate(6 / 8 / 2015) ThenMsgBox "workbook has expired", vbOKOnly
ActiveWorkbook.SaveAs Filename:= _
                    fil.Path, _
                     Password:="Amco32", ReadOnlyRecommended:=False _
                    , CreateBackup:=False
End If

 

[dmt32]

Hi try this:

If Date > CDate("6/8/2015") Then


MsgBox "workbook has expired", vbOKOnly


Else
' valid - still in date


End If

Your sample date is for August so code will pass valid.

Also, be mindful this type of control only works if your users enable macros.

Dave

 

[Excelguruintraining]

This only displays a message box, it does not lock the workbook.

 

[dmt32]

This only displays a message box, it does not lock the workbook.

What I did was an example for the valid date test part only

- you will need to add your code in appropriate parts as required.

Something like ThisWorkbook.Close False after the message box would close workbook without saving.

Dave

 

[Joeseph999]

Maybe we can solve each others problem. I have an expired password and am trying to bypass this code....


'Checking expiration
If Sheet3.Cells(69, 2) = 0 Then
MsgBox "Activation password for the spreadsheet has expired,"
Exit Sub
End If
BinOK = False
Me.pbResults.Value = 0
wban = Sheet3.Cells(8, 2)
wban = fWban(wban)
fName = ThisWorkbook.Path & "\WDF\" & wban & ".wdf"
If Dir(fName) = "" Then
MsgBox "Missing file " & wban & ".wdf " & "in the WDF folder. Program is terminated!", , "Error"
Exit Sub
End If

Sheet 3 is not visible and I have tried various methods to see it but have been unsuccessful.

Any help would be appreciated.