☰

在工作表选择上显示用户窗体

tag-icon • tag-icon microsoft-excel vba
在工作表选择上显示用户窗体

我的工作簿中有三张工作表。我想在用户选择其中一张工作表时显示特定的用户表单。如何在 VBA 中实现此目的？

答案1

有几种方法可以检索当前用户名。如果您想检索操作系统用户，那么这是最好的解决方案：

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, lpnSize As Long) As Long

Public Function GetOSUser() As String
    Dim lpBuffer As String * 25

    GetUserName lpBuffer, 25
    GetOSUser = Left(lpBuffer, InStr(lpBuffer, vbNullChar) - 1)
End Function

根据返回值，GetOSUser()您可以选择要显示给用户的用户表单。

相关内容