Как поставить пароль на слайд Power Point

Яндекс диск скачать мой файл - https://disk.yandex.ru/i/6jgmJOwRqJxEtQ код A = Val(TextBox1.Text) If A = 123 Then SlideShowWindows(1).View.Next Else MsgBox "Неправильный пароль" TextBox1.Text = " " End If