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

Вход

Регистрация

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

 

= Мир MS Excel/Пароль на книгу по серийному номеру диска - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Пароль на книгу по серийному номеру диска (Макросы/Sub)
Пароль на книгу по серийному номеру диска
degalo Дата: Четверг, 24.03.2016, 13:47 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 1 ±
Замечаний: 0% ±

Excel 2013
Ребята помогите найти макрос , для запароливания книги, по серийному номеру диска. Темы подходящие нашел, но у меня не работают они.

[vba]
Код
Private Sub Workbook_Open()
Dim arrVisibleSheets, arrHiddenSheets
Windows(ThisWorkbook.Name).Visible = False 'скрываем книгу

If nn_ = CreateObject("Scripting.FileSystemObject").GetDrive("C").SerialNumber & "" Then
MsgBox "3753822: " & n_
End If
With Application
.DisplayAlerts = False
ThisWorkbook.Close
.DisplayAlerts = True
End With
Else
arrVisibleSheets = Array(Лист1, Лист2, Лист3) 'Видимые листы
arrHiddenSheets = Array(Лист4, Лист5, Лист6) 'Скрытые листы
For Each sh In arrVisibleSheets
sh.Visible = xlSheetVisible
Next sh
For Each sh In arrHiddenSheets
sh.Visible = xlSheetVeryHidden
Next sh
Windows(ThisWorkbook.Name).Visible = True
End If
End Sub
[/vba]
[moder]Для оформления кода используйте кнопку #[/moder]


Сообщение отредактировал Pelena - Четверг, 24.03.2016, 13:54
 
Ответить
СообщениеРебята помогите найти макрос , для запароливания книги, по серийному номеру диска. Темы подходящие нашел, но у меня не работают они.

[vba]
Код
Private Sub Workbook_Open()
Dim arrVisibleSheets, arrHiddenSheets
Windows(ThisWorkbook.Name).Visible = False 'скрываем книгу

If nn_ = CreateObject("Scripting.FileSystemObject").GetDrive("C").SerialNumber & "" Then
MsgBox "3753822: " & n_
End If
With Application
.DisplayAlerts = False
ThisWorkbook.Close
.DisplayAlerts = True
End With
Else
arrVisibleSheets = Array(Лист1, Лист2, Лист3) 'Видимые листы
arrHiddenSheets = Array(Лист4, Лист5, Лист6) 'Скрытые листы
For Each sh In arrVisibleSheets
sh.Visible = xlSheetVisible
Next sh
For Each sh In arrHiddenSheets
sh.Visible = xlSheetVeryHidden
Next sh
Windows(ThisWorkbook.Name).Visible = True
End If
End Sub
[/vba]
[moder]Для оформления кода используйте кнопку #[/moder]
Автор - degalo
Дата добавления - 24.03.2016 в 13:47
Nic70y Дата: Четверг, 24.03.2016, 14:09 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8752
Репутация: 2270 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Private Sub Workbook_Open()
    u = CreateObject("Scripting.FileSystemObject").GetDrive("C").SerialNumber
    If u <> тут_серийный_номер Then ActiveWindow.Close 'или другое действие
End Sub
[/vba]

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Четверг, 24.03.2016, 14:10
 
Ответить
Сообщение[vba]
Код
Private Sub Workbook_Open()
    u = CreateObject("Scripting.FileSystemObject").GetDrive("C").SerialNumber
    If u <> тут_серийный_номер Then ActiveWindow.Close 'или другое действие
End Sub
[/vba]
Автор - Nic70y
Дата добавления - 24.03.2016 в 14:09
Alex_ST Дата: Четверг, 24.03.2016, 14:12 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3206
Репутация: 609 ±
Замечаний: 0% ±

2003
Не успел... :'(
[vba]
Код
Sub Auto_Open()
   Const sSN$ = "180770343"
   With CreateObject("Scripting.FileSystemObject").GetDrive("C")
      If .SerialNumber <> sSN Then ActiveWindow.Close
   End With
End Sub
[/vba]


С уважением,
Алексей
MS Excel 2003 - the best!!!

Сообщение отредактировал Alex_ST - Четверг, 24.03.2016, 14:18
 
