Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Excel-save protected worksheet for distribution

Status
Not open for further replies.

TheOfficeSlave

IS-IT--Management
Jan 18, 2005
22
US
I have a template that we fill out on one tab and it will do all the calculations and format our template sheet the way we need it to look like on another tab. well...right now we just print the tab, then scan it, email to ourselves & file, then send it.

i want to know how to save the worksheet(viewed tab only) and not the whole workbook, so that we can email it within excel and not using .pdf file format.

Any help?

Thanks,

TheOfficeSlave :)
 
With your original spreadsheet open, click on the icon to create a new spreadsheet. Usually this would be named Book2, book3 etc. Click "Window" from the menu and select your original spreadsheet from the bottom choices.

Right click on the worksheet you want to copy to Book2.

Select "Move or Copy" Under the menu option: "To Book:" click the down arrow and select Book2. Make sure to check the "Create a Copy" check box at the bottom.

Your original worksheet has now been copied exactly as it was formatted in the original.

The only problem is when a cell has more than 255 characters. When this happens, just copy the cell's contents from the original to the new spreadsheet.

Regards;
TommyP



 
Is there any way to avoid having to copy and paste into a new workbook?

Can i not just select the current tab(worksheet), then "Save As"? This way i can only save the sheet and not the whole book, so that i can just email that one sheet without the other tabs, which has the formulas on it?
 
Hi there,

Do you know anything about VBA or macros? The following code will ask you where you want to save the the active sheet only:

Code:
Sub SaveMe()
    Dim SaveName As Variant
    SaveName = Application.GetSaveAsFilename
    If SaveName <> False Then ActiveSheet.SaveAs Filename:=SaveName
End Sub

You could add a button, menu item or shortcut key to fire it. If you need help doing any of this, let me know. :)

Ken Puls, CMA
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top