excel文件怎么记录打开过的所有用户

Excel文件记录打开过的所有用户的方法：使用宏、启用工作簿事件

一种有效的方法是使用VBA（Visual Basic for Applications）宏来记录每次打开Excel文件的用户信息。这种方法可以自动记录用户的用户名和打开文件的时间。接下来，我们将详细描述如何实现这一目标。

一、创建记录用户信息的工作表

首先，我们需要在Excel文件中创建一个用于记录用户信息的工作表。

打开你的Excel文件。
新建一个工作表，并将其命名为“用户记录”。
在“用户记录”工作表中创建两列，分别命名为“用户名”和“打开时间”。

二、编写VBA代码

接下来，我们需要编写VBA代码，以便每次打开文件时记录用户信息。

按下Alt + F11，打开VBA编辑器。
在VBA编辑器中，找到你的工作簿，并在左侧的“项目资源管理器”中选择“Microsoft Excel 对象”下的“ThisWorkbook”。
双击“ThisWorkbook”，在右侧的代码窗口中输入以下代码：

Private Sub Workbook_Open()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("用户记录")
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1
    ws.Cells(lastRow, 1).Value = Environ("Username")
    ws.Cells(lastRow, 2).Value = Now
End Sub

解释：

Workbook_Open：这是一个事件处理程序，当工作簿打开时会自动运行。
Environ("Username")：获取当前用户的Windows用户名。
Now：获取当前的日期和时间。

三、保护用户记录工作表

为了防止用户修改或删除记录，我们可以保护“用户记录”工作表。

右键单击“用户记录”工作表标签，选择“保护工作表”。
在弹出的对话框中，输入密码并勾选你希望允许的操作，然后点击“确定”。

四、测试宏

关闭并重新打开Excel文件，检查“用户记录”工作表，确认每次打开文件时都会自动记录用户信息。

五、增强功能

为了增强功能和用户体验，可以考虑以下建议：

1. 添加额外信息

除了用户名和打开时间，还可以记录其他信息，如计算机名、IP地址等。

Private Sub Workbook_Open()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("用户记录")
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1
    ws.Cells(lastRow, 1).Value = Environ("Username")
    ws.Cells(lastRow, 2).Value = Now
    ws.Cells(lastRow, 3).Value = Environ("Computername")
    ' For IP address, additional code is needed to fetch it
End Sub

2. 隐藏用户记录工作表

为了不让普通用户看到记录，可以将“用户记录”工作表隐藏。

右键单击“用户记录”工作表标签，选择“隐藏”。
只有在VBA编辑器中才能取消隐藏。

3. 发送日志邮件

在某些情况下，可能需要将日志发送到管理员的邮箱。

Private Sub Workbook_Open()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("用户记录")
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1
    ws.Cells(lastRow, 1).Value = Environ("Username")
    ws.Cells(lastRow, 2).Value = Now
    ' Send email with the log
    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    On Error Resume Next
    With OutMail
        .To = "admin@example.com"
        .Subject = "Excel Log"
        .Body = "User " & Environ("Username") & " opened the file at " & Now
        .Send
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

注意： 以上代码假设你使用的是Outlook。如果使用其他邮件客户端，需要修改相应的代码。

六、总结

通过上述步骤，我们可以创建一个Excel文件，每次打开时自动记录用户信息。这种方法不仅提高了文件的安全性和可追溯性，还可以帮助管理员监控文件的使用情况。使用VBA宏记录用户信息是一种高效且灵活的解决方案，能够满足大多数使用场景的需求。