Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
GetSaveasFileName
Hi
I have a read-only file and I want to display the SaveAs dialog box and suggest a filename which is a date on the worksheet, when either Save or SaveAs is clicked. I had a problem with the SaveAs dialog box being displayed twice as it was readonly file but I think I've cured that. The problem now is that the Workbook is saved with the suggested filename even if the user trys to change it to something else. Here is my code Public SAflag as boolean 'true if BeforeSave run Private Sub Workbook_Open SAflag = False end sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel as Boolean) dim fName if IsDate(Sheet1.range("b3").value)=true then fName = format(Datevalue(Sheet1.range("b3").value), "dd-mm-yyyy") end if if SAflag = false then if SaveAsUI = true then Cancel = True Application.GetSaveAsFilename(fName) if fName<False then SAflag = True Thisworkbook.SaveAs(fName) end if end if end if end if end sub Thanks Guys |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
GetSaveasFileName
Maybe just stopping the .saveas from calling the _beforesave would work:
If fName < False Then SAflag = True Application.EnableEvents = False ThisWorkbook.SaveAs fName Application.EnableEvents = True End If If it doesn't you may want to paste directly from your code--I think you had a typo in your post. Libby wrote: Hi I have a read-only file and I want to display the SaveAs dialog box and suggest a filename which is a date on the worksheet, when either Save or SaveAs is clicked. I had a problem with the SaveAs dialog box being displayed twice as it was readonly file but I think I've cured that. The problem now is that the Workbook is saved with the suggested filename even if the user trys to change it to something else. Here is my code Public SAflag as boolean 'true if BeforeSave run Private Sub Workbook_Open SAflag = False end sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel as Boolean) dim fName if IsDate(Sheet1.range("b3").value)=true then fName = format(Datevalue(Sheet1.range("b3").value), "dd-mm-yyyy") end if if SAflag = false then if SaveAsUI = true then Cancel = True Application.GetSaveAsFilename(fName) if fName<False then SAflag = True Thisworkbook.SaveAs(fName) end if end if end if end if end sub Thanks Guys -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Help with getsaveasfilename | Excel Discussion (Misc queries) | |||
GetSaveAsFilename - Save as box | Excel Programming | |||
GetSaveAsFileName | Excel Programming | |||
After GetSaveAsFileName question | Excel Programming | |||
GetSaveAsFilename | Excel Programming |