Fichier lecture seule apres l'ouverture complète

[Gysmo]

Voici mon problème j'ai un fichier et quand je l'ouvre il copie une feuille d'un classeur fermé vers lui, ensuite je voudrais que ce classeur soit mit en lecture seule...plusieurs utilisateurs ouvrent ce classeur en même temps alors je ne voudrais pas que la notification lecture seule ou verrouillé par un utilisateur s'affiche....

Voici mon code pour l'ouverture :

Private Sub Workbook_Open()

'***************CE BOUT DE CODE FONCTIONNE.....VOIR A LA FIN DE LA MACRO POUR MON PROBLÈME*******

Sheets("Feuil2").Activate
Range("a1:iv65000").Select
Selection.ClearContents
With ActiveSheet.QueryTables.Add(Connection:=Array( _
"OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=R:\Archives\archives_ADMIN.xlsm;Mode=Share Deny Write;Ex" _
, _
"tended Properties=""HDR=yes;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB😀atabase Password="""";Jet OLEDB:En" _
, _
"gine Type=35;Jet OLEDB😀atabase Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLED" _
, _
"B:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB😀on't Copy Locale o" _
, _
"n Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False" _
), Destination:=Range("A1:m50000"))
.CommandType = xlCmdTable
.CommandText = Array("Feuil2$")
'.Name = "alexe_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceDataFile = "R:\Archives\archives_ADMIN.xlsm"
.Refresh BackgroundQuery:=False
Application.DisplayAlerts = False
Cells(1, 1).Select
End With


'************ CE BOUT DE CODE NE FONCTIONNE PAS ***************************

Application.Workbooks.Open Filename:=R:\Archives\archives_ULISITATEUR.xlsm, ReadOnly:=True
Application.DisplayAlerts = False

end sub