Excel表格作者名怎么删除？如何彻底清除？

Excel表格作者名如何删除及彻底清除方法详解

导语：

在Excel表格中，有时我们可能需要删除或清除作者名信息，以保护隐私或满足特定需求。本文将详细介绍如何在Excel中删除作者名，以及如何彻底清除这些信息，确保表格的纯净和安全。

一、Excel表格作者名删除方法

1. 使用“文件”选项卡

（1）打开Excel表格，点击“文件”选项卡。

（2）在弹出的菜单中，选择“信息”。

（3）在右侧的“属性”区域，找到“作者”字段。

（4）点击“编辑作者”按钮，取消勾选“显示我的名字”。

（5）点击“确定”保存更改。

2. 使用VBA代码删除

（1）按下“Alt + F11”键，打开VBA编辑器。

（2）在“插入”菜单中选择“模块”，创建一个新的模块。

（3）在模块代码窗口中，输入以下代码：

```vba

Sub DeleteAuthorName()

Dim ws As Worksheet

Dim authorName As String

authorName = ThisWorkbook.BuiltinDocumentProperties("Author")

For Each ws In ThisWorkbook.Worksheets

ws.BuiltinDocumentProperties("Author") = ""

Next ws

MsgBox "作者名已删除"

End Sub

```

（4）关闭VBA编辑器，回到Excel界面。

（5）按下“Alt + F8”键，选择“DeleteAuthorName”宏，点击“运行”。

二、如何彻底清除Excel表格作者名

1. 清除BuiltinDocumentProperties

（1）打开Excel表格，按下“Alt + F11”键，打开VBA编辑器。

（2）在“插入”菜单中选择“模块”，创建一个新的模块。

（3）在模块代码窗口中，输入以下代码：

```vba

Sub ClearBuiltinDocumentProperties()

Dim ws As Worksheet

Dim docProp As DocumentProperty

For Each ws In ThisWorkbook.Worksheets

For Each docProp In ws.BuiltinDocumentProperties

If docProp.Name = "Author" Then

docProp.Value = ""

End If

Next docProp

Next ws

MsgBox "BuiltinDocumentProperties已清除"

End Sub

```

（4）关闭VBA编辑器，回到Excel界面。

（5）按下“Alt + F8”键，选择“ClearBuiltinDocumentProperties”宏，点击“运行”。

2. 清除CustomDocumentProperties

（1）打开Excel表格，按下“Alt + F11”键，打开VBA编辑器。

（2）在“插入”菜单中选择“模块”，创建一个新的模块。

（3）在模块代码窗口中，输入以下代码：

```vba

Sub ClearCustomDocumentProperties()

Dim ws As Worksheet

Dim docProp As DocumentProperty

For Each ws In ThisWorkbook.Worksheets

For Each docProp In ws.CustomDocumentProperties

If docProp.Name = "Author" Then

docProp.Value = ""

End If

Next docProp

Next ws

MsgBox "CustomDocumentProperties已清除"

End Sub

```

（4）关闭VBA编辑器，回到Excel界面。

（5）按下“Alt + F8”键，选择“ClearCustomDocumentProperties”宏，点击“运行”。

三、相关问答

1. 问题：删除作者名后，是否还会在保存文件时被重新添加？

回答：不会。在删除作者名后，如果关闭并重新打开Excel表格，作者名信息将不再显示。但是，如果其他用户在编辑文件时添加了作者名，那么在保存文件时，作者名可能会被重新添加。

2. 问题：如何批量删除多个Excel表格中的作者名？

回答：可以使用VBA代码批量删除多个Excel表格中的作者名。将以下代码保存为宏，然后在需要删除作者名的Excel表格中运行：

```vba

Sub DeleteAuthorNameInMultipleWorksheets()

Dim wb As Workbook

Dim ws As Worksheet

Application.ScreenUpdating = False

For Each wb In Application.Workbooks

For Each ws In wb.Worksheets

ws.BuiltinDocumentProperties("Author") = ""

Next ws

Next wb

Application.ScreenUpdating = True

MsgBox "所有Excel表格中的作者名已删除"

End Sub

```

运行此宏后，所有打开的Excel表格中的作者名将被删除。

总结：

通过以上方法，我们可以轻松地在Excel表格中删除作者名，并确保这些信息被彻底清除。在实际操作中，根据需要选择合适的方法，以确保表格的纯净和安全。