Ребята добрый день. Проблема есть... Принёс на работу файл подшлифовать под рабочие файлв, запустил "маску" (вкраце - собирает инфу и фильтрует) и при выводе на лист .... выводит ошибку '1004' Method 'Undo' of object'_Aplication' failed. Пробывал удалять ... не получилось устранить эту дасаду, пробывал добавить ... и опять ничего не получилось, т.к. не знал что добавлять. Выручайте, без Private Sub (макрос на запрет на изменение весь смысл этого небольшого проекта теряется. Абидна... ЗЫ Пароль "123" (это для коллег на работе, чтоб код не снесли)
Ребята добрый день. Проблема есть... Принёс на работу файл подшлифовать под рабочие файлв, запустил "маску" (вкраце - собирает инфу и фильтрует) и при выводе на лист .... выводит ошибку '1004' Method 'Undo' of object'_Aplication' failed. Пробывал удалять ... не получилось устранить эту дасаду, пробывал добавить ... и опять ничего не получилось, т.к. не знал что добавлять. Выручайте, без Private Sub (макрос на запрет на изменение весь смысл этого небольшого проекта теряется. Абидна... ЗЫ Пароль "123" (это для коллег на работе, чтоб код не снесли)QwertyBoss
Как сделать так чтобы код в модуле листа отлючался временно? допустим при удалении строки или работы с формами на общем модуле?
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Application.Intersect(Range("G2:G100"), Target) Is Nothing Then Else Exit Sub Dim a As Variant Application.EnableEvents = 0 a = Target.Value Application.Undo On Error GoTo 0 If Target > a Then On Error GoTo 0 MsgBox "НВЕРНЫЕ ДАННЫЕ, КТО РАЗРЕШИЛ МЕНЯТЬ?" Else Target = a End If Application.EnableEvents = -1 End Sub
[/vba]
код предоставлен ув.Wasilic [moder]Правила форума Вы так и не прочитали. Код следует оформлять тегами (кнопка #)[/moder]
Как сделать так чтобы код в модуле листа отлючался временно? допустим при удалении строки или работы с формами на общем модуле?
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Application.Intersect(Range("G2:G100"), Target) Is Nothing Then Else Exit Sub Dim a As Variant Application.EnableEvents = 0 a = Target.Value Application.Undo On Error GoTo 0 If Target > a Then On Error GoTo 0 MsgBox "НВЕРНЫЕ ДАННЫЕ, КТО РАЗРЕШИЛ МЕНЯТЬ?" Else Target = a End If Application.EnableEvents = -1 End Sub
[/vba]
код предоставлен ув.Wasilic [moder]Правила форума Вы так и не прочитали. Код следует оформлять тегами (кнопка #)[/moder]QwertyBoss
Сообщение отредактировал Pelena - Понедельник, 21.12.2015, 07:27
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Target.Address(0, 0) = "M1" Then Cancel = 1 Run "skr_stolb" End If End Sub
[/vba]
Цитата
Модератор: Правила форума Вы так и не прочитали. Код следует оформлять тегами (кнопка #)
эт я тренеруюсь , после прочтения правил =)
а замечания будут сниматься? [moder]Снимем, если не будете нарушать Правила в дальнейшем[/moder]
[vba]
Код
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Target.Address(0, 0) = "M1" Then Cancel = 1 Run "skr_stolb" End If End Sub
[/vba]
Цитата
Модератор: Правила форума Вы так и не прочитали. Код следует оформлять тегами (кнопка #)
эт я тренеруюсь , после прочтения правил =)
а замечания будут сниматься? [moder]Снимем, если не будете нарушать Правила в дальнейшем[/moder]QwertyBoss
Сообщение отредактировал Pelena - Вторник, 22.12.2015, 09:46
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
весь смысл этого небольшого проекта теряется. Абидна...
