Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Защита листа от другого компьютера - Страница 3 - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 3 из 3«123
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Защита листа от другого компьютера (Макросы/Sub)
Защита листа от другого компьютера
StoTisteg Дата: Вторник, 23.02.2016, 19:49 | Сообщение № 41
Группа: Авторы
Ранг: Ветеран
Сообщений: 541
Репутация: 45 ±
Замечаний: 0% ±

Excel 2010
Код, разумеется, на защиту, ибо пытливый клиент из него узнает, какой именно совершенно левый файлик ему надо создать, чтобы увидеть что-то интересное :)


Проверь всё. ThisWorkbook.Save. On Error Resume Next.
 
Ответить
СообщениеКод, разумеется, на защиту, ибо пытливый клиент из него узнает, какой именно совершенно левый файлик ему надо создать, чтобы увидеть что-то интересное :)

Автор - StoTisteg
Дата добавления - 23.02.2016 в 19:49
den45444 Дата: Вторник, 23.02.2016, 19:51 | Сообщение № 42
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
И всё это в модуль книги передаваемого клиенту файла.

Тип файла xlsx .
 
Ответить
Сообщение
И всё это в модуль книги передаваемого клиенту файла.

Тип файла xlsx .

Автор - den45444
Дата добавления - 23.02.2016 в 19:51
StoTisteg Дата: Вторник, 23.02.2016, 19:53 | Сообщение № 43
Группа: Авторы
Ранг: Ветеран
Сообщений: 541
Репутация: 45 ±
Замечаний: 0% ±

Excel 2010
Показывает ошибку

Скопируйте Addn из строки Dim Addn as Boolean, где-то могла кириллическая А затесаться.


Проверь всё. ThisWorkbook.Save. On Error Resume Next.
 
Ответить
Сообщение
Показывает ошибку

Скопируйте Addn из строки Dim Addn as Boolean, где-то могла кириллическая А затесаться.

Автор - StoTisteg
Дата добавления - 23.02.2016 в 19:53
МВТ Дата: Вторник, 23.02.2016, 19:53 | Сообщение № 44
Группа: Проверенные
Ранг: Обитатель
Сообщений: 475
Репутация: 135 ±
Замечаний: 0% ±

Excel 2007
Мне кажется, немного не так. В надстройку[vba]
Код
Dim Ok As Boolean
Private Sub Workbook_Open()
    Ok = True
End Sub
[/vba]
В свою книгу[vba]
Код
Private Sub Workbook_Open()
    If Ok Then Sheets("Цены").Visible = True
End Sub
[/vba]
 
Ответить
СообщениеМне кажется, немного не так. В надстройку[vba]
Код
Dim Ok As Boolean
Private Sub Workbook_Open()
    Ok = True
End Sub
[/vba]
В свою книгу[vba]
Код
Private Sub Workbook_Open()
    If Ok Then Sheets("Цены").Visible = True
End Sub
[/vba]

Автор - МВТ
Дата добавления - 23.02.2016 в 19:53
den45444 Дата: Вторник, 23.02.2016, 19:53 | Сообщение № 45
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
StoTisteg,
Тип файла : xlsx
Нужно чтобы при открывании этого файла макрос автоматический разблокировал лист "Расценки" именно у ТОГО у кого установлена данная надстройка.

Ваш способ не подходит.
 
Ответить
СообщениеStoTisteg,
Тип файла : xlsx
Нужно чтобы при открывании этого файла макрос автоматический разблокировал лист "Расценки" именно у ТОГО у кого установлена данная надстройка.

Ваш способ не подходит.

Автор - den45444
Дата добавления - 23.02.2016 в 19:53
StoTisteg Дата: Вторник, 23.02.2016, 19:54 | Сообщение № 46
Группа: Авторы
Ранг: Ветеран
Сообщений: 541
Репутация: 45 ±
Замечаний: 0% ±

Excel 2010
Тип файла xlsx .

Так сохраните его как .xlsm, в чём проблема?


Проверь всё. ThisWorkbook.Save. On Error Resume Next.
 
