Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Защита ячейки после редактирования - Мир MS Excel

Старая форма входа
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Защита ячейки после редактирования (Макросы/Sub)
Защита ячейки после редактирования
inohodec Дата: Четверг, 27.09.2018, 18:42 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый всем вечер! Есть вопрос как защитить ячейки после ввода данных! Нашёл макрос с похожей задачей но отредактировать навыков не хватает. Помогите пожалуйста.
Необходимо запретить редактирование в столбиках: D, G, L, P после тога как в ячейки введут данные.

[vba]
Код

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim new_value
    Dim r As Range
    Select Case Sh.Name
        Case "Лист1"
            Set r = Application.Intersect(Target, Range("Лист1!$D:$D"))
        Case Else
            Set r = Nothing
    End Select
    If r Is Nothing Then Exit Sub
    If Target.Rows.Count * Target.Columns.Count > 1 Then
        Application.Undo
        Exit Sub
    End If
    new_value = Target.Value
    Application.EnableEvents = False
    Application.Undo
    If Len(Target.Value) = 0 Then
        Target.Value = new_value
    End If
    Application.EnableEvents = True
End Sub
[/vba]
 
Ответить
СообщениеДобрый всем вечер! Есть вопрос как защитить ячейки после ввода данных! Нашёл макрос с похожей задачей но отредактировать навыков не хватает. Помогите пожалуйста.
Необходимо запретить редактирование в столбиках: D, G, L, P после тога как в ячейки введут данные.

[vba]
Код

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim new_value
    Dim r As Range
    Select Case Sh.Name
        Case "Лист1"
            Set r = Application.Intersect(Target, Range("Лист1!$D:$D"))
        Case Else
            Set r = Nothing
    End Select
    If r Is Nothing Then Exit Sub
    If Target.Rows.Count * Target.Columns.Count > 1 Then
        Application.Undo
        Exit Sub
    End If
    new_value = Target.Value
    Application.EnableEvents = False
    Application.Undo
    If Len(Target.Value) = 0 Then
        Target.Value = new_value
    End If
    Application.EnableEvents = True
End Sub
[/vba]

Автор - inohodec
Дата добавления - 27.09.2018 в 18:42
_Boroda_ Дата: Четверг, 27.09.2018, 19:20 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Без Вашего файла такой вариант в модуль листа
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim d_ As Range, d0_ As Range
    Set d_ = Intersect(Target, Range("D:D,G:G,L:L,P:P"))
    If Not d_ Is Nothing Then
        For Each d0_ In d_
            If Not IsEmpty(d0_) Then
                d0_.Offset(1).Select
                Exit Sub
            End If
        Next d0_
    End If
End Sub
[/vba]

