Time-limiting the use of an EXCEL file

Another way: hide all sheets except one if the date has passed. Even if macros execution is disabled, access to all sheets will not be possible
.
Of course, you need to protect the macros.
Go to Tools - VBAProject Properties - Protection and set the password

Here is the code to put in ThisWorkbook:

Option Explicit Dim datefin As Date Dim k As Integer Dim nom As String Private Sub Workbook_Open() nom = Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1) 'file name without extension datefin = "28 / 10 / 2018" 'set the last use date If datefin < Date Then MsgBox "The date has passed!", vbCritical, nom ThisWorkbook.Close Else MsgBox "You have: " & DateDiff("d", #10/28/2018#, Date) & " days left", vbInformation, nom 'set the last use date 'on open it is unmasked by macro, if not activated....... nothing For k = 1 To Sheets.Count Sheets(k).Visible = True Next End If End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) For k = 1 To Sheets.Count If Sheets(k).CodeName <> "Sheet1" Then 'adjust the name of the visible sheet Sheets(k).Visible = xlSheetVeryHidden 'sheets hidden even by right click End If Next End Sub 

Here you go

@+ The Pivert

Everything is explained in the workbook

Press Alt F11 to access the editor

Enter the password to access the macros found in ThisWorkbook

Go to the top left and expand the tree to reach ThisWorkbook which you must select.

You will see the code appear;

This instruction is to be done for testing only (avoid destroying the workbook).

Go to Sub creer_vbs on this line: f.write ("Dim nomfichier: nomfichier = ""Activation.xls"" ") & vbCrLf change the name and rename the workbook to this name afterwards after closing


In the workbook to protect, also go to ThisWorkbook to set the validation date

follow the instructions carefully

see this in image

https://www.excel-pratique.com/fr/vba/introduction.php

@+

It is necessary for you to open the workbook: Classeur_essai

go to ThisWorkbook and copy all the code into your client workbook (ThisWorkbook) while simply modifying the last used date.

In the workbook: Activation,

it is not necessary to destroy it, delete this:

Dim oWsh 'create_vbs ' to activate Set oWsh = CreateObject("Shell.Application") 'oWsh.ShellExecute Workbooks(ActiveWorkbook.Name).Path & "\delete_file.vbs" ' to activate Set oWsh = Nothing End Sub Private Sub creer_vbs() Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(Workbooks(ActiveWorkbook.Name).Path & "\delete_file.vbs", ForWriting, True) f.write ("On Error Resume Next") & vbCrLf f.write ("Set fso = WScript.CreateObject(""Scripting.FileSystemObject"")") & vbCrLf f.write ("Dim path") & vbCrLf f.write ("path = WScript.ScriptFullName") & vbCrLf f.write ("GetPath = Left(path, InStrRev(path, ""\""))") & vbCrLf f.write ("Dim nomfichier: nomfichier = ""Activation.xls"" ") & vbCrLf ' change the name and rename the workbook to this name after closing f.write ("Dim lieufichier: lieufichier = GetPath & nomfichier") & vbCrLf f.write ("If fso.FileExists(lieufichier) Then") & vbCrLf f.write (" fso.deletefile lieufichier") & vbCrLf f.write (" fso.deletefile path") & vbCrLf f.write ("WScript.echo "" [OK] The file has been deleted!"" ") & vbCrLf f.write ("Else") & vbCrLf f.write ("WScript.echo "" [ ] The file does not exist!"" ") & vbCrLf f.write ("End If") & vbCrLf f.write ("Set fso = Nothing") & vbCrLf f.write ("WScript.Quit") 

It will still work

There you go

@+ Le Pivert

You need to open the Activation workbook, follow the instructions to make the Workbook_essai operational.

There you go, I can't do more.

See you later!

For RG14, here is a simplified version:

https://www.cjoint.com/c/HIsgeF7XMkQ

Hello eriiic,

open a file while refusing the execution of macros

it's planned that the workbook closes

work on a copy...

this has no impact as well as renaming the workbook.
The code that runs on opening looks for the date in the registry.

The only way is to crack the VBA protection to access the macros.
As I said from the start for an Excel pro it's quite easy!

That's it

@+ The Woodpecker