защита листа и снятие защиты в зависимости от логина

[Dorvir]

Привет всем!

Такой вопрос:

Чтобы при закрытии файла автоматически ставилась защита на лист я поставила на событие Workbook_BeforeClose
Application.ThisWorkbook.Worksheets ("Лист1").Protect ("111"),

но при открытии файла (Workbook_Open) захотелось чтобы при моем логине защита снималась... ну и написала (тут кусочек из кода):

User = Environ("USERNAME")
Select Case User
Case "Мой логин"
Application.ThisWorkbook.Worksheets ("Лист1").Unprotect ("111")
End Select

почему-то не работает...
защиту на лист при закрытии файла ставит... (там правда от логина не зависит), а на мой логин не снимает... почему?

c If не могу писать, поскольку для каждого логина прописываю различные правила: скрываю листы, формулы, защищаю литы и т.д.

[SAS888]

Проверьте правильность написания строк кода.

Select Case Environ("USERNAME")
        Case "Мой логин"
            Application.ThisWorkbook.Worksheets("Лист1").Unprotect ("111")
    End Select

А так же правильность логина. Для проверки, можно выполнить:

MsgBox Environ("USERNAME")

[grenles]

http://www.programmersforum.ru/showthread.php?t=22418
Поглядите здесь, аналогичная тема, я там выложу свой файл.