Чуть подправил
К сообщению приложен файл: 1487867861_1.xlsm (14.7 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995


Сообщение отредактировал _Boroda_ - Четверг, 27.09.2018, 20:07
 
Ответить
СообщениеБез Вашего файла такой вариант в модуль листа
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim d_ As Range, d0_ As Range
    Set d_ = Intersect(Target, Range("D:D,G:G,L:L,P:P"))
    If Not d_ Is Nothing Then
        For Each d0_ In d_
            If Not IsEmpty(d0_) Then
                d0_.Offset(1).Select
                Exit Sub
            End If
        Next d0_
    End If
End Sub
[/vba]

Чуть подправил

Автор - _Boroda_
Дата добавления - 27.09.2018 в 19:20
inohodec Дата: Четверг, 27.09.2018, 19:51 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо за помощь Подходит и такой вариант hands . Очень порадовало, что ячейку не то что отредактировать, а и перейти не получается :haha: . Будет теперь моим коллегам развлечение.
 
Ответить
СообщениеСпасибо за помощь Подходит и такой вариант hands . Очень порадовало, что ячейку не то что отредактировать, а и перейти не получается :haha: . Будет теперь моим коллегам развлечение.

Автор - inohodec
Дата добавления - 27.09.2018 в 19:51
inohodec Дата: Пятница, 28.09.2018, 07:44 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Доброе утро! А есть ещё какие то варианты защиты ячеек? На практике не совсем удобно перескакивание оказалось, а было таким прикольным! :D
Добавил свой файл.
К сообщению приложен файл: 0969876.xls (47.0 Kb)
 
Ответить
СообщениеДоброе утро! А есть ещё какие то варианты защиты ячеек? На практике не совсем удобно перескакивание оказалось, а было таким прикольным! :D
Добавил свой файл.

Автор - inohodec
Дата добавления - 28.09.2018 в 07:44
_Boroda_ Дата: Пятница, 28.09.2018, 09:40 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Перескакивать можно не обязательно на пустую ячейку ниже, можно еще куда-нибудь
А еще вариант, например, такой (на основе выложенного Вами макроса)
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim d_ As Range
    Set d_ = Intersect(Target, Range("D:D,G:G,L:L,P:P"))
    If Not d_ Is Nothing Then
        If d_.Count > 1 Then
            Application.Undo
            Exit Sub
        End If
        Application.EnableEvents = 0
        Application.Undo
        If IsEmpty(Target) Then
            Application.Undo
        End If
        Application.EnableEvents = 1
    End If
End Sub
[/vba]
К сообщению приложен файл: 0969876_1.xls (54.5 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеПерескакивать можно не обязательно на пустую ячейку ниже, можно еще куда-нибудь
А еще вариант, например, такой (на основе выложенного Вами макроса)
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim d_ As Range
    Set d_ = Intersect(Target, Range("D:D,G:G,L:L,P:P"))
    If Not d_ Is Nothing Then
        If d_.Count > 1 Then
            Application.Undo
            Exit Sub
        End If
        Application.EnableEvents = 0
        Application.Undo
        If IsEmpty(Target) Then
            Application.Undo
        End If
        Application.EnableEvents = 1
    End If
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 28.09.2018 в 09:40
Yurbas Дата: Пятница, 28.09.2018, 15:51 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, Excel 2013
_Boroda_, подскажите решение моей проблемы на базе вашего макроса.
Имеется куча листов, в которых имеются данные и формулы, которые не нужно менять никому, кроме "посвящённых". Можно просто поставить Защиту на листы и книгу, но это не сильно "красиво". Решил воспользоваться вашим макросом, но добавил в него 1 строчку:
[vba]
Код
If Range("ZZ999").Value = 1 Then Exit Sub
[/vba]
И изменил область запрета изменений:
[vba]
Код
    Set d_ = Intersect(Target, Range("A1:BA46"))
[/vba]
Естественно, всё нормально отрабатывает. Как теперь это всё дело распространить на все листы, а их там около 20? Неужели в каждом модуле листа прописывать этот код? Или можно в модуле книги прописать этот код, но только расписать все возможные имена листов для областей запрета?


Где начало того конца, которым кончается начало?
 
Ответить
Сообщение_Boroda_, подскажите решение моей проблемы на базе вашего макроса.
Имеется куча листов, в которых имеются данные и формулы, которые не нужно менять никому, кроме "посвящённых". Можно просто поставить Защиту на листы и книгу, но это не сильно "красиво". Решил воспользоваться вашим макросом, но добавил в него 1 строчку:
[vba]
Код
If Range("ZZ999").Value = 1 Then Exit Sub
[/vba]
И изменил область запрета изменений:
[vba]
Код
    Set d_ = Intersect(Target, Range("A1:BA46"))
[/vba]
Естественно, всё нормально отрабатывает. Как теперь это всё дело распространить на все листы, а их там около 20? Неужели в каждом модуле листа прописывать этот код? Или можно в модуле книги прописать этот код, но только расписать все возможные имена листов для областей запрета?

Автор - Yurbas
Дата добавления - 28.09.2018 в 15:51
_Boroda_ Дата: Пятница, 28.09.2018, 15:56 | Сообщение № 7
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
В модуле книги есть событие изменение в диапазоне Target на листе Sh
[vba]
Код
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
[/vba]
На него вешаете. Кстати, так в самом первом макросе в этой теме сделано - на все листы
Вот так получится
[vba]
Код
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    With Sh
        Dim d_ As Range
        Set d_ = Intersect(Target, .Range("D:D,G:G,L:L,P:P"))
        If Not d_ Is Nothing Then
            If d_.Count > 1 Then
                Application.Undo
                Exit Sub
            End If
            Application.EnableEvents = 0
            Application.Undo
            If IsEmpty(Target) Then
                Application.Undo
            End If
            Application.EnableEvents = 1
        End If
    End With
End Sub
[/vba]
К сообщению приложен файл: 0969876_2.xls (62.0 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВ модуле книги есть событие изменение в диапазоне Target на листе Sh
[vba]
Код
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
[/vba]
На него вешаете. Кстати, так в самом первом макросе в этой теме сделано - на все листы
Вот так получится
[vba]
Код
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    With Sh
        Dim d_ As Range
        Set d_ = Intersect(Target, .Range("D:D,G:G,L:L,P:P"))
        If Not d_ Is Nothing Then
            If d_.Count > 1 Then
                Application.Undo
                Exit Sub
            End If
            Application.EnableEvents = 0
            Application.Undo
            If IsEmpty(Target) Then
                Application.Undo
            End If
            Application.EnableEvents = 1
        End If
    End With
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 28.09.2018 в 15:56
inohodec Дата: Пятница, 28.09.2018, 16:37 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо за помощь! Второй макрос, то что надо. hands
 
Ответить
СообщениеСпасибо за помощь! Второй макрос, то что надо. hands

Автор - inohodec
Дата добавления - 28.09.2018 в 16:37
Yurbas Дата: Понедельник, 29.10.2018, 16:08 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, Excel 2013
_Boroda_, ещё проблема возникла: если в ячейку что-то пишу и жму Enter, то макрос прекрасно отрабатывает и возвращает в ячейку первоначальное значение. Но если просто встать на ячейку и нажать Delete, то Excel впадает в глубокую задумчивость (постоянно удаляет-восстанавливает предыдущее значение ячейки), а потом выдаёт сообщение о "переполнении стека"... Я так понял, что нужно написать обработку события BeforeDelete, то есть что-то написать для запрета этого самого Delete, но что там прописывать — затупил %) .


Где начало того конца, которым кончается начало?
 
Ответить
Сообщение_Boroda_, ещё проблема возникла: если в ячейку что-то пишу и жму Enter, то макрос прекрасно отрабатывает и возвращает в ячейку первоначальное значение. Но если просто встать на ячейку и нажать Delete, то Excel впадает в глубокую задумчивость (постоянно удаляет-восстанавливает предыдущее значение ячейки), а потом выдаёт сообщение о "переполнении стека"... Я так понял, что нужно написать обработку события BeforeDelete, то есть что-то написать для запрета этого самого Delete, но что там прописывать — затупил %) .

Автор - Yurbas
Дата добавления - 29.10.2018 в 16:08
_Boroda_ Дата: Понедельник, 29.10.2018, 16:24 | Сообщение № 10
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Что-то я не смог такой реакции добиться в моем файле из сообщения №7. Приложите свой файл и опишите подробнее порядок действий.


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЧто-то я не смог такой реакции добиться в моем файле из сообщения №7. Приложите свой файл и опишите подробнее порядок действий.

Автор - _Boroda_
Дата добавления - 29.10.2018 в 16:24
Yurbas Дата: Понедельник, 29.10.2018, 16:55 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, Excel 2013
Ой, завтра только получится... Уже поехал с работы


Где начало того конца, которым кончается начало?
 
Ответить
СообщениеОй, завтра только получится... Уже поехал с работы

Автор - Yurbas
Дата добавления - 29.10.2018 в 16:55
StoTisteg Дата: Понедельник, 29.10.2018, 17:57 | Сообщение № 12
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

Excel 2010
написать обработку события BeforeDelete
Не бывает такой животной... Это тот же самый Change.
_Boroda_, сдаётся мне, фрагмент [vba]
Код
            If d_.Count > 1 Then
                Application.Undo
                Exit Sub
            End If
[/vba]именно на Del натурально зациклится. Не намертво правда, но всё же. Проверяйте:[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)

   If Target.Count > 1 Then
      Application.Undo
      Exit Sub
   End If

End Sub
[/vba]
К сообщению приложен файл: BadRecurs.xlsm (12.1 Kb)


Интуитивно понятный код - это когда интуитивно понятно, что это код.

Сообщение отредактировал StoTisteg - Понедельник, 29.10.2018, 17:57
 
Ответить
Сообщение
написать обработку события BeforeDelete
Не бывает такой животной... Это тот же самый Change.
_Boroda_, сдаётся мне, фрагмент [vba]
Код
            If d_.Count > 1 Then
                Application.Undo
                Exit Sub
            End If
[/vba]именно на Del натурально зациклится. Не намертво правда, но всё же. Проверяйте:[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)

   If Target.Count > 1 Then
      Application.Undo
      Exit Sub
   End If

End Sub
[/vba]

Автор - StoTisteg
Дата добавления - 29.10.2018 в 17:57
_Boroda_ Дата: Понедельник, 29.10.2018, 21:43 | Сообщение № 13
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
StoTisteg, очередной непроверенный пост? Что, религия не позволяет посмотреть, что предложенный вами макрос вообще не выполняет исходную задачу?

Было что сказано?
встать на ячейку и нажать Delete
В ячейкУ. На самом деле не в ячейку, а в ячейки

А вот если несколько ячеек выделить и Делит нажать, то тогда да
Предлагаю так
[vba]
Код
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    With Sh
        Dim d_ As Range
        Set d_ = Intersect(Target, .Range("D:D,G:G,L:L,P:P"))
        If Not d_ Is Nothing Then
            Application.EnableEvents = 0
            If d_.Count > 1 Then
                Application.Undo
                Application.EnableEvents = 1
                Exit Sub
            End If
            Application.Undo
            If IsEmpty(Target) Then
                Application.Undo
            End If
            Application.EnableEvents = 1
        End If
    End With
End Sub
[/vba]
К сообщению приложен файл: 0969876_3.xls (60.5 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеStoTisteg, очередной непроверенный пост? Что, религия не позволяет посмотреть, что предложенный вами макрос вообще не выполняет исходную задачу?

Было что сказано?
встать на ячейку и нажать Delete
В ячейкУ. На самом деле не в ячейку, а в ячейки

А вот если несколько ячеек выделить и Делит нажать, то тогда да
Предлагаю так
[vba]
Код
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    With Sh
        Dim d_ As Range
        Set d_ = Intersect(Target, .Range("D:D,G:G,L:L,P:P"))
        If Not d_ Is Nothing Then
            Application.EnableEvents = 0
            If d_.Count > 1 Then
                Application.Undo
                Application.EnableEvents = 1
                Exit Sub
            End If
            Application.Undo
            If IsEmpty(Target) Then
                Application.Undo
            End If
            Application.EnableEvents = 1
        End If
    End With
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 29.10.2018 в 21:43
StoTisteg Дата: Вторник, 30.10.2018, 10:16 | Сообщение № 14
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

Excel 2010
А вот если несколько ячеек выделить и Делит нажать
А я про что?


Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
Сообщение
А вот если несколько ячеек выделить и Делит нажать
А я про что?

Автор - StoTisteg
Дата добавления - 30.10.2018 в 10:16
StoTisteg Дата: Вторник, 30.10.2018, 10:22 | Сообщение № 15
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

Excel 2010
В ячейкУ. На самом деле не в ячейку, а в ячейки
А при чём тут, простите, сказанное Yurbas'ом? Что конкретно он имел в виду, только он сам знает... А для описанного им эффекта именно на одной ячейке я тоже поводов не вижу.


Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
Сообщение
В ячейкУ. На самом деле не в ячейку, а в ячейки
А при чём тут, простите, сказанное Yurbas'ом? Что конкретно он имел в виду, только он сам знает... А для описанного им эффекта именно на одной ячейке я тоже поводов не вижу.

Автор - StoTisteg
Дата добавления - 30.10.2018 в 10:22
Yurbas Дата: Вторник, 30.10.2018, 13:13 | Сообщение № 16
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, Excel 2013
Так, не ругаемся :).
Вот файлик. Открываем первый лист, в ячейку A30 вписываем "1": теперь можно всё спокойно править-редактировать-удалять (делетать).
В эту же ячейку вписываем всё, что угодно, окромя единицы, или вообще там удаляем данные: теперь при написании чего-нибудь другого в ячейку, в которой уже что-то записано, и нажатии на Ввод возвращаются данные, записанные там ранее. Если же нажать на Delete, то Excel туда-сюда удаляет-возвращает данные в ячейке, а потом выскакивает ошибка "Out of stack space". Попробуйте это проделать в разных местах...
К сообщению приложен файл: delete__excel.xlsb (68.5 Kb)


Где начало того конца, которым кончается начало?
 
Ответить
СообщениеТак, не ругаемся :).
Вот файлик. Открываем первый лист, в ячейку A30 вписываем "1": теперь можно всё спокойно править-редактировать-удалять (делетать).
В эту же ячейку вписываем всё, что угодно, окромя единицы, или вообще там удаляем данные: теперь при написании чего-нибудь другого в ячейку, в которой уже что-то записано, и нажатии на Ввод возвращаются данные, записанные там ранее. Если же нажать на Delete, то Excel туда-сюда удаляет-возвращает данные в ячейке, а потом выскакивает ошибка "Out of stack space". Попробуйте это проделать в разных местах...

