Использование события рабочего листа Worksheet_Change

[kovalevskivf]

Здравствуйте уважаемые друзья. Помогите, пожалуйста, решить проблему использования события рабочего листа Worksheet_Change. Мне нужно запретить возможность пользователям всякое редактирование ячеек, кроме ввода в них цифровых данных. То есть надо запретить перетягивание содержимого и автозаполнение. При этом лист защищен паролем, разрешено только выделение незаблокированных ячеек. Я пробовал использовать событие листа Worksheet_Change. Что-то типа такого:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cut Then
      MsgBox "Недопустимая операция", strTitle
    End If
End Sub

Однако ничего не получается. И как вернуть сделанные пользователем изменения. Может есть другой способ? Подскажите пожалуйста. Заранее благодарен.

[tolikman]

может просить пользователя вводить данные через форму?
Не знаю как в 2003 (а думаю что тоже есть) но в 2007 есть в
параметры Excel -> Дополнительно есть куча полезных галочек, которые и запретят пользователю перетаскивать ячейки и тд.
Однако следует учесть, что эти параметры применяются не к конкретному файлу а ко всему ПО, значит надо их выключать при запуске файла и включать при закрытии вот что показал макрорекордер:
здесь отключаем :

With Application
        .CellDragAndDrop = False 'перетаскивание ячеек
        .EnableAutoComplete = False 'автозаполнение ячеек
    End With

здесь включаем:

    With Application
        .CellDragAndDrop = True
        .EnableAutoComplete = True
    End With

можно воткнуть эти блоки в соответствующие события книги:

    Private Sub Workbook_Open()
    With Application
        .CellDragAndDrop = False 'перетаскивание ячеек
        .EnableAutoComplete = False 'автозаполнение ячеек
    End WithEnd Sub

Private Sub Workbook_BeforeClose(Cancel as Boolean)
    With Application
        .CellDragAndDrop = True
        .EnableAutoComplete = True
    End With
End Sub

в модуль книги ("ЭтаКнига")
если ячеек не так уж и много я бы написал код, который каждый раз бы проверял их и непозволял держать в них все кроме цифр.

[kovalevskivf]

Большое спасибо. Буду экспериментировать с этим вариантом.