Защита листа от другого компьютера
den45444
Дата: Пятница, 19.02.2016, 15:30 |
Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Есть 2 листа в книге. Первый лист "Лист1" и второй "Лист2". Можно ли выслать данную книгу, чтобы другой пользователь на другом компьютере не видел второго листа "Лист2" и даже не смог бы без пароля увидеть этот лист. НО! При этом мой компьютер не должен запрашивать пароль и я свободно мог бы пользоваться вторым листом. Не знаю как это осуществить.
Есть 2 листа в книге. Первый лист "Лист1" и второй "Лист2". Можно ли выслать данную книгу, чтобы другой пользователь на другом компьютере не видел второго листа "Лист2" и даже не смог бы без пароля увидеть этот лист. НО! При этом мой компьютер не должен запрашивать пароль и я свободно мог бы пользоваться вторым листом. Не знаю как это осуществить. den45444
Ответить
Сообщение Есть 2 листа в книге. Первый лист "Лист1" и второй "Лист2". Можно ли выслать данную книгу, чтобы другой пользователь на другом компьютере не видел второго листа "Лист2" и даже не смог бы без пароля увидеть этот лист. НО! При этом мой компьютер не должен запрашивать пароль и я свободно мог бы пользоваться вторым листом. Не знаю как это осуществить. Автор - den45444 Дата добавления - 19.02.2016 в 15:30
Manyasha
Дата: Пятница, 19.02.2016, 16:12 |
Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация:
898
±
Замечаний:
0% ±
Excel 2010, 2016
den45444 , например, можно серийник диска проверять: [vba]Код
Private Sub Workbook_Open() numDrive = CreateObject("Scripting.FileSystemObject").GetDrive("C").SerialNumber If numDrive <> 123456789 Then' свой номер поставьте hidSheet.Protect "pass" hidSheet.Visible = xlSheetVeryHidden Else hidSheet.Unprotect "pass" hidSheet.Visible = xlSheetVisible End If End Sub
[/vba]ну и VBA защитить.
den45444 , например, можно серийник диска проверять: [vba]Код
Private Sub Workbook_Open() numDrive = CreateObject("Scripting.FileSystemObject").GetDrive("C").SerialNumber If numDrive <> 123456789 Then' свой номер поставьте hidSheet.Protect "pass" hidSheet.Visible = xlSheetVeryHidden Else hidSheet.Unprotect "pass" hidSheet.Visible = xlSheetVisible End If End Sub
[/vba]ну и VBA защитить.Manyasha
ЯД: 410013299366744 WM: R193491431804
Ответить
Сообщение den45444 , например, можно серийник диска проверять: [vba]Код
Private Sub Workbook_Open() numDrive = CreateObject("Scripting.FileSystemObject").GetDrive("C").SerialNumber If numDrive <> 123456789 Then' свой номер поставьте hidSheet.Protect "pass" hidSheet.Visible = xlSheetVeryHidden Else hidSheet.Unprotect "pass" hidSheet.Visible = xlSheetVisible End If End Sub
[/vba]ну и VBA защитить.Автор - Manyasha Дата добавления - 19.02.2016 в 16:12
RAN
Дата: Пятница, 19.02.2016, 16:18 |
Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Manyasha , зачем? [vba][/vba]
Manyasha , зачем? [vba][/vba]RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение Manyasha , зачем? [vba][/vba]Автор - RAN Дата добавления - 19.02.2016 в 16:18
Manyasha
Дата: Пятница, 19.02.2016, 16:29 |
Сообщение № 4
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация:
898
±
Замечаний:
0% ±
Excel 2010, 2016
Чтобы, если, например, из окна-immediate лист откроют, он все равно недоступен для редактирования был. Хотя...Вы правы, наверное это лишнее, если лист как-нибудь обозвать не стандартно, вряд ли без пароля на VBA его можно будет открыть.
Чтобы, если, например, из окна-immediate лист откроют, он все равно недоступен для редактирования был. Хотя...Вы правы, наверное это лишнее, если лист как-нибудь обозвать не стандартно, вряд ли без пароля на VBA его можно будет открыть. Manyasha
ЯД: 410013299366744 WM: R193491431804
Ответить
Сообщение Чтобы, если, например, из окна-immediate лист откроют, он все равно недоступен для редактирования был. Хотя...Вы правы, наверное это лишнее, если лист как-нибудь обозвать не стандартно, вряд ли без пароля на VBA его можно будет открыть. Автор - Manyasha Дата добавления - 19.02.2016 в 16:29
den45444
Дата: Пятница, 19.02.2016, 22:10 |
Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Manyasha , благодарю за ответ. попробую, отпишусь
Manyasha , благодарю за ответ. попробую, отпишусьden45444
Ответить
Сообщение Manyasha , благодарю за ответ. попробую, отпишусьАвтор - den45444 Дата добавления - 19.02.2016 в 22:10
den45444
Дата: Пятница, 19.02.2016, 22:26 |
Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Manyasha , как узнать серийный номер диска С ? посмотрел в свойствах, нашел, поставил, в итоге не работает. Возможно не правильно что-то делаю
Manyasha , как узнать серийный номер диска С ? посмотрел в свойствах, нашел, поставил, в итоге не работает. Возможно не правильно что-то делаюden45444
Ответить
Сообщение Manyasha , как узнать серийный номер диска С ? посмотрел в свойствах, нашел, поставил, в итоге не работает. Возможно не правильно что-то делаюАвтор - den45444 Дата добавления - 19.02.2016 в 22:26
Manyasha
Дата: Пятница, 19.02.2016, 22:28 |
Сообщение № 7
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация:
898
±
Замечаний:
0% ±
Excel 2010, 2016
так вот он же [vba]Код
msgbox CreateObject("Scripting.FileSystemObject").GetDrive("C").SerialNumber
[/vba]
так вот он же [vba]Код
msgbox CreateObject("Scripting.FileSystemObject").GetDrive("C").SerialNumber
[/vba] Manyasha
ЯД: 410013299366744 WM: R193491431804
Ответить
Сообщение так вот он же [vba]Код
msgbox CreateObject("Scripting.FileSystemObject").GetDrive("C").SerialNumber
[/vba] Автор - Manyasha Дата добавления - 19.02.2016 в 22:28
den45444
Дата: Пятница, 19.02.2016, 22:30 |
Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
[vba]Код
If numDrive <> 123456789 Then' свой номер поставьте
[/vba] а это что?
[vba]Код
If numDrive <> 123456789 Then' свой номер поставьте
[/vba] а это что? den45444
Ответить
Сообщение [vba]Код
If numDrive <> 123456789 Then' свой номер поставьте
[/vba] а это что? Автор - den45444 Дата добавления - 19.02.2016 в 22:30
den45444
Дата: Пятница, 19.02.2016, 22:35 |
Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Manyasha , теперь получилось. благодарю
Manyasha , теперь получилось. благодарюden45444
Ответить
Сообщение Manyasha , теперь получилось. благодарюАвтор - den45444 Дата добавления - 19.02.2016 в 22:35
_Boroda_
Дата: Пятница, 19.02.2016, 22:36 |
Сообщение № 10
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация:
6478
±
Замечаний:
0% ±
2003; 2007; 2010; 2013 RUS
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
den45444
Дата: Пятница, 19.02.2016, 22:41 |
Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
_Boroda_ , Благодарю за ссылку
Ответить
Сообщение _Boroda_ , Благодарю за ссылкуАвтор - den45444 Дата добавления - 19.02.2016 в 22:41
den45444
Дата: Пятница, 19.02.2016, 22:44 |
Сообщение № 12
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Manyasha , _Boroda_ , А есть способ через надстройки защитить? Ведь надстройки не передаются.
Manyasha , _Boroda_ , А есть способ через надстройки защитить? Ведь надстройки не передаются.den45444
Ответить
Сообщение Manyasha , _Boroda_ , А есть способ через надстройки защитить? Ведь надстройки не передаются.Автор - den45444 Дата добавления - 19.02.2016 в 22:44
den45444
Дата: Понедельник, 22.02.2016, 12:45 |
Сообщение № 13
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
При запуске надстроек ругается и не хочет открывать и разблокировать лист. Может я неправильно написал код? [vba]Код
Private Sub Workbook_Open() Worksheets("Лист2").Protect "pass" Worksheets("Лист").Visible = xlSheetVeryHidden End Sub
[/vba]
При запуске надстроек ругается и не хочет открывать и разблокировать лист. Может я неправильно написал код? [vba]Код
Private Sub Workbook_Open() Worksheets("Лист2").Protect "pass" Worksheets("Лист").Visible = xlSheetVeryHidden End Sub
[/vba] den45444
Ответить
Сообщение При запуске надстроек ругается и не хочет открывать и разблокировать лист. Может я неправильно написал код? [vba]Код
Private Sub Workbook_Open() Worksheets("Лист2").Protect "pass" Worksheets("Лист").Visible = xlSheetVeryHidden End Sub
[/vba] Автор - den45444 Дата добавления - 22.02.2016 в 12:45
den45444
Дата: Понедельник, 22.02.2016, 12:46 |
Сообщение № 14
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
[vba]Код
Private Sub Workbook_Open() Worksheets("Лист2").Protect "pass" Worksheets("Лист2").Visible = xlSheetVeryHidden End Sub
[/vba]
[vba]Код
Private Sub Workbook_Open() Worksheets("Лист2").Protect "pass" Worksheets("Лист2").Visible = xlSheetVeryHidden End Sub
[/vba] den45444
Ответить
Сообщение [vba]Код
Private Sub Workbook_Open() Worksheets("Лист2").Protect "pass" Worksheets("Лист2").Visible = xlSheetVeryHidden End Sub
[/vba] Автор - den45444 Дата добавления - 22.02.2016 в 12:46
RAN
Дата: Понедельник, 22.02.2016, 14:31 |
Сообщение № 15
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Код правильный. А вот его использование - сильно сомневаюсь.
Код правильный. А вот его использование - сильно сомневаюсь. RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение Код правильный. А вот его использование - сильно сомневаюсь. Автор - RAN Дата добавления - 22.02.2016 в 14:31
StoTisteg
Дата: Понедельник, 22.02.2016, 17:11 |
Сообщение № 16
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация:
103
±
Замечаний:
0% ±
Excel 2010
den45444 , УМВР. Отсюда вывод. Либо Вы код суёте не в модуль книги, либо в самой книге нет листа с названием "Лист2", либо он там единственный.
den45444 , УМВР. Отсюда вывод. Либо Вы код суёте не в модуль книги, либо в самой книге нет листа с названием "Лист2", либо он там единственный.StoTisteg
Интуитивно понятный код - это когда интуитивно понятно, что это код.
Сообщение отредактировал StoTisteg - Понедельник, 22.02.2016, 17:16
Ответить
Сообщение den45444 , УМВР. Отсюда вывод. Либо Вы код суёте не в модуль книги, либо в самой книге нет листа с названием "Лист2", либо он там единственный.Автор - StoTisteg Дата добавления - 22.02.2016 в 17:11
RAN
Дата: Понедельник, 22.02.2016, 17:34 |
Сообщение № 17
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
StoTisteg , что такое УМВР? Исходя из №13, даже при размещении кода в модуле книги, работать не будет по причинам 1. Для работы с листами надстройки нужен немного другой код. 2. Для работы с листами произвольного файла нужно другое событие.
StoTisteg , что такое УМВР? Исходя из №13, даже при размещении кода в модуле книги, работать не будет по причинам 1. Для работы с листами надстройки нужен немного другой код. 2. Для работы с листами произвольного файла нужно другое событие.RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение StoTisteg , что такое УМВР? Исходя из №13, даже при размещении кода в модуле книги, работать не будет по причинам 1. Для работы с листами надстройки нужен немного другой код. 2. Для работы с листами произвольного файла нужно другое событие.Автор - RAN Дата добавления - 22.02.2016 в 17:34
StoTisteg
Дата: Понедельник, 22.02.2016, 17:36 |
Сообщение № 18
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация:
103
±
Замечаний:
0% ±
Excel 2010
Интуитивно понятный код - это когда интуитивно понятно, что это код.
Ответить
Сообщение У м еня в сё р аботает.Автор - StoTisteg Дата добавления - 22.02.2016 в 17:36
den45444
Дата: Понедельник, 22.02.2016, 18:54 |
Сообщение № 19
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
RAN , Не могли бы подсказать, какой код нужно прописать, чтобы работало?
RAN , Не могли бы подсказать, какой код нужно прописать, чтобы работало?den45444
Ответить
Сообщение RAN , Не могли бы подсказать, какой код нужно прописать, чтобы работало?Автор - den45444 Дата добавления - 22.02.2016 в 18:54
den45444
Дата: Понедельник, 22.02.2016, 18:55 |
Сообщение № 20
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
StoTisteg , Вы в надстройках проверяли? У меня не работает
StoTisteg , Вы в надстройках проверяли? У меня не работаетden45444
Ответить
Сообщение StoTisteg , Вы в надстройках проверяли? У меня не работаетАвтор - den45444 Дата добавления - 22.02.2016 в 18:55