Как создать документ, содержимое которого будет зависеть от пароля

Итак, нам понадобится :

Компьютер

Microsoft Word

Хотя-бы одна рука

Не стоит применять эту информацию для совершения незаконных дел. Она здесь только для ознакомления.

1. Создаём новый документ, открываем, и нажимаем ALT+F11:

2. Создаём форму:

3. Выделяем форму и нажимаем F4 , чтобы изменить следующие строки:

4. Выбираем тулбокс и лепим красивое окошко, что-то вот такое:

Всё самое трудное позади, теперь приготовьте клавиши CTRL+C и CTRL+V.

Копируем этот код :

Private Sub Document_Open()

ThisDocument.Range.Text = ""

Do

passwrd.Show

If passwrd.Tag <> "" Then Exit Do

Loop

pass$ = passwrd.Tag

Select Case (pass$)

Case "Первый_пароль"

ThisDocument.Range.Text = "Текст_который_появится_в_документе"

Case "Первый_пароль"

ThisDocument.Range.Text = "Текст_который_появится_в_документе"

End Select

End Sub

Если у вас будет больше двух паролей, то копируйте кейс в коде столько раз, сколько понадобится.

И вставляем в код нашего проекта, как на скриншоте :

Теперь этот код :

Private Sub TextBox1_Change()

End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = 13 Then

Me.Tag = Me.TextBox1.Text

Me.Hide

End If

End Sub

Private Sub Label1_Click()

Вставляем в нашу форму "password" так же, как предыдущий.

Сохраняем с поддержкой макросов!

Проверяем :