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

Вход

Регистрация

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

 

= Мир MS Excel/разрешить работу макросам - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
разрешить работу макросам
карандаш Дата: Понедельник, 25.02.2013, 13:38 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 329
Репутация: 8 ±
Замечаний: 0% ±

2010
есть программы обработки нажатия кнопок активХ

если сделать книгу с общим доступом, то кнопки не реагируют на нажатие

подскажите, пожалуйста, как исправить это досадное недоразумение
К сообщению приложен файл: 1565283.xls (68.5 Kb)
 
Ответить
Сообщениеесть программы обработки нажатия кнопок активХ

если сделать книгу с общим доступом, то кнопки не реагируют на нажатие

подскажите, пожалуйста, как исправить это досадное недоразумение

Автор - карандаш
Дата добавления - 25.02.2013 в 13:38
Hugo Дата: Понедельник, 25.02.2013, 13:50 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3691
Репутация: 790 ±
Замечаний: 0% ±

365
Почему не работают?
У меня "получить" работает, а "сортировать" не работает в любом виде - вероятно потому, что XL2003. Может быть и у Вас эта же причина?

В 2003 работает такой код:
[vba]
Код
Private Sub cbSort_Click()

     Range("B4:G18").Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlGuess, _
         OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
         DataOption1:=xlSortNormal

End Sub
[/vba]


webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеПочему не работают?
У меня "получить" работает, а "сортировать" не работает в любом виде - вероятно потому, что XL2003. Может быть и у Вас эта же причина?

В 2003 работает такой код:
[vba]
Код
Private Sub cbSort_Click()

     Range("B4:G18").Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlGuess, _
         OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
         DataOption1:=xlSortNormal

End Sub
[/vba]

Автор - Hugo
Дата добавления - 25.02.2013 в 13:50
карандаш Дата: Понедельник, 25.02.2013, 15:17 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 329
Репутация: 8 ±
Замечаний: 0% ±

2010
Hugo,
скачал свой собственный файл
при открытии разрешил рекдактирование
потом разрешил работу макросов
кликаю на любую кнопку - ноль эффекта. Не получает кнопка фокуса

снимаю общий доступ, обе кнопки начинают прекрасно работать
и копирует, и сортирует.

"ничегонепонимаю" (с) Колбки

Цитата (Hugo)
В 2003 работает такой код

собственно код взял с макроса, который тупо записал с помощью сервиса "записать макрос"
ручками произвел действия, а потом записанное скопировал в процедуру


Сообщение отредактировал карандаш - Понедельник, 25.02.2013, 15:24
 
Ответить
СообщениеHugo,
скачал свой собственный файл
при открытии разрешил рекдактирование
потом разрешил работу макросов
кликаю на любую кнопку - ноль эффекта. Не получает кнопка фокуса

снимаю общий доступ, обе кнопки начинают прекрасно работать
и копирует, и сортирует.

"ничегонепонимаю" (с) Колбки

Цитата (Hugo)
В 2003 работает такой код

собственно код взял с макроса, который тупо записал с помощью сервиса "записать макрос"
ручками произвел действия, а потом записанное скопировал в процедуру

Автор - карандаш
Дата добавления - 25.02.2013 в 15:17
Hugo Дата: Понедельник, 25.02.2013, 15:43 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3691
Репутация: 790 ±
Замечаний: 0% ±

365
Не знаю, у меня в 2003 кнопки работают...
Попробуйте кнопки заменить на автофигуры/рисунки - задайте выполнение макросов по клику на них.


webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеНе знаю, у меня в 2003 кнопки работают...
Попробуйте кнопки заменить на автофигуры/рисунки - задайте выполнение макросов по клику на них.

Автор - Hugo
Дата добавления - 25.02.2013 в 15:43
карандаш Дата: Вторник, 26.02.2013, 20:56 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 329
Репутация: 8 ±
Замечаний: 0% ±

2010
Hugo,
да, это работает, проверял раньше

только минус картинок тот, что при клике правой кнопкой mo;ho изменить размеры, текст и прочее - никакой защиты от шаловливых ручек юзеров (((
потому и хотелось добиться работы кнопки

в данном конкретном случае выручает то, что "распределенный доступ" защищает от "минусов" картинок
 
Ответить
СообщениеHugo,
да, это работает, проверял раньше

только минус картинок тот, что при клике правой кнопкой mo;ho изменить размеры, текст и прочее - никакой защиты от шаловливых ручек юзеров (((
потому и хотелось добиться работы кнопки

в данном конкретном случае выручает то, что "распределенный доступ" защищает от "минусов" картинок

Автор - карандаш
Дата добавления - 26.02.2013 в 20:56
  • Страница 1 из 1
  • 1
Поиск:

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