Добрый день.
В VBA новичек, прошу помощи. Есть макрос для заполyения Combobox:

Private Sub dobav_VMRP_ob()
For Each c In Worksheets(2).Range("A4:A44")
If VarType© <> vbEmpty Then Лист1.ComboBox1.AddItem ©
Next c
For Each c In Worksheets(2).Range("L4:L46")
If VarType© <> vbEmpty Then Лист1.ComboBox2.AddItem ©
Next c
For Each c In Worksheets(2).Range("B2:H2")
If VarType© <> vbEmpty Then Лист1.ComboBox3.AddItem ©
Next c
End Sub

Также есть макрос для очистки Combobox:

Private Sub ochistka_ob()
For i = 1 To ComboBox1.ListCount
ComboBox1.RemoveItem 0
Next i
For i = 1 To ComboBox2.ListCount
ComboBox2.RemoveItem 0
Next i
For i = 1 To ComboBox3.ListCount
ComboBox3.RemoveItem 0
Next i
End Sub


Дело в том, что в зависимости от условия, данный Combobox будет
заполняться разными данными (из разных диапазонов ячеек), перед этом
очищаясь.
Первый раз заполняется нормально, но при выборе другого условия, после очистки, он пишет Permissions Denied на строке:

If VarType© <> vbEmpty Then Лист1.ComboBox1.AddItem ©

т.е. при добавлении других элементов в Combobox.

Прошу помощи.

Эм, точно, работает. Нужно было столбик выделить. Сорри опять. Спасибо вам.

{quote}{login=vikttur}{date=30.05.2011 09:44}{thema=}{post}Меню Данные-Проверка-Параметры-Тип_данных-Другой, формула:  
=СЧЁТЕСЛИ($C$1:$C$10;C1)=1{/post}{/quote}  
 
Это верно, я так и делаю. Но когда лист заблокирован, эта функция неактивна и она не работает.

Добрый день.  
Пользователи вносят данные на защищенный лист, для этого есть диапазон незащищенных ячеек. Хотелось бы сделать, чтобы они не смогли вводить одинаковые данные в ячейки одного столбца. Такая возможность есть, если лист незащищен, функцией "Проверка вводимых значений", но как только лист блокируется - функция становится неактивной. Как можно избежать неактивности функции при защищенном листе или есть мб другой метод ?

{quote}{login=The_Prist}{date=27.05.2011 04:59}{thema=}{post}Вы правы - не нова Ваша проблема. Только вот что у Вас с поиском? :-)  
<EM>http://www.excel-vba.ru/chto-umeet-excel/vedenie-zhurnala-sdelannyx-v-knige-izmenenij/</EM>{/post}{/quote}  
 
Ну спасибо, вы просто гений =) уже который раз выручаете. От всей души искренний поклон.

Добрый день. Думаю проблема не нова, поэтому хотел бы попросить макрос, который следит за изменениями во всех ячейках и заносил бы в другой документ 1) номер ячейки, которую изменили, 2) дату изменения и 3) желательно пользователя, который изменил эту ячейку. Такое вообще возможно ?

{quote}{login=The_Prist}{date=26.05.2011 06:22}{thema=Re: Re: }{post}{quote}{login=joelynnturner}{date=26.05.2011 05:13}{thema=Re: }{post}Галочку я ставлю всегда. И фильтр работает до того момента, как в таблице появляется защищенная ячейка. После этого при нажатии на ячейку с фильтром ничего не происходит, выпадающее меню не появляется.{/post}{/quote}Да что же такое! Вы запишите макрорекордером установку защиты с разрешенным фильтром и уже с ЭТИМИ параметрами в макросе защиту на лист устанавливайте.  
И правила почитайте.{/post}{/quote}  
 
Огромное спасибо Вам за помощь. Все отлично получилось и работает. Извините за "тупизм".

Собственно вот файл, попробуйте что-нибудь вбить в ячейку, а потом сделать фильтр или сортировку.    
Пароль stereo  
 
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

{quote}{login=The_Prist}{date=26.05.2011 05:09}{thema=}{post}Почему все боятся пользоваться макрорекордером и справкой? :-)  
 
Если не знаете, что такое макрорекордер: <EM>http://www.excel-vba.ru/chto-umeet-excel/chto-takoe-makros-i-gde-ego-iskat/</EM>  
Поверьте, эта информация поможет Вам не раз. При установке защиты поставьте галочку "Использование автофильра"{/post}{/quote}  
 
Галочку я ставлю всегда. И фильтр работает до того момента, как в таблице появляется защищенная ячейка. После этого при нажатии на ячейку с фильтром ничего не происходит, выпадающее меню не появляется.

Спасибо огромное, все получилось. Еще такой последний вопрос - у меня стоят фильтры, если хоть одна ячейка в таблице становится защищенной, то выпадающий список фильтров уже не появляется. Не могу сообразить как сделать, чтобы если я наводил на ячейку с фильтром - защита с листа убиралась, а после применения фильтра - становилась обратно. Также хотелось бы чтобы вместе с фильтрами была доступна сортировка.  
 
P.S. Извините, что предыдущий пост написал не от пользователя.

{quote}{login=The_Prist}{date=26.05.2011 01:21}{thema=}{post}Правый клик по ярлыку листа-Исходный текст  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
If Target <> "" Then Target.Locked = True  
End Sub  
 
Макросы должны быть разрешены.{/post}{/quote}  
 
Параметр "Защитная ячейка" появляется у ячейки только когда лист без защиты. Если включить защиту, то при изменении любой ячейки вываливается Run-time Error 1004: Нельзя установить свойство Locked класса Range. В чем может быть проблема ?    
 
Макросы разрешены, офис 2010

Тему нашел и прочитал, спасибо. Но не понятно как реализовать вот это:  
 
На событие изменения ячейки повесить макрос, который сразу после изменения будет ставить на ячейку атрибут "Защищенная ячейка".  
 
Подскажите пожалуйста.

Добрый день. Необходимо реализовать такую штуку - защитить от редактирования все непустые ячейки в Excel. Данные в файл будут постоянно вноситься, поэтому нужно сделать, чтобы когда ввели данные в пустую ячейку, после этого ее нельзя было отредактировать. Подскажите, пожалуйста, пути реализации ?