Автор - Yurbas
Дата добавления - 30.10.2018 в 13:13
Yurbas Дата: Вторник, 30.10.2018, 13:17 | Сообщение № 17
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, Excel 2013
Не бывает такой животной... Это тот же самый Change.

Простите, пожалуйста, а вот это что такое:
К сообщению приложен файл: 3962952.png (87.2 Kb)


Где начало того конца, которым кончается начало?
 
Ответить
Сообщение
Не бывает такой животной... Это тот же самый Change.

Простите, пожалуйста, а вот это что такое:

Автор - Yurbas
Дата добавления - 30.10.2018 в 13:17
_Boroda_ Дата: Вторник, 30.10.2018, 13:21 | Сообщение № 18
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Если же нажать на Delete
где при этом находясь? Сколько ячеек выделено?
Код из сообщения 13 пробовали? Для листа он вот такой будет
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim d_ As Range
    If Range("A30").Value = 1 Then Exit Sub
    Set d_ = Intersect(Target, Range("A1:BA29"))
    If Not d_ Is Nothing Then
        Application.EnableEvents = 0
        If d_.Count > 1 Then
            Application.Undo
            Application.EnableEvents = 1
            Exit Sub
        End If
        Application.Undo
        If IsEmpty(Target) Then
            Application.Undo
        End If
        Application.EnableEvents = 1
    End If
