Discussion :

[havopti]

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

[havopti]

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