Ich gehe mal davon aus, dass der User du selbst bist. ;o)

Option Explicit

Sub Test()
  
  Dim vntFilename As Variant
  
  Call ChDrive(Environ$("SystemDrive"))
  Call ChDir(Environ$("UserProfile") & "\Documents")
  
  vntFilename = Application.GetOpenFilename("Excel Arbeitsmappe (*.xlsx),*.xlsx")
  If VarType(vntFilename) <> vbString Then Exit Sub
  
  '... z.B.
  'Set wkb = Workbooks.Open(vntFilename, ReadOnly:=True)
  '...
  
End Sub

Grüße