Mettre un fichier excel en lecture seule

Bonjour,
Je suis débutante en VBS et je n'arrive pas à mettre un fichier Excel en lecture seule via VBS. J'ai trouvé des informations concernant ce sujet en vain. Si quelqu'un peu m'aider. Voici le code que j'ai essayé :

Code:

---

SetAttr "toto.xls", FileAttribute.ReadOnly

---

Merci d'avance !!!!

Pour Modifier un attibut...

Code:

---

1 2 3 4 5

Dim MonFichier MonFichier = "NF110723.pdf" Set oFSO = CreateObject("Scripting.FileSystemObject") Set f = oFSO.GetFile(MonFichier) f.attributes = f.Attributes OR 1 ' Mise à 1 bit 0 , "ReadOnly"

---

Merci, c'est nickel , cela fonctionne !!!!
encore merci