Ответить
Сообщение
Тип файла xlsx .

Так сохраните его как .xlsm, в чём проблема?

Автор - StoTisteg
Дата добавления - 23.02.2016 в 19:54
den45444 Дата: Вторник, 23.02.2016, 19:56 | Сообщение № 47
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
МВТ,
В свою книгу

В свою книгу не могу, потому как тип файла xlsx
 
Ответить
СообщениеМВТ,
В свою книгу

В свою книгу не могу, потому как тип файла xlsx

Автор - den45444
Дата добавления - 23.02.2016 в 19:56
den45444 Дата: Вторник, 23.02.2016, 19:58 | Сообщение № 48
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Так сохраните его как .xlsm, в чём проблема?

Это и есть сложность задачи. Через xlsm есть много способов, а вот через надстройки (т.е. при открытии надстроек) не знаю есть ли способ защитить или снять защиту.
 
Ответить
Сообщение
Так сохраните его как .xlsm, в чём проблема?

Это и есть сложность задачи. Через xlsm есть много способов, а вот через надстройки (т.е. при открытии надстроек) не знаю есть ли способ защитить или снять защиту.

Автор - den45444
Дата добавления - 23.02.2016 в 19:58
StoTisteg Дата: Вторник, 23.02.2016, 20:03 | Сообщение № 49
Группа: Авторы
Ранг: Ветеран
Сообщений: 541
Репутация: 45 ±
Замечаний: 0% ±

Excel 2010
Dim Ok As Boolean

Private Sub Workbook_Open()

Так что
If Ok Then Sheets("Цены").Visible = True

Точно не пробьётся.
[vba]
Код

Public  Ok As Boolean
[/vba]
ещё может, и то не факт.


Проверь всё. ThisWorkbook.Save. On Error Resume Next.

Сообщение отредактировал StoTisteg - Вторник, 23.02.2016, 20:10
 
Ответить
Сообщение
Dim Ok As Boolean

Private Sub Workbook_Open()

Так что
If Ok Then Sheets("Цены").Visible = True

Точно не пробьётся.
[vba]
Код

Public  Ok As Boolean
[/vba]
ещё может, и то не факт.

Автор - StoTisteg
Дата добавления - 23.02.2016 в 20:03
StoTisteg Дата: Вторник, 23.02.2016, 20:04 | Сообщение № 50
Группа: Авторы
Ранг: Ветеран
Сообщений: 541
Репутация: 45 ±
Замечаний: 0% ±

Excel 2010
Это и есть сложность задачи. Через xlsm есть много способов, а вот через надстройки (т.е. при открытии надстроек) не знаю есть ли способ защитить или снять защиту.

Тогда обратитесь к автору надстройки и не устраивайте нам тут мозговой штурм, он в другом форуме.


Проверь всё. ThisWorkbook.Save. On Error Resume Next.
 
Ответить
Сообщение
Это и есть сложность задачи. Через xlsm есть много способов, а вот через надстройки (т.е. при открытии надстроек) не знаю есть ли способ защитить или снять защиту.

Тогда обратитесь к автору надстройки и не устраивайте нам тут мозговой штурм, он в другом форуме.

Автор - StoTisteg
Дата добавления - 23.02.2016 в 20:04
StoTisteg Дата: Вторник, 23.02.2016, 20:09 | Сообщение № 51
Группа: Авторы
Ранг: Ветеран
Сообщений: 541
Репутация: 45 ±
Замечаний: 0% ±

Excel 2010
Вам, ЕМНИП, предложили уже ЧЕТЫРЕ рабочих решения, но Вы всё время на ходу выдумываете новые ограничения.


Проверь всё. ThisWorkbook.Save. On Error Resume Next.
 
Ответить
СообщениеВам, ЕМНИП, предложили уже ЧЕТЫРЕ рабочих решения, но Вы всё время на ходу выдумываете новые ограничения.

Автор - StoTisteg
Дата добавления - 23.02.2016 в 20:09
МВТ Дата: Вторник, 23.02.2016, 20:13 | Сообщение № 52
Группа: Проверенные
Ранг: Обитатель
Сообщений: 475
Репутация: 135 ±
Замечаний: 0% ±

