Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Защита Exel
 
#1
19.12.2010 10:02:03
Будете смеяться но,.. Попробовал защитить РАБОТАЕТ, только вот как теперь документ открыть.  
Номер у меня C4B983A7.  
Способ должен быть, остановить выполнение макроса????  
 
Private Sub Workbook_Open()  
If Hex$(CreateObject("Scripting.FileSystemObject").GetDrive("C").SerialNumber) <> BE164BD1 Then  
ThisWorkbook.Close False  
End If  
End Sub
 
 
 
#2
19.12.2010 10:38:23
Способ, конечно, есть.  
Отключите макросы, откройте файл "защищённый" файл, внесите изменения в код, снова включите макросы.  
 
PS: Для включения / отключения макросов требуется перезапуск Excel
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#3
19.12.2010 10:41:49
Обратите внимание - BE164BD1 в коде надо ставить в кавычки.  
Сейчас же сравнение идёт со значением переменной BE164BD1, значение которой равно пустой строке.  
Таким образом, файл будет закрываться при любом серийном номере HDD  
 
Правильно будет так:  
If Hex$(CreateObject("Scripting.FileSystemObject").GetDrive("C").SerialNumber) <> "BE164BD1" Then  
ThisWorkbook.Close False  
End If
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#4
19.12.2010 12:34:59
EducatedFool, спасибо работает.  
А можно перечислить серийники для 2 HDD? 2 разных компа. Если можно подскажите.
 
 
 
#5
19.12.2010 13:00:37
А ничего, что ув. EducatedFool описал Вам, как такая защита за 3 секунды отключается?
Я сам - дурнее всякого примера! ...
 
 
 
#6
19.12.2010 13:04:23
Тогда добавьте ещё одно условие в проверку:  
If Hex$(CreateObject("Scripting.FileSystemObject").GetDrive("C").SerialNumber) <> "BE164BD1" Or <Второе условие> Then
 
 
 
#7
19.12.2010 13:08:38
{quote}{login=Юрий М}{date=19.12.2010 01:04}{thema=}{post}Тогда добавьте ещё одно условие в проверку:  
If Hex$(CreateObject("Scripting.FileSystemObject").GetDrive("C").SerialNumber) <> "BE164BD1" Or <Второе условие> Then{/post}{/quote}Не Юр, так:  
Private Sub Workbook_Open()  
If Not (Hex$(CreateObject("Scripting.FileSystemObject").GetDrive("C").SerialNumber) = "BE164BD1" _  
Or Hex$(CreateObject("Scripting.FileSystemObject").GetDrive("C").SerialNumber) = "C4B983A7") Then  
ThisWorkbook.Close False  
End If  
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#8
19.12.2010 13:13:21
Дима исправил свой пост:-)
Я сам - дурнее всякого примера! ...
 
 
 
#9
19.12.2010 13:16:54
{quote}{login=KukLP}{date=19.12.2010 01:08}{thema=Re: }{post}{quote}{login=Юрий М}{date=19.12.2010 01:04}{thema=}{post}Тогда добавьте ещё одно условие в проверку:  
If Hex$(CreateObject("Scripting.FileSystemObject").GetDrive("C").SerialNumber) <> "BE164BD1" Or <Второе условие> Then{/post}{/quote}Не Юр, так:  
Private Sub Workbook_Open()  
If Not (Hex$(CreateObject("Scripting.FileSystemObject").GetDrive("C").SerialNumber) = "BE164BD1" _  
Or Hex$(CreateObject("Scripting.FileSystemObject").GetDrive("C").SerialNumber) = "C4B983A7") Then  
ThisWorkbook.Close False  
End If  
End Sub{/post}{/quote}  
Дык и я о том же :-)
 
 
 
Страницы: 1
Читают тему
Наверх