Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Как проверить включена защита листа или нет?
 
#1
02.07.2010 15:54:52
Вопрос в теме.
 
 
 
#2
02.07.2010 15:59:30
{quote}{login=Konstantin_}{date=02.07.2010 03:54}{thema=Как проверить включена защита листа или нет?}{post}Вопрос в теме.{/post}{/quote}  
Я имел в виду мредствами VBA :-)
 
 
 
#3
02.07.2010 16:00:26
Сервис - Защита  
Если вариант "Снять защиту листа", значит стоит защита, если "Защитить лист" - не стоит.
 
 
 
#4
02.07.2010 16:23:00
В качестве размышлений можно так:  
Function IsProtect(sh As Worksheet) As Boolean  
   On Error GoTo errh  
       sh.Cells(Rows.Count, Columns.Count) = sh.Cells(Rows.Count, Columns.Count)  
       IsProtect = False  
       Exit Function  
errh:  
       IsProtect = True  
End Function
 
 
 
#5
02.07.2010 16:58:11
Sub Макрос1()  
   If ActiveSheet.ProtectContents = False Then  
       MsgBox "Лист не защищён!", vbInformation, ""  
   Else  
       MsgBox "Лист защищён паролем!", vbExclamation, ""  
   End If  
End Sub
 
 
 
#6
02.07.2010 17:04:38
{quote}{login=}{date=02.07.2010 04:58}{thema=}{post}Sub Макрос1()  
   If ActiveSheet.ProtectContents = False Then  
       MsgBox "Лист не защищён!", vbInformation, ""  
   Else  
       MsgBox "Лист защищён паролем!", vbExclamation, ""  
   End If  
End Sub{/post}{/quote}  
 
век живи...
 
 
 
#7
02.07.2010 17:12:09
sub Protect()  
If Worksheets(1).ProtectedContens Then  
MsgBox "Защита включена"  
Else  
MsgBox"Защита не включена"  
End If  
End Sub  
 
А. Гладкий, А. Чиртик  
Трюки и эффекты в Excel 99-я страница...
 
 
 
#8
02.07.2010 17:20:04
{quote}{login=Serge 007}{date=02.07.2010 05:12}{thema=}{post}sub Protect()  
If Worksheets(1).ProtectedContens Then  
MsgBox "Защита включена"  
Else  
MsgBox"Защита не включена"  
End If  
End Sub  
 
А. Гладкий, А. Чиртик  
Трюки и эффекты в Excel 99-я страница...{/post}{/quote}  
 
и правда :)
 
 
 
#9
02.07.2010 18:21:46
Serge 007, ваш код не будет работать (вы его выложили и не попробовали сами)  
 
Ошибка будет вот на этой строке    
 
If Worksheets(1).ProtectedContens Then  
 
т.к. нет такого свойства "ProtectedContens". Тут 3 ошибки  
 
правильно свойство называется "ProtectContents" и строка должна быть  
 
If Worksheets(1).ProtectContents Then    
 
т.е. так, как я указал в своём посте выше  
 
т.е. (будем считать, что вы просто скопировали с указанной вами книги) товарищи А. Гладкий, А. Чиртик в книге "Трюки и эффекты в Excel" нагло врут на  99-й странице...
 
 
 
#10
02.07.2010 18:26:58
{quote}{login=}{date=02.07.2010 06:21}{thema=}{post}  
{/post}{/quote}А у Вас Экс какой?
 
 
 
#11
02.07.2010 18:27:46
Excel 2003
 
 
 
#12
02.07.2010 18:30:26
{quote}{login=}{date=02.07.2010 06:27}{thema=}{post}Excel 2003{/post}{/quote}  
Так вот о чём Климов писал :-)  
 
http://msoffice.nm.ru/
 
 
 
#13
02.07.2010 18:32:55
угу )  
 
 
P.S. Интересно они, что тупо не могли с его сайта скопировать (Ctrl+C, Ctrl+V), а вручную перебивали, что допустили такие глупые ошибки )  
 
Pavel55
 
 
 
#14
02.07.2010 18:37:17
{quote}{login=}{date=02.07.2010 06:32}{thema=}{post}угу )  
 
 
P.S. Интересно они, что тупо не могли с его сайта скопировать (Ctrl+C, Ctrl+V), а вручную перебивали, что допустили такие глупые ошибки )  
 
Pavel55{/post}{/quote}Я правда не пробовал, потому как мне не надо, да и печатным изданиям, да ещё за 370 руб, привык доверять...  
Видимо зря :-(
 
 
 
#15
02.07.2010 18:39:13
Блин, это мне теперь что всё проверять что-ли?  
Я книг пятьдесят скачал для своего сайта и что мне каждую смотреть?..  
Блин это пару лет займёт...
 
 
 
#16
02.07.2010 18:41:13
{quote}{login=}{date=02.07.2010 06:32}{thema=}{post}  
 
Pavel55{/post}{/quote}Павел, здравствуйте!  
Может хорош шифроваться?    
Мы никому не скажем :-)
 
 
 
#17
03.07.2010 00:09:48
Добрый день, Сергей.    
Ну, что я тут могу ответить ) Просмотрев все 50 книг - вы станете профессионалом из профессионалов ))  
 
P.S. Я чисто случайно заметил, что у вас другое свойство написано) Может это только в этой книге такие косяки, а во всех других всё правильно )
 
 
 
Страницы: 1
Читают тему
Наверх