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

Вход

Регистрация

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

 

= Мир MS Excel/Снятия защиты листа - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Снятия защиты листа (Макросы/Sub)
Снятия защиты листа
Shaxislam Дата: Четверг, 12.05.2016, 21:35 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Подскажите, пожалуйста как писать несколько вариантов пароля
нужен для надстройка
[vba]
Код
ActiveSheet.Unprotect Password:= "0", "00", "123"
[/vba] не получается


Сообщение отредактировал Shaxislam - Четверг, 12.05.2016, 21:42
 
Ответить
СообщениеПодскажите, пожалуйста как писать несколько вариантов пароля
нужен для надстройка
[vba]
Код
ActiveSheet.Unprotect Password:= "0", "00", "123"
[/vba] не получается

Автор - Shaxislam
Дата добавления - 12.05.2016 в 21:35
SLAVICK Дата: Четверг, 12.05.2016, 21:40 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 1922
Репутация: 650 ±
Замечаний: 0% ±

2007,2010,2013,2016
писать несколько вариантов пароля

У листа только один вариант пароля - что Вы пытаетесь сделать?


Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщение
писать несколько вариантов пароля

У листа только один вариант пароля - что Вы пытаетесь сделать?

Автор - SLAVICK
Дата добавления - 12.05.2016 в 21:40
Shaxislam Дата: Четверг, 12.05.2016, 21:43 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
нужен для надстройка
 
Ответить
Сообщениенужен для надстройка

Автор - Shaxislam
Дата добавления - 12.05.2016 в 21:43
SLAVICK Дата: Четверг, 12.05.2016, 21:55 | Сообщение № 4
Группа: Модераторы
Ранг: Старожил
Сообщений: 1922
Репутация: 650 ±
Замечаний: 0% ±

2007,2010,2013,2016
нужен для надстройка

Еще раз спрошу
что Вы пытаетесь сделать?

предположу что снять с разных листов, тогда так:
[vba]
Код
Sub d()
Sheets(1).Unprotect Password:="0"
Sheets(2).Unprotect Password:="00"
Sheets(3).Unprotect Password:="123"
End Sub
[/vba]


Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщение
нужен для надстройка

Еще раз спрошу
что Вы пытаетесь сделать?

предположу что снять с разных листов, тогда так:
[vba]
Код
Sub d()
Sheets(1).Unprotect Password:="0"
Sheets(2).Unprotect Password:="00"
Sheets(3).Unprotect Password:="123"
End Sub
[/vba]

Автор - SLAVICK
Дата добавления - 12.05.2016 в 21:55
Shaxislam Дата: Четверг, 12.05.2016, 22:01 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
нужно для разных книги, (это макрос для надстройка (XLA)
 
Ответить
Сообщениенужно для разных книги, (это макрос для надстройка (XLA)

Автор - Shaxislam
Дата добавления - 12.05.2016 в 22:01
Shaxislam Дата: Четверг, 12.05.2016, 22:08 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
У меня есть несколько книги и их пароль только 00 или 123 или 0
 
Ответить
СообщениеУ меня есть несколько книги и их пароль только 00 или 123 или 0

Автор - Shaxislam
Дата добавления - 12.05.2016 в 22:08
Саня Дата: Пятница, 13.05.2016, 00:05 | Сообщение № 7
Группа: Друзья
Ранг: Ветеран
Сообщений: 1029
Репутация: 526 ±
Замечаний: 0% ±

XL 2010
[vba]
Код
on error resume next

dim av, iU As integer, i As integer
av = split("0 00 123")
iU = ubound(av)

dim wb As workbook, sh As worksheet

for each wb in workbooks
for each sh in wb.worksheets
for i = 0 to iU
sh.unprotect av(i)
next i
next sh
next wb
[/vba]

как?
 
Ответить
Сообщение[vba]
Код
on error resume next

dim av, iU As integer, i As integer
av = split("0 00 123")
iU = ubound(av)

dim wb As workbook, sh As worksheet

for each wb in workbooks
for each sh in wb.worksheets
for i = 0 to iU
sh.unprotect av(i)
next i
next sh
next wb
[/vba]

как?

Автор - Саня
Дата добавления - 13.05.2016 в 00:05
Shaxislam Дата: Пятница, 13.05.2016, 08:20 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Саня, работает спасибо hands
 
Ответить
СообщениеСаня, работает спасибо hands

Автор - Shaxislam
Дата добавления - 13.05.2016 в 08:20
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Снятия защиты листа (Макросы/Sub)
Страница 1 из 11
Поиск:

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