Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
SaveAs Dialog comes up twice???
I am trying to force the user to always save the workbook as a newly named
file into a specific folder. My problem is that the Save As dialog comes up twice???? Here's my code: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'Check for Save versus SaveAs If SaveAsUI Then SaveAsFile CreateShortCut End If End Sub Sub SaveAsFile() Dim strDocName As String Const FilePath As String = "H:\ProdDev\Client\" ChDrive FilePath ChDir FilePath strDocName = Application.GetSaveAsFilename If strDocName < "False" Then ActiveWorkbook.SaveAs Filename:=strDocName End If End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
SaveAs Dialog comes up twice???
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Check for Save versus SaveAs If SaveAsUI Then SaveAsFile CreateShortCut Cancel = True End If End Sub -- Regards, Tom Ogilvy "chemicals" wrote: I am trying to force the user to always save the workbook as a newly named file into a specific folder. My problem is that the Save As dialog comes up twice???? Here's my code: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'Check for Save versus SaveAs If SaveAsUI Then SaveAsFile CreateShortCut End If End Sub Sub SaveAsFile() Dim strDocName As String Const FilePath As String = "H:\ProdDev\Client\" ChDrive FilePath ChDir FilePath strDocName = Application.GetSaveAsFilename If strDocName < "False" Then ActiveWorkbook.SaveAs Filename:=strDocName End If End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
SaveAs Dialog comes up twice???
MUCH OBLIGED Tom!
"Tom Ogilvy" wrote: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'Check for Save versus SaveAs If SaveAsUI Then SaveAsFile CreateShortCut Cancel = True End If End Sub -- Regards, Tom Ogilvy "chemicals" wrote: I am trying to force the user to always save the workbook as a newly named file into a specific folder. My problem is that the Save As dialog comes up twice???? Here's my code: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'Check for Save versus SaveAs If SaveAsUI Then SaveAsFile CreateShortCut End If End Sub Sub SaveAsFile() Dim strDocName As String Const FilePath As String = "H:\ProdDev\Client\" ChDrive FilePath ChDir FilePath strDocName = Application.GetSaveAsFilename If strDocName < "False" Then ActiveWorkbook.SaveAs Filename:=strDocName End If End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
SaveAs Dialog comes up twice???
I think you need to change this line from < to =
If strDocName = "False" Then "chemicals" wrote: I am trying to force the user to always save the workbook as a newly named file into a specific folder. My problem is that the Save As dialog comes up twice???? Here's my code: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'Check for Save versus SaveAs If SaveAsUI Then SaveAsFile CreateShortCut End If End Sub Sub SaveAsFile() Dim strDocName As String Const FilePath As String = "H:\ProdDev\Client\" ChDrive FilePath ChDir FilePath strDocName = Application.GetSaveAsFilename If strDocName < "False" Then ActiveWorkbook.SaveAs Filename:=strDocName End If End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
SaveAs Dialog Box | Excel Programming | |||
SaveAs dialog | Excel Discussion (Misc queries) | |||
prevent saveAs dialog | Excel Programming | |||
SaveAs Dialog box | Excel Programming | |||
Saveas Dialog Box | Excel Programming |