Supprimer la lecture seule via une macro

Salut a tous


j'ai un petit probleme avec la lecture seule
je cherche a la faire sauter apres avoir effecuté un test

On m'a donner cette solution

Code:

---

1 2 3

Sub Lecture() If ActiveWorkbook.ReadOnly Then SetAttr ActiveWorkbook.FullName, vbNormal End Sub

---

hors il faut réouvrir a la main le fichier pour que la lecture seule saute

j'ai essayé de rajouté

Code:

---

1 2	Open "C:\toto.xlm" For Random As #1 Close #1

---

mais ca ne marche pas, si quelqu'un a une solution soit pour la réouverture automatique soit un meilleur code pour la lecture seule ca serait parfait

Salut
j'essaye de trouver une macro pour faire sauter la lecture seule afin de forcer un enregistrement mais je ne trouve pas de solution :(

si quelqu'un a une idée