软件:Excel
版本:2010
如下是在搜寻网页上分享储存分页的程式码，
存下来的档案，"作者"跟"上次修改者"都会变成最后操作档案的人员
是否有办法让"作者"变成原EXCEL档案的作者，"上次修改者才变成最后操作档案的人员?
或者必须要在使用VBA插入新分页的时候就进行调整?
档案原作者为A，B使用此档案宏新增与储存分页后，
将存下来的档案"作者"显示为A，"上次修改者"显示为B
谢谢
Sub Splitbook()
'Updateby20140612
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
xWs.Copy
Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name &
".xls"
Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub