Protéger un fichier(Par son chemin)

[Claudy]

Bonjour,
Je voudrais protéger un fichier de la manière suivante:
Son adresse= "T:\CND-CPA\GESTION FACTURIER\Mod106.xls"
Comment rendre l'ouverture impossible si le fichier est deplacé ou copié vers une autre adresse?
Dnc ne se trouvre plus dans "T:\CND-CPA\GESTION FACTURIER"
J'espère avoir été assez clair...
Merci d'avance,
Claudy

 

[tototiti2008]

Re : Protéger un fichier(Par son chemin)

Bonjour Claudy,

pour faire ça, il faudrait faire une macro à l'ouverture, mais les macros se désactivent....

 

[Claudy]

Re : Protéger un fichier(Par son chemin)

Ok, merci
Mais de toute façon, mon fichier avec macros désactivées n'est pas utilisable!
Donc...
A+
Claudy

 

[tototiti2008]

Re : Protéger un fichier(Par son chemin)

Re,

peut-être (dans ThisWorkbook) :

Private Sub Workbook_Open()
If ThisWorkbook.FullName <> "T:\CND-CPA\GESTION FACTURIER\Mod106.xls" Then
ThisWorkbook.Close False
End If
End Sub

 

[tototiti2008]

Re : Protéger un fichier(Par son chemin)

Re,

ou plutôt :

Private Sub Workbook_Open()
If ThisWorkbook.Path <> "T:\CND-CPA\GESTION FACTURIER" Then
ThisWorkbook.Close False
End If
End Sub

 

[Claudy]

Re : Protéger un fichier(Par son chemin)

ok merci c'est tout bon...
a+
Claudy