Окно с кодом для закрытия⁠⁠

Привет, я тебя научу так с помощью блокнота

это делается вот так:

Do

st=InputBox("текст")

Loop Until st="пароль"

а потом просто сохраняете в формате на кодировку анси сохраняете и готово