Put a button from the forms toolbar on the worksheet that has this macro
attached.

Option Explicit
Sub testme()
Dim curWks As Worksheet
Dim newWks As Worksheet

Set curWks = ActiveSheet
Set newWks = Workbooks.Add(1).Worksheets(1)

With curWks
.Range("a1", .Cells.SpecialCells(xlCellTypeLastCell)).Copy
End With

With newWks
With .Range("a1")
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats
End With
With .UsedRange
.Columns.AutoFit
.Rows.AutoFit
End With
End With

newWks.Parent.Activate

Application.Dialogs(xlDialogSaveAs).Show

End Sub

Debbie wrote:

Dave
Thank for your reply. The only problem with this solution is we are dealing
with supervisors on up and need it to be as simple as possible.

"Dave Peterson" wrote:

Start a new workbook (with a single sheet).

Edit|Copy the cells in the protected form
edit|Paste special|values in the new workbook/worksheet

Save that new workbook and email it out.


Debbie wrote:

Is there a way to only save a protected form & not the background data? In
Excel, page 1 is the form w/drop downs, page 2 is the drop downs listed. If
you save the entire document it is 1 gig. We only need to save the 1st page
to forward to numerous people. Tks!

--

Dave Peterson


--

Dave Peterson