Bonjour le Forum,
J'ai créé une application sous Excel. Je souhaite que le fichier s'ouvre en lecture seule, si ce n'est pas mon identifiant qui l'ouvre. (fichier sur réseau).
Mon but est d'éviter la boîte de dialogue habituelle à l'ouverture d'un classeur dont l'écriture est protégée par mot de passe.
Autre précision, je pense d'importance : le fichier doit s'ouvrir par raccourci sur le bureau, donc sans utilisation d'un classeur annexe.
Voici le code auquel j'ai pensé :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 Private Sub Workbook_Open()
    Dim CHEMIN As String
    CHEMIN = ActiveWorkbook.FullName
    If Application.UserName = "MarcelG" Then
        SetAttr CHEMIN, vbNormal
    Else
        SetAttr CHEMIN, vbReadOnly
    End If
 End Sub
1er essai de sauvegarde sur mon poste : sauvegarde sans problème
Je ferme le classeur.
2ème essai de sauvegarde sur le poste d'un collègue : message bloquant (normal)
Je ferme le classeur.
3ème essai de sauvegarde sur mon poste (MarcelG) : là refus car fichier en lecture seule. ???!!!! Je ne comprends pas.
J'ai dû faire une erreur dans mon code VBA.
Peut-on me dire comment y pallier, ou me proposer un autre code.
D'avance Merci.
Cordialement. Marcel.