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

Вход

Регистрация

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

 

= Мир MS Excel/Возобновление защиты листов при закрытии excel - Страница 2 - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 2 из 2«12
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Возобновление защиты листов при закрытии excel (Формулы/Formulas)
Возобновление защиты листов при закрытии excel
Killerlord Дата: Среда, 17.02.2016, 10:57 | Сообщение № 21
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 80% ±

Excel 2007
Вопрос еще в силе, я прописал код в книгу
[vba]
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For i = 1 To Sheets.Count
    Sheets(i).Protect
    Next i
End Sub
[/vba]
После этого кода у меня заработала защита, но защита без пароля. Просто нажимаю снять защиту и пароль не запрашивается.
Если еще идеи как можно это сделать ?
 
Ответить
СообщениеВопрос еще в силе, я прописал код в книгу
[vba]
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For i = 1 To Sheets.Count
    Sheets(i).Protect
    Next i
End Sub
[/vba]
После этого кода у меня заработала защита, но защита без пароля. Просто нажимаю снять защиту и пароль не запрашивается.
Если еще идеи как можно это сделать ?

Автор - Killerlord
Дата добавления - 17.02.2016 в 10:57
Апострофф Дата: Среда, 17.02.2016, 11:08 | Сообщение № 22
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: 28 ±
Замечаний: 0% ±

Excel 2003
[vba]
Код
Sheets(i).Protect "Пароль"
[/vba]и на всех листах будет указанный Пароль
 
Ответить
Сообщение[vba]
Код
Sheets(i).Protect "Пароль"
[/vba]и на всех листах будет указанный Пароль

Автор - Апострофф
Дата добавления - 17.02.2016 в 11:08
Wasilich Дата: Среда, 17.02.2016, 20:12 | Сообщение № 23
Группа: Друзья
Ранг: Старожил
Сообщений: 1195
Репутация: 316 ±
Замечаний: 0% ±

2003
нажимаю снять защиту и пароль не запрашивается.
Так запишите:
[vba]
Код
Sheets(i).Protect Password:="123"
[/vba]


Сообщение отредактировал Wasilic - Среда, 17.02.2016, 20:14
 
Ответить
Сообщение
нажимаю снять защиту и пароль не запрашивается.
Так запишите:
[vba]
Код
Sheets(i).Protect Password:="123"
[/vba]

Автор - Wasilich
Дата добавления - 17.02.2016 в 20:12
Udik Дата: Среда, 17.02.2016, 21:40 | Сообщение № 24
Группа: Друзья
Ранг: Старожил
Сообщений: 1589
Репутация: 192 ±
Замечаний: 0% ±

Excel 2016 х 64
Прописал в листе, нечего не меняется.

А макрос-то запускали после записи? Я на своем проверял -всё работает.
К сообщению приложен файл: 5554116.xlsb(15Kb)


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
Сообщение
Прописал в листе, нечего не меняется.

А макрос-то запускали после записи? Я на своем проверял -всё работает.

Автор - Udik
Дата добавления - 17.02.2016 в 21:40
dima681 Дата: Среда, 17.02.2016, 22:33 | Сообщение № 25
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
у меня тоже работает 5554116.xlsb пароль запрашивает


Дмитрий Николаевич Воронов
 
Ответить
Сообщениеу меня тоже работает 5554116.xlsb пароль запрашивает

Автор - dima681
Дата добавления - 17.02.2016 в 22:33
StoTisteg Дата: Четверг, 18.02.2016, 00:01 | Сообщение № 26
Группа: Авторы
Ранг: Ветеран
Сообщений: 541
Репутация: 45 ±
Замечаний: 0% ±

Excel 2010
При снятии защиты он сразу снимает защиту и не требует пароль

А Вы его ставили? Вы просили защиты от случайного изменения, защита без пароля её даёт.


Проверь всё. ThisWorkbook.Save. On Error Resume Next.
 
Ответить
Сообщение
При снятии защиты он сразу снимает защиту и не требует пароль

А Вы его ставили? Вы просили защиты от случайного изменения, защита без пароля её даёт.

Автор - StoTisteg
Дата добавления - 18.02.2016 в 00:01
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Возобновление защиты листов при закрытии excel (Формулы/Formulas)
Страница 2 из 2«12
Поиск:

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