Как задать пароль в переменную при запуске?

[Snekich]

В файле в некоторых макросах используется пароль.
Что бы не задавать его в каждом макросе решил сделать так:
В "ЭтаКнига" прописал:

Public Pass
Private Sub Workbook_Open() ' этот код сработает при запуске книги
Dim Pass
Pass = "1" 'задаем пароль на все про все
End Sub

Но потом в модулях Pass равен пустоте.
Если сделать в модуле макрос для проверки, например,

Sub Проверка_пароля()
Sheets("Лист1").Range("A1").Value = Pass
End Sub

И в итоге ячейка пустая.

Что я не так делаю?

[EducatedFool]

Public Pass надо писать в СТАНДАРТНОМ модуле (а не в модуле книги или листа)

И никаких Dim Pass внутри макросов, иначе работать не будет.

[Snekich]

Сообщение от EducatedFool

Public Pass надо писать в СТАНДАРТНОМ модуле (а не в модуле книги или листа)

И никаких Dim Pass внутри макросов, иначе работать не будет.

Спасибо!

Только заработало везде кроме макросов установки/снятия защиты с листа.
На да ладно, переживу))