Определить защищен ли лист

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Определить защищен ли лист (Макросы/Sub)

Nic70y

Дата: Понедельник, 12.12.2016, 19:16 | Сообщение № 1

Группа: Друзья

Ранг: Экселист

Сообщений: 9226

Репутация: 2479 ±

Замечаний: 0% ±

Excel 2010

Здрасте!
Очередной раз помогите тупорылому (пжл)
Не могу сёдня гуглить (пришлось 0,3 коньяка выпить - не соображаю, ну вынудили, если бы не вынуждали выпил бы 0,5 пива да и все)
Как програмно определить защищен ли лист.

ЮMoney 41001841029809

Ответить

Саня

Дата: Понедельник, 12.12.2016, 19:29 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

[vba]

Код

ActiveSheet.ProtectContents

[/vba]

Ответить

_Boroda_

Дата: Понедельник, 12.12.2016, 19:31 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

Репутация: 6667 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Это нужно?
[vba]

Код

z_ = ActiveSheet.ProtectContents

[/vba]
True - защищен
False - не защищен

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Wasilich

Дата: Понедельник, 12.12.2016, 20:07 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

Репутация: 326 ±

Замечаний: 0% ±

2003

Ну, а совсем правильно

[vba]

Код

If Worksheets(1).ProtectContents = True Then
MsgBox "Да"
Else
MsgBox "Нет"
End If

[/vba]
[p.s.]С праздником!

[/p.s.]

Сообщение отредактировал Wasilich - Понедельник, 12.12.2016, 20:11

Ответить

Nic70y

Дата: Понедельник, 12.12.2016, 20:54 | Сообщение № 5

Группа: Друзья

Ранг: Экселист

Сообщений: 9226

Репутация: 2479 ±

Замечаний: 0% ±

Excel 2010

Wasilich, спасибо.

Цитата Wasilich, 12.12.2016 в 20:07, в сообщении № 4 ()

MsgBox

мне не нужен

Цитата Wasilich, 12.12.2016 в 20:07, в сообщении № 4 ()

С праздником!

с каким?

ЮMoney 41001841029809

Ответить

Kuzmich

Дата: Понедельник, 12.12.2016, 21:30 | Сообщение № 6

Группа: Проверенные

Ранг: Ветеран

Сообщений: 717

Репутация: 159 ±

Замечаний: 0% ±

Excel 2003

Цитата

с каким?

12 декабря в России ежегодно отмечается День Конституции
Источник: http://ppt.ru/news/102190

Ответить

Nic70y

Дата: Понедельник, 12.12.2016, 21:37 | Сообщение № 7

Группа: Друзья

Ранг: Экселист

Сообщений: 9226

Репутация: 2479 ±

Замечаний: 0% ±

Excel 2010

Kuzmich, точно, забыл (заработался),
у меня сёдня ед-й выходной (на неделе) и то пришлось выйти на работу
- сплит систему устанавливали, к зиме готовимся, она у нас еще не наступила,
ждем изо дня на день.

ЮMoney 41001841029809

Ответить

Определить защищен ли лист (Макросы/Sub)

Страница 1 из 1
1