Workbooks.Open using Dialog box

  • Thread starter Thread starter Sam
  • Start date Start date
S

Sam

Is there a way to open a file as ReadOnly using
Application.Dialog(xlDialogOpen).Show?

I want to write re-usable code to allow another end-user to open an Excel
workbook as ReadOnly without first requiring someone else on the network
first having it open.

I would use Workbooks.Open myPath & myFile & "xls" but I don't know what
file the end user will want to open.

Any help will be appreciated.

Thanks,

Sam
 
Try GetOpenFilename

Sub test()
Dim FName As Variant
Dim wb As Workbook
Dim MyPath As String
Dim SaveDriveDir As String

SaveDriveDir = CurDir

MyPath = ThisWorkbook.Path
ChDrive MyPath
ChDir MyPath

FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xls), *.xls")
If FName <> False Then
Set wb = Workbooks.Open(FName, ReadOnly:=True)
End If

ChDrive SaveDriveDir
ChDir SaveDriveDir

End Sub
 
Back
Top