Показать пользовательскую форму на листе выберите

Question

У меня есть три рабочих листа в рабочей тетради. Я хочу показать конкретную форму пользователя, когда пользователь выбирает одну из таблиц. Как я могу добиться этого в VBA?

Answer 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() вы можете выбрать форму пользователя для отображения пользователю.