библиотеки для vba Excel

[Nicky]

1. Кладу файл в _любое_ место
2. Открываю
3. Ctrl-R - форма
4. Жмакаю энное число раз на "Создать"
5. Ctrl-R - форма

[GSerg]

А не надо, Nicky, открывать...
Надо подключать через Сервис - Надстройки.

Скачал прилагаемый xls.
Пересохранил как xla.
Подключил, нажал, работает.

А что, ув. тов. автор, каков уровень защиты от макросов там в параметрах у тебя?

[yura613]

GSergУровень защиты самый низкий
Я сделал все заново, залез потом в настройки, подключил и все работает, причем из любого файла. Ура!!!!! (проверю еще сегодня у себя дома)если что, напишу
все спасибо.

[yura613]

Еще раз всем привет
Возникла у меня новая проблема, но продолжение нашей темы
Возможно ли теперь зделать так чтоб действие которое выполняется при событии Worksheet_BeforeDoubleClick или другими подобными действиями, распостронялись на все книги. Тоесть в одной книге я прописал в Worksheet_BeforeDoubleClick какое нибудь действие и оно потом выполнялось в любой книге на этой же странице или на всех.

[GSerg]

Код: Выделить всё

private withevents xl as excel.application

sub init
  set xl=application
end sub

private sub xl_SheetBeforeDoubleClick(Sh As Object, Target As Range, Cancel As Boolean)
  msgbox sh.name
end sub

[yura613]

Если вставить редактор вба в поле страницы или книги то при подключении выделенная строка показывает ошибку
private sub xl_SheetBeforeDoubleClick(Sh As Object, Target As Range, Cancel As Boolean)
msgbox sh.name
end sub

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

[Nicky]

Это пишется в модуле класса

[yura613]

и там пробовал тоже
пробовал при загрузке книги писать set xl=application
а все остальное в модуле класса

пробовал писать ... set xl=application ... в модуле а остальное выражение в модуле класса

потом пробовал писать все выражения в модуле класса

не работает

[Nicky]

ЭтаКнига

Код: Выделить всё

Option Explicit

Private Sub Workbook_Open()
  Set myClass = New Class1
End Sub


Module1

Код: Выделить всё

Option Explicit

Public myClass As Class1


Class1

Код: Выделить всё

Option Explicit

Public WithEvents xl As Application

Private Sub Class_Initialize()
  Set xl = Application
End Sub

Private Sub xl_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  MsgBox Sh.Name
End Sub


[yura613]

Круто! большое спасибо!!! Все работает!
А где можно про модуля класса узнать?

[yura613]

Здрасте, опять я
Возникла небольшая проблемка. Когда создаю мкросы,назначаю им комбинацию клавишь и после сохраняю как настройка, в любом файле этот макрос рабтает идеально. А вот когда вместо комбинации клавишь присваиваю макрос кнопке на панели меню, возникает проблема. При нажатии этой кнопки открывается файл в котором хранится форма, вызывающаяся макросом. Не подскажете как исправить этот момент...