Перехват перехода в режим редактирования.

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Перехват перехода в режим редактирования. (Макросы/Sub)

and_evg

Дата: Четверг, 06.04.2017, 08:54 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 482

Репутация: 84 ±

Замечаний: 0% ±

Excel 2007

Всем добрый день.
Собственно вопрос - как перехватить момент перехода в режим редактирования ячейки? (ДаблКлик по ячейке, клавиша F2, строка формул).
Идея что бы пользователь в определенном диапазоне мог вводить только через форму.
Для ДаблКлик Вроде бы все понятно:
[vba]

Код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("Диапазон")) Is Nothing Then
        UserForm1.Show
        Cancel = True
    End If
End Sub

[/vba]
но вот как для других?

Ответить

nilem

Дата: Четверг, 06.04.2017, 09:50 | Сообщение № 2

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

Репутация: 563 ±

Замечаний: 0% ±

Excel 2013, 2016

например, установить защиту на определенные ячейки с параметром UserinterfaceOnly:=True
т.е. изменять такие ячейки можно будет только программно

Яндекс.Деньги 4100159601573

Ответить

and_evg

Дата: Четверг, 06.04.2017, 10:18 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 482

Репутация: 84 ±

Замечаний: 0% ±

Excel 2007

nilem, Спасибо за оперативный ответ, но к сожалению не подходит.

Ответить

nilem

Дата: Четверг, 06.04.2017, 11:30 | Сообщение № 4

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

Репутация: 563 ±

Замечаний: 0% ±

Excel 2013, 2016

а так?
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("A1:D10")) Is Nothing Then Exit Sub

With Application
    .EnableEvents = False
    .Undo
    .EnableEvents = True
End With
MsgBox "Используйте форму", 64
End Sub

[/vba]
хотя с защитой было бы лучше