Limiter dans le temps l'usage d'un fichier EXCEL

Une autre manière: cacher toutes les feuilles sauf une si la date est dépassée. Même si l'on refuse l'exécution des macros, on n'aura pas accès à toutes les feuilles
.
Bien sur il faut protéger les macros.
Allez dans Outils-Propriétés VBAProject-Protection et mettre le mot de passe

Voici le code à mettre dans 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) 'nom fichier sans l'extension
datefin = "28 / 10 / 2018" 'mettre la date de dernière utilisation
If datefin < Date Then
MsgBox "La date est dépassée!", vbCritical, nom
ThisWorkbook.Close
Else
MsgBox "Il vous reste:  " & DateDiff("d", #10/28/2018#, Date) & " jours", vbInformation, nom   'mettre la date de dernière utilisation
'en ouvertture on démasque par macro,si pas activé....... rien
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 <> "Feuil1" Then 'adapter le nom de la feuille visible
Sheets(k).Visible = xlSheetVeryHidden 'feuilles cachées même par clic droit
End If
Next
End Sub

Voilà

@+ Le Pivert

Tout est expliqué dans le classeur

Faire Alt F11 pour accéder à l'éditeur

Mettre le mot de passe pour accéder aux macros qui se trouvent dans ThisWorkbook

Allez en haut à gauche et dérouler l'arborescence pour atteindre ThisWorkbook que vous sélectionnez.

Vous verrez apparaître le code;

Cette instruction est à faire pour les essais seulement ( évite de détruire le classeur).

Allez dans Sub creer_vbs sur cette ligne : f.write ("Dim nomfichier: nomfichier = ""Activation.xls"" ") & vbCrLf changer le nom et renommer le classeur à ce nom ensuite après avoir fermé


Dans le classeur a protéger allez aussi dans ThisWorkbook pour mettre la date de validation

suivez bien les instructions

voir ceci en image

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

@+

Il faut que tu ouvres le classeur: Classeur_essai

que tu ailles dans ThisWorkbook et que tu copies tout le code dans ton classeur client (ThisWorkbook) en modifiant la date de dernière utilisation simplement.

dans le classeur: Activation,

ce n'est pas nécessaire de le détruire, supprime cela:

Dim oWsh
'creer_vbs ' a activer
Set oWsh = CreateObject("Shell.Application")
'oWsh.ShellExecute Workbooks(ActiveWorkbook.Name).Path & "\delete_file.vbs" ' a activer
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 ' changer le nom et renommer le classeur à ce nom ensuite après avoir fermé
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] Le fichier à été supprimé!"" ") & vbCrLf
f.write ("Else") & vbCrLf
f.write ("WScript.echo "" [  ] Le fichier n'existe pas!"" ") & vbCrLf
f.write ("End If") & vbCrLf
f.write ("Set fso = Nothing") & vbCrLf
f.write ("WScript.Quit")

cela fonctionnera quand même

Voilà

@+ Le Pivert

Il faut ouvrir le classeur Activation, suivre les explications pour rendre le classeur Classeur_essai opérationnel

Voilà je ne peux pas faire plus

@+

Pour RG14, voici une version simplifiée:

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

Bonjour eriiic,

ouvrir un fichier en refusant l'exécution des macros

c'est prévu le classeur se ferme

travaille sur une copie...

cela n'a aucune incidence ainsi que de renommer le classeur.
Le code qui est à l'ouverture va chercher la date qui est dans la base de registre.

Le seul moyen est de cracker la protection vba pour avoir accès aux macros.
Comme je le disais au départ pour un pro d'Excel c'est assez facile!

Voilà

@+ Le Pivert