Здраствуйте, помогите разобраться. В коде выдаёт ошибку: Run-time error 13.
Код |
---|
Private Sub CommandButton1_Click() Dim Pass As String Pass = InputBox(Prompt:="Введите пароль:", Title:="Проверка на благонадежность") If Pass = "" Then MsgBox "Вы не ввели пароль", 48, "Попробуйте ещё раз!": Exit Sub If Pass = "123" Then Sheets(Me.ListBox1.Value).Unprotect Password:="123" Sheets(Me.ListBox1.Value).Visible = -1 Sheets(Me.ListBox1.Value).Activate Unload Me Else MsgBox "Ваш пароль не подходит, попробуйте ещё раз!", 48, "Ошибка" Exit Sub End If End Sub Private Sub UserForm_Initialize() Dim i As Long For i = 1 To Sheets.Count - 1 With Me.ListBox1 .AddItem Sheets(i).Name End With Next End Sub |