Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Запретить переименовывание листов
 
#1
16.01.2009 11:15:11
Доброго всем времени суток, подскажите пожалуйста, как запретить изменение названий листов в книге, не защищая книгу. Листы в книге защищены, в VBA виден пароль.
 
 
 
#2
16.01.2009 12:24:28
Что-то rar не открывается попробую в zipe прикрепить
 
 
 
#3
16.01.2009 12:50:54
предлагаю изменить и кодовые имена листов(приравнять их пользовательским)  
а потом при любом действии проверять не изменились ли, если надо, переименовывать.
Живи и дай жить..
 
 
 
#4
16.01.2009 13:18:27
Я что-то не нашел события на переименование листа.  
Тут ZVI выкладывал файлик со всеми возможными событиями. Вот надо в нем глянуть какое событие возникает.  
Иначе действительно придется по каждому чиху проверять имена листов.
Bite my shiny metal ass!      
 
 
 
#5
16.01.2009 13:31:20
Никакого не возникает. См. файл
 
 
 
#6
16.01.2009 14:09:21
Значит не судьба.
Bite my shiny metal ass!      
 
 
 
#7
16.01.2009 14:09:58
{quote}{login=Pavel55}{date=16.01.2009 01:31}{thema=}{post}Никакого не возникает. См. файл{/post}{/quote}  
 
Уменя rar не открывается, Pavel55 не будете ли вы любезны, сжать в zip!  
За раннее спасибо!
 
 
 
#8
16.01.2009 15:22:06
Да я приложу, но боюсь этот файл вам не поможет.    
Мне кажется надо использовать то, что подсказал Слэн.    
При каком-нибудь действии, например, при открытии файла, проверять кодовые имена  листов и сравнивать с обычными именами листов, если изменились, что переименовывать лист обратно на нужное имя. Кодовые имена листов можете посмотреть через Alt+F11, затем Ctrl+R, кодовое имя листа будет до скобок.  
 
Вот файл со всеми событиями.
 
 
 
#9
16.01.2009 15:44:16
да при всех событиях :) можно только не совсеми листами, а с активным или , если это в макросе, то тех листов, кот этот макрос касается
Живи и дай жить..
 
 
 
#10
16.01.2009 17:22:41
{quote}{login=Pavel55}{date=16.01.2009 03:22}{thema=}{post}Да я приложу, но боюсь этот файл вам не поможет.    
Мне кажется надо использовать то, что подсказал Слэн.    
При каком-нибудь действии, например, при открытии файла, проверять кодовые имена  листов и сравнивать с обычными именами листов, если изменились, что переименовывать лист обратно на нужное имя. Кодовые имена листов можете посмотреть через Alt+F11, затем Ctrl+R, кодовое имя листа будет до скобок.  
 
Вот файл со всеми событиями.{/post}{/quote}  
 
Дааа! в Вашем файле я долго не разберусь. Не могли бы Вы прописать в примере, как это проверить, сравнить и исправить, хотя бы для пару листов на событие -выделение какойнибудь ячейки, а я размножу!!!
 
 
 
#11
16.01.2009 17:50:09
См. файл
 
 
 
#12
16.01.2009 18:34:08
{quote}{login=Pavel55}{date=16.01.2009 05:50}{thema=}{post}См. файл{/post}{/quote}  
 
Спасибо, Pavel55, буду пробовать! И всем остальным спасибо за внимание. Всем доброго времени суток!
 
 
 
#13
16.01.2009 18:45:39
Вам остаётся лишь один раз как надо переименовать кодовые имена листов в редакторе VBE и всё, макрос всё остальное сделает за вас.
 
 
 
#14
19.01.2009 10:37:00
{quote}{login=Pavel55}{date=16.01.2009 06:45}{thema=}{post}Вам остаётся лишь один раз как надо переименовать кодовые имена листов в редакторе VBE и всё, макрос всё остальное сделает за вас.{/post}{/quote}  
.CodeName    
а я голову ломал как получить имя листа кодовое, в нем вся запарка и была.  
впятницу пример грохнул, который писал.    
1. при загружки книги все имна листов заношу в массив.  
2. Событие я ставил на потерю фокуса листа, что при потери фокуса листа проверяется его имя с кодовым именем в массиве и если не соответсвует то меняет назад.
 
 
 
#15
19.01.2009 11:19:18
правда в этом есть некоторые грабли - если будете открывать в другой локализации, то если не латиницей кодовые имена были прописаны, то они изменятся  
на локальные
Живи и дай жить..
 
 
 
#16
20.01.2009 08:39:08
Чтоб  с одной стороны не проверять всё, а с другой стороны, при попытке переименовать лист тут же мягко поравлять пользователя,  
можно  
 
1) вносим на лист формулу =ДВССЫЛ("'мойлист'!G8") //в k1  
2) в модуль листа  
Private Sub Worksheet_Calculate()  
If IsError(Range("K1").Value) Then Range("K1").Parent.Name = "мойлист"  
End Sub
 
 
 
#17
20.01.2009 10:25:00
{quote}{login=dl@kartoshka.ru}{date=20.01.2009 08:39}{thema=Если нет события надо его прицепить}{post}Чтоб  с одной стороны не проверять всё, а с другой стороны, при попытке переименовать лист тут же мягко поравлять пользователя,  
можно  
 
1) вносим на лист формулу =ДВССЫЛ("'мойлист'!G8") //в k1  
2) в модуль листа  
Private Sub Worksheet_Calculate()  
If IsError(Range("K1").Value) Then Range("K1").Parent.Name = "мойлист"  
End Sub{/post}{/quote}  
 
это ничем не отличается от предложенного выше, только там было бы:  
if sheets().name<>sheets().codename
 
 
 
#18
20.01.2009 10:27:37
кроме того, что формулу надо где-то поместить(а если ее поместить далеко за пределами основных данных, это может спутать применение таких средств как usedrange или lastcell) и защитить
Живи и дай жить..
 
 
 
#19
29.08.2010 14:23:31
Добрый день!  
Как макросом дать Кодовое имя определенному листу?  
Не могу найти синтаксис  
вроде ActiveSheet.CodeName="Лист20"
With my best regards,      Inter_E
 
 
 
#20
29.08.2010 14:45:58
Думаю, только руками. Т.к. свойство CodeName только для чтения (Read-only), а не для чтения и установки.
 
 
 
#21
29.08.2010 14:46:28
А никак. Read only property. Экс сам присваивает Codename.
Я сам - дурнее всякого примера! ...
 
 
 
#22
29.08.2010 14:49:27
Ну, что же вы так сразу "никак" - руками! Alt+F11, Ctrl+R и вперёд
 
 
 
#23
29.08.2010 14:56:29
М-да... Век живи...
Я сам - дурнее всякого примера! ...
 
 
 
#24
30.08.2010 16:34:30
Кстати, только что случайно набрёл, не проверял:  
 
http://www.msoffice.nm.ru/faq/macros/module.htm  
 
Несмотря на то, что свойство CodeName доступно только для чтения, программное имя рабочего листа можно изменять, если не забывать, что модуль входит в семейство VBComponents.    
   
iCodeName = ActiveSheet.CodeName    
 
Application.VBE.ActiveVBProject.VBComponents(iCodeName).Name = "CodeName" ' Вариант I.  
 
ActiveWorkbook.VBProject.VBComponents(iCodeName).Name = "CodeName" ' Вариант II.
 
 
 
#25
30.08.2010 16:36:47
Проверил Вариант1 - работает!
 
 
 
Страницы: 1
Читают тему
Наверх