Save as button

[RAF1112]

Hello,

I have disabled all toolbars in a worksheet and want to add a button that when clicked will open the Save As dialogue box. I want to pre-populate the save as filename based on a certain cell value but also let the user change the name if he/she desires. Is this possible?

Thanks much!

 

[neonangel]

From the VBA help file (note the 'InitialFilename' parameter):

---------------------------------------------------------------------------

GetSaveAsFilename Method
See Also Applies To Example Specifics
Displays the standard Save As dialog box and gets a file name from the user without actually saving any files.

expression.GetSaveAsFilename(InitialFilename, FileFilter, FilterIndex, Title, ButtonText)

expression Required. An expression that returns an Application object.

InitialFilename Optional Variant. Specifies the suggested file name. If this argument is omitted, Microsoft Excel uses the active workbook's name.

FileFilter Optional Variant. A string specifying file filtering criteria.

This string consists of pairs of file filter strings followed by the MS-DOS wildcard file filter specification, with each part and each pair separated by commas. Each separate pair is listed in the Files of type drop-down list box. For example, the following string specifies two file filters, text and addin: "Text Files (*.txt), *.txt, Add-In Files (*.xla), *.xla".

To use multiple MS-DOS wildcard expressions for a single file filter type, separate the wildcard expressions with semicolons; for example, "Visual Basic Files (*.bas; *.txt),*.bas;*.txt".

If omitted, this argument defaults to "All Files (*.*),*.*".

FilterIndex Optional Variant. Specifies the index number of the default file filtering criteria, from 1 to the number of filters specified in FileFilter. If this argument is omitted or greater than the number of filters present, the first file filter is used.

Title Optional Variant. Specifies the title of the dialog box. If this argument is omitted, the default title is used.

ButtonText Optional Variant. Macintosh only.

Remarks
This method returns the selected file name or the name entered by the user. The returned name may include a path specification. Returns False if the user cancels the dialog box.

This method may change the current drive or folder.

Example
This example displays the Save As dialog box, with the file filter set to text files. If the user chooses a file name, the example displays that file name in a message box.

fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Text Files (*.txt), *.txt")
If fileSaveName <> False Then
MsgBox "Save as " & fileSaveName
End If

-------------------------------------------------------------------------

See the example at the bottom and combine with the Saveas method:

expression.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)

etc

Regards,

Alex

 

[RAF1112]

Thanks for that help. I have the basic code working. Is there anyway to disallow the file being saved as the current file name?

 

[RAF1112]

Thanks for that help. I have the basic code working. Is there anyway to disallow the file being saved as the current file name?

 

[neonangel]

how about using something like

do

fileSaveName = Application.GetSaveAsFilename( <your specifics here>

loop while fileSaveName = <whatever you don't want them to make it - didn't you just set this a minute ago and hence isn't it a variable/constant/etc>

?

 

[Tom Urtis]

I answered a question yesterday that was almost identical to this one. This might help you:

http://www.mrexcel.com/board2/viewtopic.php?t=129908&highlight=

 

[RAF1112]

That will do it! Yes, I did point the file name to the text in a cell but I will have some novice excel users working in this sheet and don't want them to (for whatever reason) type in the old name.

Thanks again for the help!