Обнаружение внешнего пользователя и запрос пароля перед открытием книги - PullRequest
0 голосов
/ 08 февраля 2020

Я пытаюсь создать короткий код, чтобы он мог обнаружить внешнего пользователя и запросить пароль, но я не знаю, как избежать сохранения сообщений.

Private Sub Workbook_Open()
ThisWorkbook.Windows(1).Visible = False

If Application.UserName = "User1" Or Application.UserName = "User2" Then
    Welc = MsgBox("Welcome " & Application.UserName)
    ThisWorkbook.Windows(1).Visible = True
    Exit Sub
Else
    Pass = "1973"
    Prompt = "Enter the password to continue"
    Title = "Password Input"
    UserPass = InputBox(Prompt, Title)
    If UserPass <> Pass Then
        Prompt = "You have entered an incorrect password"
        Title = "Incorrect Passowd"
        MsgBox Prompt, vbCritical, Title
        ThisWorkbook.Close
        Exit Sub
    Else
    Welc = MsgBox("Welcome " & Application.UserName)
    ThisWorkbook.Windows(1).Visible = True
    End If
End If
End Sub

1 Ответ

0 голосов
/ 08 февраля 2020

Я не знал о Application.DisplayAlerts = False

Private Sub Workbook_Open()
ThisWorkbook.Windows(1).Visible = False
Application.DisplayAlerts = False

If Application.UserName = "User1" Or Application.UserName = "User2" Then
    Welc = MsgBox("Welcome " & Application.UserName)
    ThisWorkbook.Windows(1).Visible = True
    Application.DisplayAlerts = True
    Exit Sub
Else
    Pass = "1973"
    Prompt = "Enter the password to continue"
    Title = "Password Input"
    UserPass = InputBox(Prompt, Title)
    If UserPass <> Pass Then
        Prompt = "You have entered an incorrect password"
        Title = "Incorrect Passowd"
        MsgBox Prompt, vbCritical, Title
        ThisWorkbook.Close
        Exit Sub
    Else
    Welc = MsgBox("Welcome " & Application.UserName)
    ThisWorkbook.Windows(1).Visible = True
    Application.DisplayAlerts = True
    End If
End If
End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...