|
Снятия защиты листа
|
|
|
Shaxislam |
Дата: Четверг, 12.05.2016, 21:35 |
Сообщение № 1 |
|
|
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация:
0
±
Замечаний:
0% ±
Excel 2013 | |
Подскажите, пожалуйста как писать несколько вариантов пароля
нужен для надстройка
[vba]Код ActiveSheet.Unprotect Password:= "0", "00", "123"
Подскажите, пожалуйста как писать несколько вариантов пароля
нужен для надстройка
[vba]Код ActiveSheet.Unprotect Password:= "0", "00", "123"
Сообщение отредактировал Shaxislam - Четверг, 12.05.2016, 21:42 |
| |
| Ответить
|
|
SLAVICK |
Дата: Четверг, 12.05.2016, 21:40 |
Сообщение № 2 |
|
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация:
766
±
Замечаний:
0% ±
2019 | |
писать несколько вариантов пароля
У листа только один вариант пароля - что Вы пытаетесь сделать? писать несколько вариантов пароля
У листа только один вариант пароля - что Вы пытаетесь сделать?SLAVICK
Иногда все проще чем кажется с первого взгляда.
|
| |
| Ответить
|
|
Shaxislam |
Дата: Четверг, 12.05.2016, 21:43 |
Сообщение № 3 |
|
|
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация:
0
±
Замечаний:
0% ±
Excel 2013 | |
нужен для надстройка
|
| |
| Ответить
|
|
SLAVICK |
Дата: Четверг, 12.05.2016, 21:55 |
Сообщение № 4 |
|
|
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация:
766
±
Замечаний:
0% ±
2019 | |
Еще раз спрошучто Вы пытаетесь сделать?
предположу что снять с разных листов, тогда так:
[vba]Код Sub d()
Sheets(1).Unprotect Password:="0"
Sheets(2).Unprotect Password:="00"
Sheets(3).Unprotect Password:="123"
End Sub
Еще раз спрошучто Вы пытаетесь сделать?
предположу что снять с разных листов, тогда так:
[vba]Код Sub d()
Sheets(1).Unprotect Password:="0"
Sheets(2).Unprotect Password:="00"
Sheets(3).Unprotect Password:="123"
End Sub
Иногда все проще чем кажется с первого взгляда.
|
| |
| Ответить
|
|
Shaxislam |
Дата: Четверг, 12.05.2016, 22:01 |
Сообщение № 5 |
|
|
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация:
0
±
Замечаний:
0% ±
Excel 2013 | |
нужно для разных книги, (это макрос для надстройка (XLA)
нужно для разных книги, (это макрос для надстройка (XLA)Shaxislam
|
| |
| Ответить
|
|
Shaxislam |
Дата: Четверг, 12.05.2016, 22:08 |
Сообщение № 6 |
|
|
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация:
0
±
Замечаний:
0% ±
Excel 2013 | |
У меня есть несколько книги и их пароль только 00 или 123 или 0
У меня есть несколько книги и их пароль только 00 или 123 или 0Shaxislam
|
| |
| Ответить
|
|
Саня |
Дата: Пятница, 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]Код 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
как?Саня
|
| |
| Ответить
|
|
Shaxislam |
Дата: Пятница, 13.05.2016, 08:20 |
Сообщение № 8 |
|
|
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация:
0
±
Замечаний:
0% ±
Excel 2013 | |
Саня, работает спасибо 
|
| |
| Ответить
|
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
