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

Вход

Регистрация

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

 

= Мир MS Excel/Открытие книги при определенном условии - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Открытие книги при определенном условии
Goodzel Дата: Вторник, 25.09.2018, 12:04 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый день, уважаемые гуру!!
Подскажите, пожалуйста, как мне сделать так, чтобы книга открывалась только при условии нахождения проверочного файла ("C:\Test\Книга001.xlsx"). Если такой файл не найден, книга не должна открываться. Таким образом я пытаюсь защитить книгу от копирования и дальнейшего использования недругами.
Я своими более чем скромными познаниями написала нижеследующее (не кидайте пожалуйста камнями, я догадываюсь, что это совсем глупость, но на большее ума не хватает), но оно не работает в таком виде

[vba]
Код
Sub Workbook_Open()
  Dim x As String
x = "C:\Test\Книга001.xlsx" 'Путь и имя файла
    If Dir(x) <> "" Then 'Если файл существует, то
     Workbooks.Open
    Else 'Иначе
       ActiveWindow.Close False
    End If
End Sub
[/vba]

Во вложении прилагаю файл, буду очень благодарна за отклик и помощь!
К сообщению приложен файл: ___1.xlsm (13.4 Kb)
 
Ответить
СообщениеДобрый день, уважаемые гуру!!
Подскажите, пожалуйста, как мне сделать так, чтобы книга открывалась только при условии нахождения проверочного файла ("C:\Test\Книга001.xlsx"). Если такой файл не найден, книга не должна открываться. Таким образом я пытаюсь защитить книгу от копирования и дальнейшего использования недругами.
Я своими более чем скромными познаниями написала нижеследующее (не кидайте пожалуйста камнями, я догадываюсь, что это совсем глупость, но на большее ума не хватает), но оно не работает в таком виде

[vba]
Код
Sub Workbook_Open()
  Dim x As String
x = "C:\Test\Книга001.xlsx" 'Путь и имя файла
    If Dir(x) <> "" Then 'Если файл существует, то
     Workbooks.Open
    Else 'Иначе
       ActiveWindow.Close False
    End If
End Sub
[/vba]

Во вложении прилагаю файл, буду очень благодарна за отклик и помощь!

Автор - Goodzel
Дата добавления - 25.09.2018 в 12:04
SLAVICK Дата: Вторник, 25.09.2018, 12:28 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Почти все правильно - только нужно положить в модуль книги.
[vba]
Код
Private Sub Workbook_Open()
  Dim x As String
x = "C:\Test\Книга001.xlsx" 'Путь и имя файла
    If Dir(x) = "" Then ThisWorkbook.Close False
End Sub
[/vba]
К сообщению приложен файл: _1.xlsm (14.6 Kb)


Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеПочти все правильно - только нужно положить в модуль книги.
[vba]
Код
Private Sub Workbook_Open()
  Dim x As String
x = "C:\Test\Книга001.xlsx" 'Путь и имя файла
    If Dir(x) = "" Then ThisWorkbook.Close False
End Sub
[/vba]

Автор - SLAVICK
Дата добавления - 25.09.2018 в 12:28
Goodzel Дата: Вторник, 25.09.2018, 16:11 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
SLAVICK, спасибо большое!!! все работает hands
 
Ответить
СообщениеSLAVICK, спасибо большое!!! все работает hands

Автор - Goodzel
Дата добавления - 25.09.2018 в 16:11
StoTisteg Дата: Вторник, 25.09.2018, 17:16 | Сообщение № 4
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

Excel 2010
Goodzel, только вот наличие пароля на ВБА защитит куда надёжнее, а при его отсутствии никто не помешает недругам заглянуть в код и посмотреть, чего он хочет...


Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
СообщениеGoodzel, только вот наличие пароля на ВБА защитит куда надёжнее, а при его отсутствии никто не помешает недругам заглянуть в код и посмотреть, чего он хочет...

Автор - StoTisteg
Дата добавления - 25.09.2018 в 17:16
Goodzel Дата: Вторник, 25.09.2018, 19:16 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
StoTisteg, мои перспективные недруги не смогут этого сделать, копипаст - их потолок, но пароль на VBA очень интересно, я изучу как его ставить, не слышала раньше. Спасибо!
 
Ответить
СообщениеStoTisteg, мои перспективные недруги не смогут этого сделать, копипаст - их потолок, но пароль на VBA очень интересно, я изучу как его ставить, не слышала раньше. Спасибо!

Автор - Goodzel
Дата добавления - 25.09.2018 в 19:16
  • Страница 1 из 1
  • 1
Поиск:

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