VBA Excel为共享工作簿的所有用户显示消息框

Sub ShowMessageBoxToAllUsers()
    Dim ws As Worksheet
    Dim user As Range
    
    ' 循环遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 循环遍历每个工作表中的所有用户
        For Each user In ws.UsedRange
            ' 检查单元格是否包含用户名
            If user.Value <> "" Then
                ' 显示消息框给用户
                MsgBox "Hello, " & user.Value & "! This is a message for all users."
            End If
        Next user
    Next ws
End Sub