Как оставить только заливку ячеек?

[tns-ka]

Здравствуйте!
Проблема такая:
Мне необходимо сделать документ в Excel, в котором пользователи могут выполнять единственное действие - закрашивать ячейки без возможности изменения их содержимого (размеры столбцов, строк - всё должно быть заблокировано). Не могли бы вы, уважаемые форумчане, подсказать, как это сделать?

[Dophin]

защита листа - выбрать нужные галки

[tns-ka]

Возможно, я не до конца раскрыл суть вопроса. Нужно, чтобы всё было заблокировано - и параметры ячеек, строк и столбцов, и параметры текста в защищенных ячейках. Если оставить в настройках защиты листа только две первых галки (выделение заблокированных и незаблокированных ячеек), то залить даже ту ячейку, в свойствах которой снята галка "защищаемая ячейка", невозможно.

[SAS888]

Посмотрите вложение. При открытии файла лист будет защищен (пароль "abcd"). Для выполнения заливки нужно выделить требуемые ячейки и нажать правую кнопку мыши. В контекстном меню появится новый пункт "Заливка". Дальнейшие комментарии, я думаю, не требуются.

[tns-ka]

Огромное спасибо! Очень выручили!
А для того, чтобы строку целиком заливать, нужно просто добавить для неё такой же пункт контекстного меню?

[EducatedFool]

Внёс небольшие изменения в код от SAS888

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    For Each cb In Array("Cell", "Row", "Column")
        Application.CommandBars(cb).Reset
        Application.CommandBars(cb).Controls(1).BeginGroup = True
        Add_Control cb, 1, 7894, "Colors", "Заливка", True
    Next
End Sub

Теперь опция "Заливка" доступна не только для ячеек, но и для строк и столбцов.

Проверяйте: http://excelvba.ru/XL_Files/Sample__...0__8-59-52.zip

PS: При желании можно убрать из контекстного меню все остальные пункты (оставив только заливку)
а также скрыть все панели инструментов в Excel.