Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1 2 След.
RSS
Макрос, запрещающий изменять листы
 
#1
09.01.2014 13:30:07
Здравствуйте. Помогите пожалуйста новичку. В макросах можно сказать не разбираюсь =(.
Суть в том, что бы:
1) защитить изменение имени листов,
2) защитить от удаления существующие листы,
3) запретить добавление листов в книгу (этот я нашёл в инете)
Код
Private Sub workbook_newsheet(ByVal sh As Object)
    Application.DisplayAlerts = False
        MsgBox "Добавлять рабочие листы в эту книгу нельзя", vbInformation
        sh.Delete
    Application.DisplayAlerts = True
End Sub
С остальными проблема..
Изменено: qwer160990 - 09.01.2014 13:30:47 (уточнил тему)
 
 
 
#2
09.01.2014 13:56:58
просто защитите книгу
Живи и дай жить..
 
 
 
#3
09.01.2014 14:12:16
нужно именно программно это сделать
 
 
 
#4
09.01.2014 14:31:11
макрорекордер:
ActiveWorkbook.Protect Structure:=True, Windows:=False
Живи и дай жить..
 
 
 
#5
09.01.2014 14:34:26
 насколько я понимаю,  Ваш код защищает структуру активной книги (т.е. то же самое нежели я защиту книгу поставлю)?
Изменено: qwer160990 - 09.01.2014 15:14:56 (уточнение)
 
 
 
#6
09.01.2014 14:47:06
именно, а чем вам не нравится?
Живи и дай жить..
 
 
 
#7
09.01.2014 15:27:28
Да вроде бы всё как хотел, спасибо.  :)
 
 
 
#8
11.01.2014 19:02:24
Видимо что-то не так делаю, не работает макрос. Листы можно переименовывать, удалять, перемещать..

Код
 Sub защита()
    ActiveWorkbook.Protect Structure:=True, Windows:=False
End Sub
 
 
 
#9
11.01.2014 20:25:45
Видимо защищаете активную книгу, а листы изменяете в другой...
Либо макрос написали, но выполнить забыли   :)
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#10
11.01.2014 21:00:03
Что нужно сделать, что бы защитить листы от переименования, удаления в конкретной книге?
Что бы он автоматически выполнялся, как тот, что я указал в самом начале, запрещающий добавлять листы.
Изменено: qwer160990 - 11.01.2014 21:00:44 (добавил текста)
 
 
 
#11
11.01.2014 21:08:22
Цитата
Что нужно сделать, что бы защитить листы от переименования, удаления в конкретной книге?
В этой конкретной книге и напишите макрос. И вместо активной книги используйте Эта книга (Thisworkbook)
 
 
 
#12
11.01.2014 21:26:06
Зачем автоматически-то? Один раз защитили и все. Защита остается до тех пор, пока Вы сами её не снимите.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#13
11.01.2014 21:41:56
Извиняюсь если глупые вещи пишу, только начинаю интересоваться макросами.
С программированием знаком не много, было интересно раньше, сейчас понимаю что для решения некоторых не затейливых задач можно самому написать программу. Было бы здорово ещё знать какой язык используется при написании и какой-нибудь мануал для начинающих почитать.
Юрий М, спасибо, попробую применить, посмотрим что получится.

Попробовал, почему-то так же не работает..
Код
Sub защита()
    ThisWorkbook.Protect Structure:=True, Windows:=False
End Sub
Изменено: qwer160990 - 11.01.2014 21:53:42
 
 
 
#14
11.01.2014 21:48:13
Извиняюсь что не в тему  :)  чем отличается Sub от Private Sub?
 
 
 
#15
11.01.2014 21:52:02
Вставьте курсор в слово Private и нажмите F1.
 
 
 
#16
11.01.2014 22:11:42
Цитата
почему-то так же не работает.
Как проявляется это "не работает"?
 
 
 
#17
11.01.2014 22:27:07
Юрий М, могу переименовывать, перемещать и удалять листы в книге.
 
 
 
#18
11.01.2014 22:39:29
У меня такого не наблюдается.
 
 
 
#19
11.01.2014 22:50:07
Самое очевидное: процедуру написали но не выполнили. Поставьте курсов внутрь процедуры и нажмите F5. Процедура выполнится, книга защищена.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#20
11.01.2014 23:23:17
поставил курсор на тексте с кодом, нажал F5 - ничего не произошло..
 
 
 
#21
11.01.2014 23:24:59
А хоть какой-нибудь макрос работает?
 
 
 
#22
11.01.2014 23:26:07
Цитата
ничего не произошло..
А ничего и не должно было произойти, кроме установки защиты.
 
 
 
#23
11.01.2014 23:54:23
Код
поставил курсор на тексте с кодом, нажал F5 - ничего не произошло
Т.е. даже после этого можете свободно добавить, удалить или переименовать любой лист в этой книге?
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#24
12.01.2014 00:38:03
The_Prist, да, могу менять структуру. Вот всё что по операторам VBA у меня в проджекте, может как-то поможет разъяснить ситуацию. Тут буквально "пара" строчек.
 
 
 
#25
12.01.2014 00:42:59
Выполнил Sub защита - возможность удаления листов пропала: пункты меню неактивны.
А зачем Вы все макросы разместили в модуле книги?
 
 
 
#26
12.01.2014 00:50:24
Юрий М, видимо ещё не разобрался что и где нужно писать. Скажите пожалуйста, как Вы его выполнили.
 
 
 
#27
12.01.2014 00:59:11
См. #19. Другой вариант: Alt+F8
 
 
 
#28
12.01.2014 01:01:14
А Вы выложили файл, где защита НЕ была установлена, хотя, Вы писали (#20), что ВЫПОЛНИЛИ...
 
 
 
#29
12.01.2014 01:07:49
Юрий М, сказали установить курсор и нажать Ф5 - сделал не вышло. Попробую Alt+F8
 
 
 
#30
12.01.2014 01:09:48
Цитата
сказали установить курсор и нажать Ф5
И куда Вы установили курсор? Нужно в любое место той процедуры, которую собираетесь выполнить.
 
 
 
Страницы: 1 2 След.
Наверх