Message avant l'ouverture du fichier EXCEL

Question

Bonjour, 

j'ai un fichier Excel à partager en réseau et je souhaiterais qu'au moment de l'ouverture du fichier par un tiers, c'est à dire lorsqu'on clique dessus que j'ai le message suivant:
"merci d'ouvrir le fichier en lecture seule à moins que vous ayez besoin de faire des modifications: Voulez-vous ouvrir le fichier en lecture seule? OUI/NON).

Si l'acteur clique sur NON, le fichier s'ouvre en lecture normale. Et s'il clique sur OUI, le fichier s'ouvre en lecture seule.

Pour mon cas, je dois avoir le fichier qui s'ouvre toujours en mode lecture seule sauf lorsque l'acteur clique sur non.

Configuration: Windows XP / Firefox 8.0.1

greg160 · Answer

Les fichiers partagés sur les réseaux sont peut-être protégés par leur admin .
Si l'administrateur a décidé de ne pas protéger le fichier cela veut dire que tu pourras l'ouvrir EN LECTURE SEULE et en suite faire Ctrl+MAJ+S
Maj = la flèche qui va vers le haut sur la droite ou/et la gauche de ton clavier

eriiic · Answer

Bonjour,  

Sub ouvrirFichier()
    ChDir "D:\Users\Eric\Documents\ccm"    ' chemin par défaut
    LectureSeule = MsgBox("Merci d'ouvrir le fichier en lecture seule sauf besoin de modifications." & vbLf & "Ouvrir le fichier en lecture seule? ", vbQuestion & vbYesNo) = vbYes
    fichier = Application.GetOpenFilename("Excel Files (*.xl*),*.xl*", Title:="Sélectionnez le fichier")
    If fichier = False Then Exit Sub
    Workbooks.Open fichier, , LectureSeule
End Sub

eric

Message avant l'ouverture du fichier EXCEL

2 réponses

Discussions similaires

Newsletters