复制的工作表与2013年办公室中的宏观参考问题

Question

有一个文件中包含很少的宏。 人A 使用宏，它会复制一张（带有其中的按钮并附加另一个宏）并通过Outlook将其作为附件发送给人B 。
当人B试图从收到的文件中运行宏时，它表示宏丢失了（人的B文件中的宏引用了人A的文件）。

当用户切换到Office 2013时问题就开始了。它曾经在2010年运作良好。

来自Person A的宏基本上只做这个：

ws1.Visible = True 
ws1.Copy
Set ws = ActiveSheet

ws.Range("F8:F45").Locked = False
ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

TempFilePath = Environ$("temp") & "\"
TempFileName = "file_name" & Format(Now, "yyyy-mm-dd") & ".xlsm"

ActiveWorkbook.SaveAs TempFilePath & TempFileName, _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.Close

以及后来：

   .Attachments.Add TempFilePath & TempFileName

提前感谢您对此事的任何意见。