Activesheet.Copy
' creates a new workbook with just this activesheet
' this new workbook/worksheet are now active
ActiveSheet.Protect Password:="ABCD"
ActiveWorkbook.SaveAs "C:\My Files\MyWorkbook.xls"
ActiveWorkbook.Close Savechanges:=False
' now the original workbook and worksheet are active
ActiveWorkbook.Close SaveChanges:=False


--
Regards,
Tom Ogilvy

"Jako " wrote in message
...
I have an application which i want to save just a worksheet and not the
entire workbook.

Can someone please suggest the best way to do this.

I would also like it saved with protection so the contents cannot be
changed but can be copied from.

Any advice appreciated.


---
Message posted from http://www.ExcelForum.com/