Скрытие листов с паролем
Krez
Дата: Вторник, 18.04.2017, 14:42 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Доброго дня! Коллеги подскажите, где ошибка в коде. Суть задачи: Создать файл с 1 общим листом и несколькими запороленными (на каждый лист пароль разный), если пользователь "не угадал" - отправляется на общий лист.Проблема написанного: в некорректной работе в случае одновременного открытия нескольких книг. Заранее спасибо!
Доброго дня! Коллеги подскажите, где ошибка в коде. Суть задачи: Создать файл с 1 общим листом и несколькими запороленными (на каждый лист пароль разный), если пользователь "не угадал" - отправляется на общий лист.Проблема написанного: в некорректной работе в случае одновременного открытия нескольких книг. Заранее спасибо! Krez
Ответить
Сообщение Доброго дня! Коллеги подскажите, где ошибка в коде. Суть задачи: Создать файл с 1 общим листом и несколькими запороленными (на каждый лист пароль разный), если пользователь "не угадал" - отправляется на общий лист.Проблема написанного: в некорректной работе в случае одновременного открытия нескольких книг. Заранее спасибо! Автор - Krez Дата добавления - 18.04.2017 в 14:42
KuklP
Дата: Вторник, 18.04.2017, 19:08 |
Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
Вы не указываете родительский объект листов при обращении к ним. [vba]Код
Worksheets("Общий").Activate
[/vba] надо: [vba]Код
thisworkbook.Worksheets("Общий").Activate
[/vba] Потом у Вас процедура Workbook_Open в модуле листа, это абсурд. И т.д.
Вы не указываете родительский объект листов при обращении к ним. [vba]Код
Worksheets("Общий").Activate
[/vba] надо: [vba]Код
thisworkbook.Worksheets("Общий").Activate
[/vba] Потом у Вас процедура Workbook_Open в модуле листа, это абсурд. И т.д. KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение Вы не указываете родительский объект листов при обращении к ним. [vba]Код
Worksheets("Общий").Activate
[/vba] надо: [vba]Код
thisworkbook.Worksheets("Общий").Activate
[/vba] Потом у Вас процедура Workbook_Open в модуле листа, это абсурд. И т.д. Автор - KuklP Дата добавления - 18.04.2017 в 19:08
Krez
Дата: Вторник, 18.04.2017, 20:34 |
Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Указал ссылку на thisworkbook, где было возможно. но ситуацию это не спасло. Подозреваю проблему в этом куске, у ActiveWindow нельзя задать ссылку на конкретную книгу насколько я понял. [vba]Код
Private Sub UserForm_Activate() TTTT = ThisWorkbook.ActiveSheet.Name ActiveWindow.Visible = False End Sub
[/vba]
Указал ссылку на thisworkbook, где было возможно. но ситуацию это не спасло. Подозреваю проблему в этом куске, у ActiveWindow нельзя задать ссылку на конкретную книгу насколько я понял. [vba]Код
Private Sub UserForm_Activate() TTTT = ThisWorkbook.ActiveSheet.Name ActiveWindow.Visible = False End Sub
[/vba] Krez
Сообщение отредактировал Krez - Вторник, 18.04.2017, 22:46
Ответить
Сообщение Указал ссылку на thisworkbook, где было возможно. но ситуацию это не спасло. Подозреваю проблему в этом куске, у ActiveWindow нельзя задать ссылку на конкретную книгу насколько я понял. [vba]Код
Private Sub UserForm_Activate() TTTT = ThisWorkbook.ActiveSheet.Name ActiveWindow.Visible = False End Sub
[/vba] Автор - Krez Дата добавления - 18.04.2017 в 20:34
Pelena
Дата: Вторник, 18.04.2017, 20:39 |
Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19196
Репутация:
4423
±
Замечаний:
±
Excel 365 & Mac Excel
Krez , оформите код тегами с помощью кнопки # в режиме правки постаИсправлено
Krez , оформите код тегами с помощью кнопки # в режиме правки постаИсправлено Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Krez , оформите код тегами с помощью кнопки # в режиме правки постаИсправлено Автор - Pelena Дата добавления - 18.04.2017 в 20:39
KuklP
Дата: Вторник, 18.04.2017, 21:44 |
Сообщение № 5
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
Del
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Сообщение отредактировал KuklP - Среда, 19.04.2017, 15:02
Ответить
Сообщение Del Автор - KuklP Дата добавления - 18.04.2017 в 21:44
KuklP
Дата: Среда, 19.04.2017, 14:58 |
Сообщение № 6
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
Может в таком духе надо?
Может в таком духе надо? KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение Может в таком духе надо? Автор - KuklP Дата добавления - 19.04.2017 в 14:58
KuklP
Дата: Среда, 19.04.2017, 15:01 |
Сообщение № 7
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
Del
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Сообщение отредактировал KuklP - Среда, 19.04.2017, 15:28
Ответить
Сообщение Del Автор - KuklP Дата добавления - 19.04.2017 в 15:01
Pelena
Дата: Среда, 19.04.2017, 15:27 |
Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 19196
Репутация:
4423
±
Замечаний:
±
Excel 365 & Mac Excel
Заикаюсь уже, что поделаешь
Заикаюсь уже, что поделаешь Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Заикаюсь уже, что поделаешь Автор - Pelena Дата добавления - 19.04.2017 в 15:27
KuklP
Дата: Среда, 19.04.2017, 15:37 |
Сообщение № 9
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
Krez , почитайте еще здесь . Чтоб не изобретать велосипед
Krez , почитайте еще здесь . Чтоб не изобретать велосипед KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение Krez , почитайте еще здесь . Чтоб не изобретать велосипед Автор - KuklP Дата добавления - 19.04.2017 в 15:37
Krez
Дата: Среда, 19.04.2017, 16:01 |
Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
KuklP , отличная статья, буду изучать =)
KuklP , отличная статья, буду изучать =)Krez
Сообщение отредактировал Krez - Среда, 19.04.2017, 16:02
Ответить
Сообщение KuklP , отличная статья, буду изучать =)Автор - Krez Дата добавления - 19.04.2017 в 16:01