Возобновление защиты листов при закрытии excel

Дата: Воскресенье, 14.02.2016, 18:21 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

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

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

Excel 2007

Добрый вечер, у меня такая задача -
Какой макрос надо вписать чтоб при закрытии документа возобновлялась защита листов ?

Дата: Воскресенье, 14.02.2016, 19:00 | Сообщение № 2

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

как-то так [vba]

Код

Private Sub Workbook_BeforeClose(Cancel As Boolean)
For i = 1 To Sheets.Count
Sheets(i).Protect
Next i
End Sub

[/vba]

Дата: Воскресенье, 14.02.2016, 19:25 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 41

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

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

Excel 2013

не работает макрос

Дмитрий

Дата: Воскресенье, 14.02.2016, 19:42 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

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

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

Excel 2007

buchlotnik, i что означает ?

Дата: Воскресенье, 14.02.2016, 19:49 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

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

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

Excel 2007

Макрос добавил, но когда снял защиту... сохранил.. и по новой открываю документ то защита не активна на листе где снимал
[moder]Общий ответ Вам дали. Если что-то не выходит - вкладывайте пример согласно правил[/moder]

Сообщение отредактировал SLAVICK - Воскресенье, 14.02.2016, 20:24

Nic70y

Дата: Воскресенье, 14.02.2016, 20:05 | Сообщение № 6

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

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

Сообщений: 8759

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

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

Excel 2010

Цитата Killerlord, 14.02.2016 в 19:49, в сообщении № 5

Макрос добавил

в модуль книги?

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Воскресенье, 14.02.2016, 20:45

Дата: Воскресенье, 14.02.2016, 20:17 | Сообщение № 7

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

Killerlord, i - номер листа, код куда добавили?
где файл, в котором не работает?
dima681, а я бы не был столь категоричен

Сообщение отредактировал buchlotnik - Воскресенье, 14.02.2016, 20:25

Дата: Воскресенье, 14.02.2016, 20:30 | Сообщение № 8

Группа: Пользователи

Ранг: Новичок

Сообщений: 41

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

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

Excel 2013

магу вылажить файл

Дмитрий

Сообщение отредактировал dima681 - Воскресенье, 14.02.2016, 20:30

Дата: Воскресенье, 14.02.2016, 20:32 | Сообщение № 9

Группа: Пользователи

Ранг: Новичок

Сообщений: 41

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

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

Excel 2013

вот файл
[moder]Файл это хорошо - а вопрос где?[/moder]

К сообщению приложен файл: ____c_.xlsm (96.4 Kb)

Дмитрий

Сообщение отредактировал SLAVICK - Воскресенье, 14.02.2016, 20:36

Дата: Воскресенье, 14.02.2016, 20:34 | Сообщение № 10

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

и чего вы хотите от процедуры обработки события закрытия книги в модуле листа?

Дата: Воскресенье, 14.02.2016, 20:42 | Сообщение № 11

Группа: Пользователи

Ранг: Новичок

Сообщений: 41

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

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

Excel 2013

ну в идеале хотелось бы чтоб строки с формулами мог редактировать только я, а ячейки года и месяца мог изменять другой человек и в случае если по какой-то причине я забыл закрыт доступ к изменению ячеек с формулами он закрывался сам при сохранении книги
[moder] dima681, а Вы зачем вклинились в чужую тему со своими проблемами? Замечание Вам за нарушение п. 5q Правил форума[/moder]

Дмитрий

Сообщение отредактировал Pelena - Воскресенье, 14.02.2016, 20:54

SLAVICK

Дата: Воскресенье, 14.02.2016, 21:06 | Сообщение № 12

Группа: Модераторы

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

Сообщений: 2290

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

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

2019

dima681, Ваш вопрос не соответствует названию, кстати сказать, не вашей темы.
Поэтому ответ только по части темы:
Макрос нужно было положить в модуль книги а не листа.
Как защитить только нужные ячейки можно почитать, к примеру тут, или воспользуйтесь поиском такие темы уже были неоднократно.

К сообщению приложен файл: _c-3-.xlsm (90.7 Kb)

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

Дата: Воскресенье, 14.02.2016, 21:07 | Сообщение № 13

Группа: Пользователи

Ранг: Новичок

Сообщений: 41

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

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

Excel 2013

у нас сходные проблемы и мне и ему надо чтоб пароль на книге или листе при закрытии книги восстанавливался и книга при последующем открытии без снятия пароля не редактировалась так-что если человек сделает макрос для меня то это макрос подойдёт и создателю темы

Дмитрий

Дата: Воскресенье, 14.02.2016, 21:10 | Сообщение № 14

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

Цитата

если человек сделает макрос

я его и сделал

разбираться вы не стали

Дата: Воскресенье, 14.02.2016, 22:00 | Сообщение № 15

Группа: Пользователи

Ранг: Новичок

Сообщений: 41

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

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

Excel 2013

нууууу принципе вот то что вы выложили в : _c-3-.xlsm полнее подойдет вот только не понял куда вы вставили макрос расскажите чтобы и тот кто создавал тему мог им воспользаваться
[moder]Ответ на этот вопрос прозвучал в теме как минимум дважды. Не читатель?[/moder]

Дмитрий

Сообщение отредактировал Pelena - Воскресенье, 14.02.2016, 22:05

Дата: Вторник, 16.02.2016, 17:31 | Сообщение № 16

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

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

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

Excel 2007

да ,добавил в модуль книги

Дата: Вторник, 16.02.2016, 19:50 | Сообщение № 17

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

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

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

Excel 2007

Вот файл прикрепил, может немного непонятно написал.
Стоит пароль на листах "123 - например"
Допустим я снял защиту отредактировал и хочу сохранить и закрыть документ
Вот хочется чтоб при сохранении пароль "123" возобновлялся

К сообщению приложен файл: 1111.xlsx (9.9 Kb)

Дата: Вторник, 16.02.2016, 19:53 | Сообщение № 18

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

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

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

Excel 2007

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

Udik

Дата: Вторник, 16.02.2016, 20:04 | Сообщение № 19

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

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

Сообщений: 1588

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

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

Excel 2016 х 64

защиту типа такого, если в модуле листа
[vba]

Код

Public Sub setGard()
Me.Protect Password:="3037"

End Sub

[/vba]

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com

Дата: Вторник, 16.02.2016, 20:22 | Сообщение № 20

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

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

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

Excel 2007

Прописал в листе, нечего не меняется.
При сохранении и закрытии документа защита листа срабатывает. Но когда нажимаю снять защиту, защита сразу снимается без пароля.

Сообщение отредактировал Serge_007 - Вторник, 16.02.2016, 20:26