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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 3 из 3
  • «
  • 1
  • 2
  • 3
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Защита листа от другого компьютера (Макросы/Sub)
Защита листа от другого компьютера
StoTisteg Дата: Вторник, 23.02.2016, 19:49 | Сообщение № 41
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

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


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

Автор - 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
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

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

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


Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
Сообщение
Показывает ошибку

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

Автор - StoTisteg
Дата добавления - 23.02.2016 в 19:53
МВТ Дата: Вторник, 23.02.2016, 19:53 | Сообщение № 44
Группа: Проверенные
Ранг: Обитатель
Сообщений: 476
Репутация: 137 ±
Замечаний: 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
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

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

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


Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
Сообщение
Тип файла 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
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

Excel 2010
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: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
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

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

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


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

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

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

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


Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
СообщениеВам, ЕМНИП, предложили уже ЧЕТЫРЕ рабочих решения, но Вы всё время на ходу выдумываете новые ограничения.

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

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

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

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