Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Workbooks.Open using Dialog box
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Workbooks.Open using Dialog box
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 -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Sam" wrote in message ... 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Open Dialog Box to return Selected File Path and Not Open it. | Excel Programming | |||
Opening/Closing workbooks without dialog boxes | Excel Programming | |||
control of dialog macro dialog box. on open | Excel Programming | |||
Excel 2003 Workbooks.Open with CorruptLoad=xlRepairFile fails on Excel 5.0/95 file due to Chart, with Error 1004 Method 'Open' of object 'Workbooks' failed | Excel Programming | |||
Dialog Box List of Current Open Workbooks | Excel Programming |