Open CSV file read only

[baha17]

Hi Everyone,

I have a code which opens a CSV file extract data then close without saving. I don't want to change the CSV file format to excel-sharing workbook opening and closing time. Now is there any way to open CSV file by multi user at the same time. It can be open as ready only,but do not want to see the alert message.
Thank you very much for your time.
Regards,
Baha

 

[wigi]

I have a code which opens a CSV file extract data then close without saving.

What is your current code?
Please post it here using

 tags, so that the code appears formatted.

 

[baha17]

Hi Wigi,
Here is my code.
Thanks for help.
Baha

Sub GetTheTableList()
Dim cel As Range
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Update").Range("B8:B39").ClearContents
Workbooks.Open Filename:="J:\PLAZA CONTROL PIT\PitHU\Plaza_ListOfTables.csv", ReadOnly:=True
Windows("Plaza_ListOfTables.csv").Activate
For Each cel In Sheets("Plaza_ListOfTables").Range("A1:C5000")
Windows("Plaza_PitResulT 1.0.4.xls").Activate
If cel.Value = Sheets("Update").Range("D2").Value Then
Columns("B").Find("", Sheets("Update").Range("B7"), xlValues, xlWhole, xlNext).Select
ActiveCell = cel.Offset(0, -2)
End If
Next cel
Windows("Plaza_ListOfTables.csv").Activate
ActiveWorkbook.Close SaveChanges:=False
Windows("Plaza_PitResulT 1.0.4.xls").Activate
Sheets("Update").Range("B40") = "TOTAL"
Sheets("Update").Select
Cells(1, 1).Select
Application.DisplayAlerts = True

End Sub

 

[baha17]

Hi Wigi,

Eventhough I use readonly but still multible users cannot open the file without message prompt.
I tried to stick with share workbook option but opening file takes time.
thanks Baha