Changing open mode in Access - vba

Question

Is it possible to make a VBA code that changes the Acces opening mode from exclusive mode to shared mode? I have a code that detects if the Acces was opened in exclusive mode and gives you an error message if it was. Is it possible to make a VBA code that automatically changes the opening mode from exclusive to shared? This is the code I'm using to determine if the user opened the database in exclusive mode or not. I want to put the opening mode change part in the case 70 part, this is the return if the data base was opened in exclusive mode.
Public Function IsCurDBExclusive() As Integer
'Célja: Eldönti, hogy az adatbázis kizárólagos módban van-e megnyitva.
'Visszatérés: 0, ha az adatbázis nem kizárólagos módban van megnyitva.
' -1, ha az adatbázis nem kizárólagos módban van megnyitva.
' Err ha valamilyen probléma lpett fel.
Dim db As DAO.Database
Dim hFile As Integer
hFile = FreeFile
'Dim lngRed As Long, lngOrange As Long
'lngRed = RGB(255, 0, 0)
'lngOrange = RGB(197, 90, 17)
Set db = CurrentDb
If Dir$(db.Name) <> "" Then
On Error Resume Next
Open db.Name For Binary Access Read Write Shared As hFile
'------------------------------------------------------------------------------------------------------------------------------------------------------
Select Case Err
Case 0 'Az az eset amikor megosztott módban van megynitva az adatbázis.
IsCurDBExclusive = False
' MsgBox "Nem kizárólagos!"
Case 70 'Az az eset amikor kizárólagos módban van megynitva az adatbázis.
IsCurDBExclusive = True
MsgBox "Kizárólagos módban nyitotta meg az adatbázist! Használja megosztott módban vagy kérjen segítséget az átállításához!", 0, "Figyelem" 'Ha kizárólagos módban van megnyitva ezt fogja kiírni.
If ActiveWorkbook.ExclusiveAccess Then
ActiveWorkbook.MultiUserEditing
End If
'Form!MENU.BackColor = lngRed
Case Else
IsCurDBExclusive = Err
End Select
'------------------------------------------------------------------------------------------------------------------------------------------------------
Close hFile
On Error GoTo 0
Else
MsgBox "Couldn't find " & db.Name & "."
End If