Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 23.06.2008, 12:16   #1
Dorvir
Пользователь
 
Аватар для Dorvir
 
Регистрация: 06.02.2008
Сообщений: 42
По умолчанию защита листа и снятие защиты в зависимости от логина

Привет всем!

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

Чтобы при закрытии файла автоматически ставилась защита на лист я поставила на событие 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 не могу писать, поскольку для каждого логина прописываю различные правила: скрываю листы, формулы, защищаю литы и т.д.
Dorvir вне форума
Старый 23.06.2008, 12:42   #2
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Проверьте правильность написания строк кода.
Код:
Select Case Environ("USERNAME")
        Case "Мой логин"
            Application.ThisWorkbook.Worksheets("Лист1").Unprotect ("111")
    End Select
А так же правильность логина. Для проверки, можно выполнить:
Код:
MsgBox Environ("USERNAME")
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 30.06.2008, 13:24   #3
grenles
минимакс
Участник клуба
 
Аватар для grenles
 
Регистрация: 11.06.2008
Сообщений: 1,143
По умолчанию

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


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Структура данных и защита листа Legame Microsoft Office Excel 47 25.06.2019 11:03
Защита листа, отключает работу макроса valerij Microsoft Office Excel 6 30.03.2008 22:22
Защита листа! Marsik Microsoft Office Excel 2 27.03.2008 18:19
Снятие Защиты с листов, сразу со всех valerij Microsoft Office Excel 2 02.11.2007 21:19
проблемы с вызовом окна логина. terion БД в Delphi 3 15.11.2006 00:53