Ouvrir un fichier excel en lecture seule

[typiquement]

Bonjour,

J'ai un fichier excel en mode exclusif.

Je voudrais qu'à l'ouverture, l'utilisateur ait le choix d'ouvrir soit en lecture seule soit en normal.

Cela est il possible? Ou dois je mettre le code(workbook_open?)?

Merci d'avance

 

[Staple1600]

Re : Ouvrir un fichier excel en lecture seule

Bonjour

Application.Workbooks.Open Filename:=MonFichier, ReadOnly:=True​

 

[typiquement]

Re : Ouvrir un fichier excel en lecture seule

Merci mais En fait je voudrais cela pas forcément en accédant au fichier par une macro.

Lorsque je clique sur mon fichier excel manuellement, j'ai avant l'ouverture une msgbox qui me propose le choix du type d'ouverture...

j'espère etre clair

Merci d'avance

 

[porcinet82]

Re : Ouvrir un fichier excel en lecture seule

Salut,

Tout simplement avec le code de Staple, tu mets ce code dans Thisworkbook :

Private Sub Workbook_Open()
rep = MsgBox("Voulez vous ouvrir le fichier en lecture seul?", vbYesNo)
If rep = 1 Then Application.Workbooks.Open Filename:=MonFichier, ReadOnly:=True
End Sub

@+

 

[Staple1600]

Re : Ouvrir un fichier excel en lecture seule

Re

Bonjour Porcinet82

En complément de ton code
Je viens de faire le test suivant

Si le fichier test.xls a été enregistré manuellement
Enregister sous/Outils/Options générales/Partage du fichier/Lecture seule recommanée
ou avec ce code VBA

Sub test()
ActiveWorkbook.SaveAs Filename:="C:\test.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", [B]ReadOnlyRecommended[/B]:=True, _
CreateBackup:=False
End Sub

Puis que dans un autre classeur se trouve ce code

Private Sub Workbook_Open()
Filename = "C:\test.xls"
Workbooks.Open (Filename), , Notify:=True
End Sub

Le message d'avertissement d'Excel s'affiche
Si je réponds non le fichier est ouvert normalement
Si je réponds oui il est ouvert en lecture seule

 

[typiquement]

Re : Ouvrir un fichier excel en lecture seule

A priori ca ne marche pas

J'ai mis le chemin complet à la place de MonFichier et la ligne ne compile pas...

 

[Staple1600]

Re : Ouvrir un fichier excel en lecture seule

Re

Peux tu poster le code de ta macro stp?


Chez moi les deux méthodes fonctionnent


celle de porcinet82(avec une petite modif) et la mienne


Seul le message (généré par Excel) apparait

[LEFT]Private Sub Workbook_Open()
Dim Filename as String
Filename = "C:\test.xls"
Workbooks.Open (Filename), , Notify:=True
End Sub[/LEFT]

De cette façon tu deux messages d'avertissement
Le msgbox
et le message propre à Excel

[LEFT]Private Sub Workbook_Open()
Dim Filename as String
Filename="C:\nomdetonfichier.xls"
rep = MsgBox("Voulez vous ouvrir le fichier en lecture seul?", vbYesNo)
If rep = [B]vbYes [/B]Then Application.Workbooks.Open (filename), True
End Sub[/LEFT]

 

[typiquement]

Re : Ouvrir un fichier excel en lecture seule

J'ai un warning qui me dit

"Erreur de compilation dans le module caché : Thisworkbook"

 

[typiquement]

Re : Ouvrir un fichier excel en lecture seule

En fait ca a l'air de marcher... a priori...

Merci les gars