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