Durée d'utilisation limité mais sous condition

[Ilino]

Forum Bonjour;

Je souhaite créer une Macro qui limite la durée d'utilisation du fichier
Exemple une fois la date limite est aboutée (cellule A1) ,je souhaite masquer le fichier(original) complètement dans un répertoire bien définit ( dans Windows) avec un MDP et afficher a l’utilisateur un fichier copie mais sans macro ,mais l’original est caché dans le Répertoire Windows
GRAZIE😎

 

[Ilino]

Re : Durée d'utilisation limité mais sous condition

Bonjour FORUM
est ce que mon souci est faisable ?
merci par avance
GRAZIE

 

[Victor21]

Re : Durée d'utilisation limité mais sous condition

Bonsoir Ilino.

Bis repetita ne placent pas 🙂. Lien.
M'enfin : l'enregistreur de macro devrait vous aider, à condition que vous soyez prêt à donner un peu de votre personne :
Enregistrez le .xlsm dans le répertoire de votre choix, puis écrasez le xlsm du répertoire actuel et enregistrez le fichier sous XLSX, avec un test sur la date en A1

 

[Ilino]

Re : Durée d'utilisation limité mais sous condition

Message effacer

 

[Ilino]

Re : Durée d'utilisation limité mais sous condition

Bonsoir VICTOR

Bonsoir Ilino.

Bis repetita ne placent pas 🙂. Lien.

Grazie per il commento, ma non ho una risposta.

Bonsoir Ilino.

M'enfin : l'enregistreur de macro devrait vous aider, à condition que vous soyez prêt à donner un peu de votre personne :
Enregistrez le .xlsm dans le répertoire de votre choix, puis écrasez le xlsm du répertoire actuel et enregistrez le fichier sous XLSX, avec un test sur la date en A1

maintenant je vais tester La vostra proposta
grazie victor
A+

 

[Ilino]

Re : Durée d'utilisation limité mais sous condition

Re;
VICTOR Mi dispiace😱, mi sono perso con il registratore.🙁
puis je avoir la tua proposta😕
grazie

 

[Ilino]

Re : Durée d'utilisation limité mais sous condition

Forum Bonsoir
mon objectif ce n'est pas supprimer le fichier mais je laisse une tracabilite (secret) pour avertir l'utilisateur que vous devez contacter l'administrator de ce fichier.
grazie

 

[Ilino]

Re : Durée d'utilisation limité mais sous condition

Bonsoir Forum
est ce que c'est réalisable mon souci??
Grazie

 

[Victor21]

Re : Durée d'utilisation limité mais sous condition

Re, re, re.....

Bonsoir Forum
est ce que c'est réalisable mon souci??
Grazie

maintenant je vais tester La vostra proposta
grazie victor

Que donne le test ?
Quel code avez-vous obtenu ?

 

[Ilino]

Re : Durée d'utilisation limité mais sous condition

Re.
MERCI, je suis entrain de suivre ce fil :
https://www.excel-downloads.com/threads/aynahu-date-limite-douverture-dun-fichier-excel.206627/
mais je vous solicite a me donner un coup de main
grazie victor

 

[Victor21]

Re : Durée d'utilisation limité mais sous condition

Re...

Re.
MERCI, je suis entrain de suivre ce fil :
https://www.excel-downloads.com/threads/aynahu-date-limite-douverture-dun-fichier-excel.206627/
mais je vous solicite a me donner un coup de main
grazie victor

Dans la mesure de mes possibilités, avec plaisir...
...dès que vous aurez montré que vous avez testé le conseil prodigué plus haut, en fournissant le code généré.

 

[Ilino]

Re : Durée d'utilisation limité mais sous condition

Re,
ci joint le code

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveWorkbook.SaveAs Filename:="C:\WINDOWS\ILINO DUREE LIMITE.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "9/12/2014"
    Range("B1").Select
    ChDir "I:\ILINIO"
    ActiveWorkbook.SaveAs Filename:="I:\ILINIO\ILINO DUREE LIMITE.XLSX.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

alors 😕🙁😱

 

[Victor21]

Re : Durée d'utilisation limité mais sous condition

Re,

Essayez (non testé) :

Private Sub Workbook_Open()
ActiveWorkbook.SaveAs Filename:="C:\WINDOWS\ILINO DUREE LIMITE.xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
If Range("A1").Value < 41982 Then Exit Sub
ChDir "I:\ILINIO"
ActiveWorkbook.SaveAs Filename:="I:\ILINIO\ILINO DUREE LIMITE.XLSX", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Kill "I:\ILINIO\ILINO DUREE LIMITE.XLSM"
End Sub

Pour le mot de passe je suppose que vous saurez.

 

[Ilino]

Re : Durée d'utilisation limité mais sous condition

Re,
Grazie per la risposta, ma non ha funzionato.
A+

 

[job75]

Re : Durée d'utilisation limité mais sous condition

Bonjour Ilino, le forum, salut Patrick,

Je ne vois pas l'intérêt de cette gymnastique mais enfin...

Place ces 2 macros dans ThisWorkbook :

Private Sub Workbook_Open()
If Date >= Feuil1.[A1] Then 'Feuil1 est le CodeName
  Dim f$, fn$
  f = Me.Name
  fn = Me.FullName
  Application.DisplayAlerts = False
  Application.EnableEvents = False
  On Error Resume Next
  Me.SaveAs Left(fn, Len(fn) - 5), 51
  Workbooks.Open fn 'rouvre le fichier .xlsm
  Application.OnTime 1, "'" & f & "'!ThisWorkbook.Rouvre"
  Application.EnableEvents = True
  Me.Close False 'ferme le fichier .xlsx
End If
End Sub

Sub Rouvre()
Dim fn$
fn = Me.FullName
Workbooks.Open Left(fn, Len(fn) - 5) & ".xlsx"
Me.Close False
End Sub

Par ailleurs, au post #1, tu parles de "cacher" le fichier original dans son répertoire.

Je n'ai pas de solution en VBA mais de toute façon je n'en vois pas l'intérêt.

En effet, un fichier avec l'attribut "caché" coché reste affiché si dans les options d'affichage des dossiers on a choisi "Afficher les fichiers, dossiers et lecteurs cachés".

A+