Ответить
СообщениеНе успел... :'(
[vba]
Код
Sub Auto_Open()
   Const sSN$ = "180770343"
   With CreateObject("Scripting.FileSystemObject").GetDrive("C")
      If .SerialNumber <> sSN Then ActiveWindow.Close
   End With
End Sub
[/vba]
Автор - Alex_ST
Дата добавления - 24.03.2016 в 14:12
degalo Дата: Четверг, 24.03.2016, 14:31 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 1 ±
Замечаний: 0% ±

Excel 2013
Nic70y, Спасибо огромное! А возможно сделать так чтобы еще вместе с закрытием книги , было запрещенно макросы редактировать? А то нажимаешь alt+ f 11 и удаляешь весь код((((
 
Ответить
СообщениеNic70y, Спасибо огромное! А возможно сделать так чтобы еще вместе с закрытием книги , было запрещенно макросы редактировать? А то нажимаешь alt+ f 11 и удаляешь весь код((((
Автор - degalo
Дата добавления - 24.03.2016 в 14:31
Udik Дата: Четверг, 24.03.2016, 14:43 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация: 192 ±
Замечаний: 0% ±

Excel 2016 х 64
А что будет, если отключить запуск макросов и открыть книгу экселем?

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
СообщениеА что будет, если отключить запуск макросов и открыть книгу экселем?
Автор - Udik
Дата добавления - 24.03.2016 в 14:43
Manyasha Дата: Четверг, 24.03.2016, 14:49 | Сообщение № 6
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Цитата degalo, 24.03.2016 в 14:31, в сообщении № 4
запрещенно макросы редактировать

Поставьте пароль на VBA Project: Tools - VBAProject properties

ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщение
Цитата degalo, 24.03.2016 в 14:31, в сообщении № 4
запрещенно макросы редактировать

Поставьте пароль на VBA Project: Tools - VBAProject properties
Автор - Manyasha
Дата добавления - 24.03.2016 в 14:49
degalo Дата: Четверг, 24.03.2016, 15:14 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 1 ±
Замечаний: 0% ±

Excel 2013
Udik, Мне это не страшно. У меня вся программа работает на макросах, если их отключить, то скрывать нечего, она не будет работать
 
Ответить
СообщениеUdik, Мне это не страшно. У меня вся программа работает на макросах, если их отключить, то скрывать нечего, она не будет работать
Автор - degalo
Дата добавления - 24.03.2016 в 15:14
degalo Дата: Четверг, 24.03.2016, 15:15 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 1 ±
Замечаний: 0% ±

Excel 2013
Manyasha, а можно поподробнее? Куда вписывать пароль?
 
Ответить
СообщениеManyasha, а можно поподробнее? Куда вписывать пароль?
Автор - degalo
Дата добавления - 24.03.2016 в 15:15
Manyasha Дата: Четверг, 24.03.2016, 15:43 | Сообщение № 9
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
degalo, Заходите в редактор VBA (alt+f11) - вкладка tools - VBAProject properties - вкладка protection - ставите галочку lock project for viewing и в поля password и confirm password вписываете свой пароль.

ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеdegalo, Заходите в редактор VBA (alt+f11) - вкладка tools - VBAProject properties - вкладка protection - ставите галочку lock project for viewing и в поля password и confirm password вписываете свой пароль.
Автор - Manyasha
Дата добавления - 24.03.2016 в 15:43
SLAVICK Дата: Четверг, 24.03.2016, 15:43 | Сообщение № 10
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Цитата degalo, 24.03.2016 в 15:15, в сообщении № 8
Куда вписывать пароль?

Вот:
К сообщению приложен файл: 2863641.jpg (36.0 Kb)

Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщение
Цитата degalo, 24.03.2016 в 15:15, в сообщении № 8
Куда вписывать пароль?

Вот:
Автор - SLAVICK
Дата добавления - 24.03.2016 в 15:43
778859 Дата: Пятница, 28.10.2016, 13:41 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
Добрый день! Все поняли, а я увы нет. 1)Где брать серийник диска "С" например (вроде нашел в АИДА64 инфу-см. файл), 2)Куда вставлять написали добрые люди. Вставляю пишет сразу красным, что ошибка (может у кого - нибудь есть файлик с образцом). Извините - чайник.
К сообщению приложен файл: 0144109.jpg (55.6 Kb)
 
Ответить
СообщениеДобрый день! Все поняли, а я увы нет. 1)Где брать серийник диска "С" например (вроде нашел в АИДА64 инфу-см. файл), 2)Куда вставлять написали добрые люди. Вставляю пишет сразу красным, что ошибка (может у кого - нибудь есть файлик с образцом). Извините - чайник.
Автор - 778859
Дата добавления - 28.10.2016 в 13:41
buchlotnik Дата: Пятница, 28.10.2016, 14:04 | Сообщение № 12
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
Цитата
Где брать серийник диска "С"

[vba]
Код
Sub serial()
    MsgBox CreateObject("Scripting.FileSystemObject").GetDrive("C").SerialNumber
End Sub
[/vba]


Сообщение отредактировал buchlotnik - Пятница, 28.10.2016, 14:04
 
Ответить
Сообщение
Цитата
Где брать серийник диска "С"

[vba]
Код
Sub serial()
    MsgBox CreateObject("Scripting.FileSystemObject").GetDrive("C").SerialNumber
End Sub
[/vba]
Автор - buchlotnik
Дата добавления - 28.10.2016 в 14:04
Pelena Дата: Пятница, 28.10.2016, 14:04 | Сообщение № 13
Группа: Админы
Ранг: Местный житель
Сообщений: 19174
Репутация: 4413 ±
Замечаний: ±

Excel 365 & Mac Excel
Цитата 778859, 28.10.2016 в 13:41, в сообщении № 11
Где брать серийник диска "С"

http://www.excelworld.ru/forum/2-7082-68410-16-1383635540

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
Цитата 778859, 28.10.2016 в 13:41, в сообщении № 11
Где брать серийник диска "С"

http://www.excelworld.ru/forum/2-7082-68410-16-1383635540
Автор - Pelena
Дата добавления - 28.10.2016 в 14:04
SEGA8142 Дата: Пятница, 21.05.2021, 10:54 | Сообщение № 14
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Ребята помогите пожалуйста! Есть лист его нужно привязать к жесткому диску. Я пишу как тут и при неверном номере диска он закрывается и предлагает сохранить не сохранить изменения или отмена. Так вот нужно сделать так чтобы если номер не верный он просто закрывался ну или стирал все данные. Так как при нажатии кнопки отмена книга остается открытой и с ней можно работать.
 
Ответить
СообщениеРебята помогите пожалуйста! Есть лист его нужно привязать к жесткому диску. Я пишу как тут и при неверном номере диска он закрывается и предлагает сохранить не сохранить изменения или отмена. Так вот нужно сделать так чтобы если номер не верный он просто закрывался ну или стирал все данные. Так как при нажатии кнопки отмена книга остается открытой и с ней можно работать.
Автор - SEGA8142
Дата добавления - 21.05.2021 в 10:54
Serge_007 Дата: Пятница, 21.05.2021, 11:09 | Сообщение № 15
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата SEGA8142, 21.05.2021 в 10:54, в сообщении № 14 ()
если номер не верный он просто закрывался
Цитата degalo, 24.03.2016 в 13:47, в сообщении № 1 ()
[vba]
Код
With Application
.DisplayAlerts = False
ThisWorkbook.Close
.DisplayAlerts = True
End With
[/vba]
Вот эта часть кода принудительно закрывает книгу без системного сообщения о сохранении

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата SEGA8142, 21.05.2021 в 10:54, в сообщении № 14 ()
если номер не верный он просто закрывался
Цитата degalo, 24.03.2016 в 13:47, в сообщении № 1 ()
[vba]
Код
With Application
.DisplayAlerts = False
ThisWorkbook.Close
.DisplayAlerts = True
End With
[/vba]
Вот эта часть кода принудительно закрывает книгу без системного сообщения о сохранении
Автор - Serge_007
Дата добавления - 21.05.2021 в 11:09
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Пароль на книгу по серийному номеру диска (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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