Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
SaveAs doesn't work
Excel Guru, please help!
I try to create a code when user save the workbook, the file name will be taken from cell C10 & C7. It works fine with save button, but if I select File-Save as, the code will run twice, if I disable the enableevents it will disactivate another code in other sheets. Thanks Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) filesavename = Application.GetSaveAsFilename(Sheet1.Range("C10") & Sheet1.Range("C7"), fileFilter:="Microsoft Excel Workbook (*.xls), *.xls") If filesavename < False Then Else Cancel = True End If end sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
SaveAs doesn't work
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean) filesavename = Application.GetSaveAsFilename( _ Sheet1.Range("C10") & Sheet1.Range("C7"), _ fileFilter:="Microsoft Excel Workbook (*.xls),*.xls") If filesavename < False Then Application.EnableEvents = False if lcase(thisworkbook.fullname) = lcase(filesavename) then thisworkbook.Save else on Error resume Next kill filesavename on Error goto 0 thisworkbook.SaveAs filesavename end if End If Application.EnableEvents = True Cancel = True end sub -- Regards, Tom Ogilvy "broogle" wrote in message ups.com... Excel Guru, please help! I try to create a code when user save the workbook, the file name will be taken from cell C10 & C7. It works fine with save button, but if I select File-Save as, the code will run twice, if I disable the enableevents it will disactivate another code in other sheets. Thanks Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) filesavename = Application.GetSaveAsFilename(Sheet1.Range("C10") & Sheet1.Range("C7"), fileFilter:="Microsoft Excel Workbook (*.xls), *.xls") If filesavename < False Then Else Cancel = True End If end sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
More help with SaveAs | Excel Programming | |||
Help with SaveAs | Excel Programming | |||
Help with saveas | Excel Programming | |||
Help with SaveAs | Excel Programming | |||
SaveAs didn't work in VB protected mode | Excel Programming |