[VBA-E]Enregistrer en lecture seule

Bonjour,

J'ai un problème très con.
Je voudrais enregistrer un classeur Excel en lecture seule ( ça pas de problème ), mais je voudrais que MOI je puisse le modifier quand même sans passer pas la touche "shift" à l'ouverture de mon fichier.

Connaissez-vous un moyen ?

J'ai fais ceci mais ça marche pas :(

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Workbook_Open()   If CurrentMachineName() = ("CH02W015") Then Workbooks.Open Filename:="O:\monfichier.xls", _ ReadOnly:=False, notify:=False, ignorereadonlyrecommended:=True Else Workbooks.Open Filename:="O:\monfichier.xls", _ ReadOnly:=True, notify:=False, ignorereadonlyrecommended:=True End If   end sub

---

Regarde là si tu trouves ton bonheur

Citation:

---

Envoyé par ouskel'n'or

Regarde là si tu trouves ton bonheur

---

Ben ça marche pas vraiment :(

Et quand je fais le test de l'attribut, sur un fichier sur mon C: ça marche, mais un fichier sur le reseau, ça marche pas, il me donne 0 ou 1 comme attribut et non pas 32 33.