ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / excel 2003, как задать макрос в меню правой клавишей мыши
13 сообщений из 13, страница 1 из 1
excel 2003, как задать макрос в меню правой клавишей мыши
    #37588287
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Задача - надо выбрать в меню правой клавиши мыши макрос, который будет работать, если ячейка НЕ защищена, иначе макрос не активен.
на панели инструментов могу, но не знаю как обратится к меню (по клику правой клавиши мыши).
Спасибо

Stepler (щёлк-щёлк!!)

Код: plaintext
 P.S.Чтобы наступила смерть - необходима жизненная сила !!!
...
Рейтинг: 0 / 0
22.12.2011, 09:37
| Ответить | Цитировать | Написать  
excel 2003, как задать макрос в меню правой клавишей мыши
    #37588450
Дмит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмит
Участник
Вариант со своим меню
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Dim cmBar As CommandBar, cmb As CommandBarControl
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo Errlab
If CellProtect Then 'проверка на возможность редактирования
    Set cmBar = Application.CommandBars.Add("MyPopupMenu", msoBarPopup, False, True)
    With cmBar
        Set cmb = .Controls.Add(Type:=msoControlButton, Temporary:=True)
        With cmb
            .Caption = "qwer"
            .Style = msoControlButton
'           .FaceId =
'           .OnAction =
        End With
    End With
Errlab:
    Cancel = True
    CommandBars("Shrift").ShowPopup
End If
End Sub
...
Рейтинг: 0 / 0
22.12.2011, 11:12
| Ответить | Цитировать | Написать  
excel 2003, как задать макрос в меню правой клавишей мыши
    #37588507
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Дмит,

спасибо, но что-то у меня МойПопМеню не добавляет...
...
Рейтинг: 0 / 0
22.12.2011, 11:29
| Ответить | Цитировать | Написать  
excel 2003, как задать макрос в меню правой клавишей мыши
    #37588702
Дмит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмит
Участник
Stepler, у Вас нет функции CellProtect, которая должна возвратить True, если ячейка разрешена для редактирования.
Me.Protection.AllowEditRanges(i).Range - отправная точка для этой функции.
...
Рейтинг: 0 / 0
22.12.2011, 12:44
| Ответить | Цитировать | Написать  
excel 2003, как задать макрос в меню правой клавишей мыши
    #37588858
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Дмит,

Делаю примитивно:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Selection.Locked = False
'On Error GoTo Errlab
'If Selection.Locked = True Then 'ïðîâåðêà íà âîçìîæíîñòü ðåäàêòèðîâàíèÿ
    Set cmBar = Application.CommandBars.Add("m")
    With cmBar
        Set cmb = .Controls.Add(Type:=msoControlButton, Temporary:=True)
        With cmb
            .Caption = "kyky"
            .Style = msoControlButton
'           .FaceId =
'           .OnAction =
        End With
    End With
Errlab:
    'Cancel = True
    'CommandBars("shum").ShowPopup
'End If

End Sub



НЕ добавляет в список меню
Модератор: надо писать не src, а src vba или пользоваться соответствующей кнопочкой. Поправил
...
Рейтинг: 0 / 0
22.12.2011, 13:38
| Ответить | Цитировать | Написать  
excel 2003, как задать макрос в меню правой клавишей мыши
    #37588910
Дмит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмит
Участник
Ошибки как у Вас так и у меня :)
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Set cmBar = Application.CommandBars.Add("shum", msoBarPopup, False, True)
    With cmBar
        Set cmb = .Controls.Add(Type:=msoControlButton, Temporary:=True)
        With cmb
            .Caption = "kyky"
            .Style = msoControlButton
'           .FaceId =
'           .OnAction =
        End With
    End With
Errlab:
    Cancel = True
    CommandBars("shum").ShowPopup


список меню - как Вы получаете список? Popup не отображается в обычных меню.
...
Рейтинг: 0 / 0
22.12.2011, 13:52
| Ответить | Цитировать | Написать  
excel 2003, как задать макрос в меню правой клавишей мыши
    #37589033
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Дмит,

теперь проходит, но при повторном обращении дает ошибку из-за "shum" (если переназвать, то пройдет, но 1 раз)

Вообще то я хотел другое : записать ентот "куку" в перечень уже имеющихся иконок в списке правой мыши...
...
Рейтинг: 0 / 0
22.12.2011, 14:39
| Ответить | Цитировать | Написать  
excel 2003, как задать макрос в меню правой клавишей мыши
    #37589070
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Нужно изучить Application.CommandBars и найти там CommandBar, отвечающий за контекстное меню. Как-то типа "context" он и называется.
...
Рейтинг: 0 / 0
22.12.2011, 14:50
| Ответить | Цитировать | Написать  
excel 2003, как задать макрос в меню правой клавишей мыши
    #37589169
Дмит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмит
Участник
Список popup меню:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim cmBar As CommandBar, cmb As CommandBarControl
Dim i As Long
For Each cmBar In Application.CommandBars
    If cmBar.Type = msoBarTypePopup Then
        i = i + 1
        ActiveSheet.Cells(i, 2) = cmBar.Name
        ActiveSheet.Cells(i, 1) = cmBar.Index
    End If
Next


Вызов меню для проверки - Application.CommandBars.Item(31).ShowPopup
Вставка пункта меню:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Set cmBar = Application.CommandBars.Item(25)
    With cmBar
        Set cmb = .Controls.Add(Type:=msoControlButton, Temporary:=True)
        With cmb
            .Caption = "qwer"
            .Style = msoControlButton
'           .FaceId =
'           .OnAction = "мойМакрос"
        End With
    End With
...
Рейтинг: 0 / 0
22.12.2011, 15:32
| Ответить | Цитировать | Написать  
excel 2003, как задать макрос в меню правой клавишей мыши
    #37589329
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
31 — плохая идея, на разных машинах может быть разный офис с разными меню. Нужно по имени.
...
Рейтинг: 0 / 0
22.12.2011, 16:32
| Ответить | Цитировать | Написать  
excel 2003, как задать макрос в меню правой клавишей мыши
    #37589449
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Antonariy,

Спасибо, ребята, благодаря вам задачу решил.
Исчо вопрос : есть код на определение файл открыт для чтения или нет ? Понимаю, что в св-вах искать - может есть уже прописанный...
Спасибо
...
Рейтинг: 0 / 0
22.12.2011, 17:13
| Ответить | Цитировать | Написать  
excel 2003, как задать макрос в меню правой клавишей мыши
    #37589574
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Stepler,
If ActiveDocument.ReadOnly = True Then MsgBox$ "Файл открыт только для чтения"
...
Рейтинг: 0 / 0
22.12.2011, 17:57
| Ответить | Цитировать | Написать  
excel 2003, как задать макрос в меню правой клавишей мыши
    #37589600
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
ThisWorkbook.ReadOnly
...
Рейтинг: 0 / 0
22.12.2011, 18:08
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / excel 2003, как задать макрос в меню правой клавишей мыши
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37589449&tid=2158202]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 150ms
get topic data:
 13ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 12ms
total:  255ms
созд. / загр.: 255ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]