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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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