小编Sye*_*ury的帖子

我正在使用MS Excel 2010我的公司为MS Excel 2010使用了一套标准配色方案/主题.我给它起了一个名字(companycolor).我有一个模板包含该颜色方案和一个宏来执行任务.当我按下宏按钮时,它会生成活动表的副本,保护它并通过电子邮件发送给预期的收件人.问题是,当宏将活动表复制到新工作簿时,它不会复制模板具有的配色方案/主题,我我的公司配色方案(companycolor)意味着所有单元格的颜色,图表和形状的颜色会受到干扰,并根据Excel默认颜色方案进行更改,这似乎很奇怪.您是否有任何方法可以解决这个问题或在这方面的任何建议

这是Snap Shot的链接!,帮助您更好地理解我的问题 *>>这是vba代码,它将活动工作簿的活动工作表副本复制到新工作簿中,保护它并通过电子邮件发送给它.***

Private Sub CommandButton2_Click()

Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim Destwb As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim OutApp As Object
Dim OutMail As Object

If (Range("AQ5") <> "") Or (Range("AQ6") <> "") Then
Range("A5").Select

With Application
 .ScreenUpdating = False
 .EnableEvents = False
End With

Set Sourcewb = ActiveWorkbook
Application.ScreenUpdating = False

ActiveSheet.Copy

Range("A14").ClearContents
ActiveSheet.Protect Password:="1234567890" …