如何更改Excel文档的编辑人？如何显示具体编辑人信息？
作者：佚名|分类：EXCEL|浏览：65|发布时间：2025-03-16 22:30:50
如何更改Excel文档的编辑人？如何显示具体编辑人信息？
在团队合作中，文档的编辑人信息对于追踪文档的修改历史和责任归属至关重要。在Excel中，更改编辑人信息和显示具体编辑人信息可以通过以下步骤实现：
如何更改Excel文档的编辑人？
更改Excel文档的编辑人信息通常是为了更新文档的作者或修改者信息。以下是在Excel中更改编辑人信息的步骤：
1. 打开Excel文档：
首先，打开你想要更改编辑人信息的Excel文档。
2. 访问文件信息：
在Excel 2013及更高版本中，点击“文件”菜单。
在“信息”选项卡中，找到“属性”按钮，点击它。
3. 编辑作者信息：
在弹出的“文件属性”对话框中，你可以看到“作者”字段。
点击“作者”旁边的下拉箭头，选择一个现有的用户名，或者输入一个新的用户名。
4. 保存更改：
点击“确定”保存更改。
关闭“文件属性”对话框。
5. 保存文档：
最后，保存你的Excel文档以保存所有更改。
请注意，更改作者信息并不会自动更改Excel文档中每个单元格的编辑人信息。它只是更改了文档的作者属性。
如何显示具体编辑人信息？
在Excel中，显示具体编辑人信息通常需要使用宏或VBA代码来实现。以下是一个简单的VBA宏示例，用于在Excel中添加一个列来显示每个单元格的编辑人信息：
1. 打开VBA编辑器：
按下 `Alt + F11` 打开VBA编辑器。
2. 插入新模块：
在VBA编辑器中，右键点击“VBAProject (你的工作簿名称)”。
选择“插入” > “模块”，创建一个新的模块。
3. 编写VBA代码：
在新模块的代码窗口中，复制并粘贴以下代码：
```vba
Sub ShowEditorInfo()
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
Dim editorColumn As Integer
' 设置编辑人信息列的位置
editorColumn = 1
' 遍历工作表中的所有单元格
For Each ws In ThisWorkbook.Worksheets
For Each rng In ws.UsedRange
For Each cell In rng
' 检查单元格是否已包含编辑人信息
If IsEmpty(cell.Offset(0, editorColumn)) Then
' 获取编辑人信息
cell.Offset(0, editorColumn).Value = "编辑人：" & Environ("USERNAME")
End If
Next cell
Next rng
Next ws
End Sub
```
4. 运行宏：
关闭VBA编辑器，回到Excel界面。
按下 `Alt + F8`，选择 `ShowEditorInfo` 宏，然后点击“运行”。
此宏将在每个工作表的第一个列中添加一个“编辑人：”加上当前用户名的信息。
相关问答
1. 为什么更改作者信息后，单元格中的编辑人信息没有改变？
更改作者信息只是更改了文档的属性，而不是单元格的属性。要显示单元格的编辑人信息，你需要使用宏或VBA代码。
2. 我不想使用VBA代码，有没有其他方法显示编辑人信息？
可以使用Excel的“跟踪更改”功能来跟踪文档的编辑历史，但这不会直接显示每个单元格的编辑人信息。
3. VBA宏中的 `Environ("USERNAME")` 是什么意思？
`Environ("USERNAME")` 是一个VBA函数，用于获取当前登录Windows操作系统的用户名。
4. 我可以在多个工作簿中使用相同的VBA宏吗？
是的，你可以将VBA宏保存为工作簿的一部分，然后在其他工作簿中打开并运行它。
通过以上步骤，你可以有效地更改Excel文档的编辑人信息，并在文档中显示具体的编辑人信息。