Название окна

[Observer88]

Доброго времени суток, подскажите, Мне нужно: чтобы excel книга сама себя запаролила 1 мая.: Я прописал в корне:

Private Sub Workbook_Open()

If Month(Now) < 4 Then
ActiveWorkbook.Password = ""
ElseIf Month(Now) > 4 Then
ActiveWorkbook.Password = "123"

End If
End Sub

При проверке все заработало. Теперь нужно чтобы окно для ввода пароля было невидимо. Я понимаю, что чему-то нужно прописать .Visible = False, но не знаю как называется это окно (чему это приписать)?

[EducatedFool]

Какое ещё окно ввода пароля?
Зачем его делать невидимым?

напишите так:

Private Sub Workbook_Open()
    If Now >= #1/5/2013# Then    ' проверяем дату
        ThisWorkbook.Password = "123"    ' ставим пароль
        ThisWorkbook.Save    ' сразу сохраняем файл
    End If
End Sub

[Observer88]

Мне обязательно нужно сделать невидимым само окно ввода пароля, При входе в книгу уже запороленную. Чтобы для некоторых глаз - файл смотрелся как испорченым, а не запороленым

[EducatedFool]

Не получится так сделать.
Не хотите, чтобы окно появлялось, — не ставьте пароль.
Или ставьте пароль не на открытие файла, а на изменение (защита листа или книги)
Но — при попытке внести изменения, всё равно будет выведено сообщение об установленной защите.

Есть много других способов ограничения времени работы файла - надо только включить фантазию, а потом попытаться реализовать задуманное.