VBA Microsoft Word Составить программу, которая запрашивает пароль (например,...

Question

VBA Microsoft Word

Составить программу, которая запрашивает пароль (например, четырехзначное число) до тех пор, пока он не будет правильно введен.

Answer 1

Sub parol()
Dim s As String
While s <> "1234"
  s = InputBox("Введи пароль:")
Wend
End Sub

В кавычках вместо 1234 можно задать любой пароль