軟體: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

可用BuiltinDocumentProperties("Author")取得或修改作者Application.ActiveWorkbook.[...]=ThisWorkbook.[...]把這句放在SaveAs前面，[...]就是1F的那串，這樣試試

取得上可以thisworkbook.author修改以activeworkbook.author = thisworkbook.author

感謝樓上兩位大神協助，謝謝