Fichiers caches qui deviennent visibles

[allegro50]

Bonsoir le Forum

J'ai besoin de votre aide pour résoudre le pb suivant:

• J'ai une appli - relativement lourde - composée de 10 classeurs dont un principal.

• Les 10 fichiers sont dans le meme repetoire ou seul l'interface (le principal) n'a pas la propriété "caché" (dans windows)

• Chacun des 9 autres s'ouvre à partir de l'interface par lien hypertexte.

• L'utilisateur y fait ce qu'il doit y faire , clique sur un bouton retour qui enregistre et ferme le classeur et retourne à l'interface.

Le Hic.. c'est qu'une fois qu'un fichier a ete manipulé comme decrit ci-dessus il perd sa propriete "caché" et devient ouvrable directement à partir de l'explorateur sans passer par l'interface.

Merci de vos idees pour y remedier

 

[Mytå]

Re : Fichiers caches qui deviennent visibles

Salut le Forum

Allegro à adapter selon un code de Denis Michon (Je crois !!! )

Pour modifier l'attribut d'un fichier : 
Tu adaptes le chemin et le nom du fichier que tu désires 
modifier l'attribut. 

-------------------------------- 
Sub Attributs(NomFichier as String ) 
    Dim FS As Object 
    Set FS = CreateObject("Scripting.FileSystemObject") 
    Set f = FS.GetFile(NomFichier) 
    f.Attributes = 0 
    Set FS = Nothing: Set F = Nothing 
End Sub 
------------------------------------ 

'Normal        0       Fichier normal. Aucun attribut n'est défini. 
'ReadOnly    1       Fichier en lecture seule. L'attribut est en lecture/écriture. 
'Hidden        2       Fichier caché. L'attribut est en lecture/écriture. 
Complément dans l'aide sous  "Attributes" 

 

Pour appeler cette procédure : 
--------------------- 
Sub AppelAttributs() 

Attributs "C:\Mes documents\classeur1.xls" 
End sub

Mytå

 

[allegro50]

Re : Fichiers caches qui deviennent visibles

Bonjour Myta, le Forum

Merci ; c'est exactement ce qu'il me faut, à placer dans "This Workbook" "BeforeClose"

A plus