End Sub
[/vba]

а вот это что такое

А это событие перед удалением листа


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
Если же нажать на Delete
где при этом находясь? Сколько ячеек выделено?
Код из сообщения 13 пробовали? Для листа он вот такой будет
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim d_ As Range
    If Range("A30").Value = 1 Then Exit Sub
    Set d_ = Intersect(Target, Range("A1:BA29"))
    If Not d_ Is Nothing Then
        Application.EnableEvents = 0
        If d_.Count > 1 Then
            Application.Undo
            Application.EnableEvents = 1
            Exit Sub
        End If
        Application.Undo
        If IsEmpty(Target) Then
            Application.Undo
        End If
        Application.EnableEvents = 1
    End If
End Sub
[/vba]

а вот это что такое

А это событие перед удалением листа

Автор - _Boroda_
Дата добавления - 30.10.2018 в 13:21
Yurbas Дата: Вторник, 30.10.2018, 13:22 | Сообщение № 19
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, Excel 2013
где при этом находясь? Сколько ячеек выделено?

В нормальных ячейках всё работает, а в заголовках, которые объединённые всё валится.

P. P. P. S. Вот теперь попробовал ваш новый этот код: он не падает и при выделении-удалении объединённых ячеек.


Где начало того конца, которым кончается начало?

Сообщение отредактировал Yurbas - Вторник, 30.10.2018, 13:27
 
Ответить
Сообщение
где при этом находясь? Сколько ячеек выделено?

В нормальных ячейках всё работает, а в заголовках, которые объединённые всё валится.

P. P. P. S. Вот теперь попробовал ваш новый этот код: он не падает и при выделении-удалении объединённых ячеек.

Автор - Yurbas
Дата добавления - 30.10.2018 в 13:22
_Boroda_ Дата: Вторник, 30.10.2018, 13:25 | Сообщение № 20
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Я ж Вам еще вчера все сделал. Что не так-то?


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЯ ж Вам еще вчера все сделал. Что не так-то?

Автор - _Boroda_
Дата добавления - 30.10.2018 в 13:25
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Защита ячейки после редактирования (Макросы/Sub)
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!