Конфигуратор с динамическими данными и списками

[Legame]

Добрый вечер,

Передо мной стоят следующие задачи в экселе, совсем не знаю как их реализовать! просьба помочь

прилагаю кусок файла с более подробным описанием внутри.
возможно, где-то ошибся или перемудрил, возможно у вас есть более лучшее предложение.

Задачи:
0. Защита листа основного и скрытие дополнительных листов
0.1. Скрытие и защита листов от "чужих глаз"
0.2. Защита основного листа от модификаций итд, кроме как выбора параметров в разрешенных ячейках
0.3. Защита текста макросов от глаз "опытных пользователей"


1. Обнулять выбранные параметры в ячейках (которые выделены цветом, т.е. доступны для модификации)
1.1. Обнуление в ячейках при открытии файла
1.2. Обнуление в ячейках по нажатию на кнопку "ОЧИСТИТЬ"
1.3. Обнуление в ячейках по выбору основополагающих параметров.


2. Выбор параметров должен происходить динамически из соответствующих списков.


P.S. Заранее огромное спасибо всем откликнувшимся!

[motorway]

Вставить следующий код в редакторе VBA:

1.1. При открытии книги обнуляем нужные ячейки.

Private Sub Workbook_Open()
Range("B6").Value = ""
Range("C6").Value = ""
Range("D6").Value = ""
Range("B7").Value = ""
Range("D7").Value = ""
Range("B8").Value = ""
Range("D8").Value = ""

End Sub

1.2. Создаем кнопку "Очистить" и в ее обработчике пишем код:

Sub Очистить()
Range("B6").Value = ""
Range("C6").Value = ""
Range("D6").Value = ""
Range("B7").Value = ""
Range("D7").Value = ""
Range("B8").Value = ""
Range("D8").Value = ""
End Sub

1.3. В обработчик Worksheet_Change для первого листа вставляем (проверяет адрес измененной ячейки + условия и обнуляет нужные):

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Address = "$B$6") Then
Range("C6").Value = ""
Range("D6").Value = ""
Range("B7").Value = ""
Range("B8").Value = ""
Range("D8").Value = ""
Range("D9").Value = ""

End If
If (Target.Address = "$C$6" And Range("B6").Value <> "") Then
Range("D6").Value = ""
Range("B7").Value = ""
Range("D7").Value = ""
Range("B8").Value = ""
Range("D8").Value = ""
Range("D9").Value = ""

End If
If (Range("B6").Value <> "" And Range("C6").Value <> "" And Target.Address = "$B$7") Then
Range("D7").Value = ""
Range("B8").Value = ""
Range("D8").Value = ""
Range("D9").Value = ""

End If
If (Range("B6").Value <> "" And Range("C6").Value <> "" And Range("B7").Value <> "" And Target.Address = "$B$8") Then
Range("D8").Value = ""
Range("D9").Value = ""

End If

End Sub

[Legame]

Motorway, спасибо огромное!

а сможете помочь с задачами 0.1, 0.2, 0.3 ?

[motorway]

Поясните, что имеется в виду под 0.1 и 0.3? Если есть файл Эксел, то прочесть, какой в нем макрос, легко. 0.2 сделать легче, но, вероятно, пользователь сможет это отключить в коде. То есть, если цель - просто чтобы не вводились неправильные данные, это можно сделать, но если пользователь полезет в код, чтобы это отключить, то еще надо подумать
Вообще, один из способов - поместить данные на сервер в БД. Тогда до них добраться будет сложнее

[Legame]

Подскажите еще, пожалуйста,

Возможно ли организовать динамический список на основе некоего фильтра???
например, при наличии галки в CHECKBOX статус "НА СКЛАДЕ" - в этом случае происходит вывод только тех позиций, которые являются складскими(столбец на листе prices)

установив статус НА СКЛАДЕ - нужно сократить список выпадающих позиций, т.е. считаем, что товар есть на складе, если в соответствущей строке позиции в столбце СКЛАД = "число" или "+"

список выбора Реализован при помощи функции ДВССЫЛ

[Legame]

Сообщение от Legame

Подскажите еще, пожалуйста,

Возможно ли организовать динамический список на основе некоего фильтра???
например, при наличии галки в CHECKBOX статус "НА СКЛАДЕ" - в этом случае происходит вывод только тех позиций, которые являются складскими(столбец на листе prices)

установив статус НА СКЛАДЕ - нужно сократить список выпадающих позиций, т.е. считаем, что товар есть на складе, если в соответствущей строке позиции в столбце СКЛАД = "число" или "+"

список выбора Реализован при помощи функции ДВССЫЛ

забыл вложить файл...