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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир 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
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Цитата Shaxislam, 12.05.2016 в 21:35, в сообщении № 1
писать несколько вариантов пароля

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

Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщение
Цитата Shaxislam, 12.05.2016 в 21:35, в сообщении № 1
писать несколько вариантов пароля

У листа только один вариант пароля - что Вы пытаетесь сделать?
Автор - 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
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Цитата Shaxislam, 12.05.2016 в 21:43, в сообщении № 3
нужен для надстройка

Еще раз спрошу
Цитата SLAVICK, 12.05.2016 в 21:40, в сообщении № 2
что Вы пытаетесь сделать?

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

Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщение
Цитата Shaxislam, 12.05.2016 в 21:43, в сообщении № 3
нужен для надстройка

Еще раз спрошу
Цитата SLAVICK, 12.05.2016 в 21:40, в сообщении № 2
что Вы пытаетесь сделать?

предположу что снять с разных листов, тогда так:
[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
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
[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 из 1
  • 1
Поиск:

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