le Code pr un fichier Excel en mode lecture seule

Bonjour,
J'aimerais savoir s'il y a un code sous VB 6.0 qui me permet d'ouvrir un fichier EXCEL en mode lecture seule.
Merci d'avance

voir aide en ligne excel vba de la méthode open, le 3° paramètre :

Citation:

---

expression.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad, OpenConflictDocument)

---

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Command1_Click() Dim st Dim AppExcel As New Excel.Application Dim wk As Excel.Workbook AppExcel.Visible = True st = AppExcel.GetOpenFilename If TypeName(st) = "String" Then Set wk = AppExcel.Workbooks.Open(FileName:=st, ReadOnly:=True) End If End Sub

---

merci pour votre aide