Excel 2007
den45444, хочу сделать Вам комплимент: Ваша неспособность внятно формулировать мысли просто поразительна. В результате тема разрослась уже на третью страницу, а конкретики так и нет. На 48 сообщении мы наконец-то выяснили, что ставится и сниматься скрытие листа должно извне. Теперь по существу: с надстройками работать не доводилось, но вполне вероятно, что данный код будет работать
[vba]
Код

Public WithEvents app As Application

Private Sub app_WorkbookActivate(ByVal Wb As Workbook)
    If Wb.Name = "Название файла" Then Wb.Sheets.Visible = xlSheetVisible
End Sub

Private Sub app_WorkbookDeactivate(ByVal Wb As Workbook)
    If Wb.Name = "Название файла" Then Wb.Sheets.Visible = xlSheetVeryHidden
End Sub

Private Sub Workbook_Open()
    Set app = Application
End Sub

[/vba]
 
Ответить
Сообщениеden45444, хочу сделать Вам комплимент: Ваша неспособность внятно формулировать мысли просто поразительна. В результате тема разрослась уже на третью страницу, а конкретики так и нет. На 48 сообщении мы наконец-то выяснили, что ставится и сниматься скрытие листа должно извне. Теперь по существу: с надстройками работать не доводилось, но вполне вероятно, что данный код будет работать
[vba]
Код

Public WithEvents app As Application

Private Sub app_WorkbookActivate(ByVal Wb As Workbook)
    If Wb.Name = "Название файла" Then Wb.Sheets.Visible = xlSheetVisible
End Sub

Private Sub app_WorkbookDeactivate(ByVal Wb As Workbook)
    If Wb.Name = "Название файла" Then Wb.Sheets.Visible = xlSheetVeryHidden
End Sub

Private Sub Workbook_Open()
    Set app = Application
End Sub

[/vba]

Автор - МВТ
Дата добавления - 23.02.2016 в 20:13
den45444 Дата: Вторник, 23.02.2016, 20:13 | Сообщение № 53
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
прошу прощения если кому то было в тяжесть.
раз нет способа, то тему можно закрывать.
еще раз прошу прощения
 
Ответить
Сообщениепрошу прощения если кому то было в тяжесть.
раз нет способа, то тему можно закрывать.
еще раз прошу прощения

Автор - den45444
Дата добавления - 23.02.2016 в 20:13
den45444 Дата: Вторник, 23.02.2016, 20:27 | Сообщение № 54
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
МВТ, попробую еще раз
у меня до этого не получалось установить этот код
возможно сам чего-то недопонимаю.
 
Ответить
СообщениеМВТ, попробую еще раз
у меня до этого не получалось установить этот код
возможно сам чего-то недопонимаю.

Автор - den45444
Дата добавления - 23.02.2016 в 20:27
den45444 Дата: Вторник, 23.02.2016, 20:36 | Сообщение № 55
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
ВСЕХ БЛАГОДАРЮ за участие.
Получилось!!!
Можно закрыть тему.
Еще раз всех благодарю искренне!
 
Ответить
СообщениеВСЕХ БЛАГОДАРЮ за участие.
Получилось!!!
Можно закрыть тему.
Еще раз всех благодарю искренне!

Автор - den45444
Дата добавления - 23.02.2016 в 20:36
МВТ Дата: Вторник, 23.02.2016, 20:49 | Сообщение № 56
Группа: Проверенные
Ранг: Обитатель
Сообщений: 475
Репутация: 135 ±
Замечаний: 0% ±

Excel 2007
Решил прочитать тему еще раз, тот же самый способ в 23 сообщении предложил уважаемый RAN
 
Ответить
СообщениеРешил прочитать тему еще раз, тот же самый способ в 23 сообщении предложил уважаемый RAN

Автор - МВТ
Дата добавления - 23.02.2016 в 20:49
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Защита листа от другого компьютера (Макросы/Sub)
Страница 3 из 3«123
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!