Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
ActiveSheet.Copy
This is the code I'm having problems with:
ActiveSheet.Copy ActiveSheet.Unprotect Columns("B:L").Select Selection.EntireColumn.Hidden = False Selection.Delete Shift:=xlToLeft ActiveWorkbook.SaveAs "TSC-GPS " & ThisWorkbook.Name ActiveWorkbook.SendMail Recipients:=Email(m), Subject:=ActiveWorkbook.Name, ReturnReceipt:=True ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ActiveWorkbook.Close False The problem I'm having is that Unprotect seems to act on the old sheet, not the new one that ActiveSheet.Copy creates. When this code runs I get a run time error at the forth line. I can't remember the exact error message, but it's obviously related to the sheet it's working on still being protected. I've run the code with a break point on the first line (this is actually a small part of a whole sub), and examined its effects. The original sheet is definitely unprotected, while the new sheet is not. Suggestions are welcome. Oh...what I'm trying to do is delete some columns that the recipients just don't need, and if they got that info, it would only confuse them. Thanks. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
ActiveSheet.Copy
After you copy the active sheet you will have created a new work book
containing the copied sheet. The ActiveSheet is still the original worksheet. I suggest that you create a new workbook.worksheet object that refers to the new workbook, and use that as a reference to in your code where necessary, rather than ActiveSheet --- Message posted from http://www.ExcelForum.com/ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
name of the activesheet | Excel Programming | |||
How to copy text from a TextBox in a ActiveSheet to a variable | Excel Programming | |||
How to copy text from a TextBox in a ActiveSheet to a variable | Excel Programming | |||
ActiveSheet.Name? | Excel Programming | |||
ActiveSheet | Excel Programming |