Я пытаюсь создать короткий код, чтобы он мог обнаружить внешнего пользователя и запросить пароль, но я не знаю, как избежать сохранения сообщений.
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