Сабклассинг Excel

[alibek]

Никто не занимался?
Тут одному товарищу требовалось запретить любой ввод в лист Excel.
Я вот на досуге попробовал вариант с сабклассингом, это просто кошмар какой-то
Отслеживать Application.hWnd вообще не имеет смысла. В конечном итоге я добрался до Application\XLDESK\EXCEL7, насколько я понял, это и есть рабочая область (или грид).
Хук на него ставится, сообщения ловятся, но через несколько секунд зависает намертво. И кстати, хук ставится, но при попытке его снять Excel слетает (может Excel потом самостоятельно подменяет оконную процедуру?).
Вообщем пытал я его какое-то время, но так и не удалось заставить игнорировать определенные WM_KEYDOWN/WM_KEYUP.

[GSerg]

А почему не имеет смысла отслеживать? А Spy++ что говорит?

[alibek]

Так потому и не имеет смысл, туда ничего не попадает. У меня почему-то такие подозрения, что рабочая область Excel является самостоятельным окном, которое просто позиционируется синхронно с окном приложения.

[Igor_123]

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

При защите можно выставить, что не будут просматриваться формулы в ячейках, только результат, соответственно и редактировать нечего!
Легко обходится:
Ctrl+A, Ctrl+C, Ctrl+N, Ctrl+V.
и все

[alibek]

Так предлагал
Человеку не нравится, что выскакивает сообщения "Ячейка защищена от записи".
Насчет способа реализации я согласен, сабклассинг очень неудачен. Но вопрос теперь не в реализации, а в самом сабклассинге - почему не получается?

[alibek]

Я вообще предлагал оригинальный лист со значениями сделать скрытым, а показывать копию, в которой при каждом изменении происходит Cells()=ShSource.Cells() -- не устроило, т.к. хотя данные и восстанавливаются, но надо вообще закрыть возможность редактирования.

[GSerg]

А!
Да просто потому что это MDI, вот и всё
Нуно сабклассить child...

[alibek]

А!!! Блин!!!
Меня оправдывает только то, что я всегда документы в Excel разворачиваю на весь экран. Забыл, что это MDI-форма

[GSerg]

Именно это я про тебя и подумал. Сам такой

[LeoCh]

Делал подобное с Word. Просто при старте Word запускал невидимую форму, на нее Hook. По событию DETSROY - Uhook. Есть даже вариант для 97.

[Lider]

Блин, ПАРНИ! Вы тут крутые вещи крутите! Я в восторге! Только ни фига не понял!

Плиз! поподробнее насчет Hook В EXCELe !

[alibek]

Lider, сигнатура классная
API-Guide есть? Если нет, скачай. И в нем смотри любой пример к SetWindowLong.

[Lider]

Не понял!
Что из VBA можно обращаться к функциям API?
Или это делается через VB а не через VBA?

[Lider]

И что такое API-Guide?

[Lider]

Да, и насколько я знаю SetWindowLong устанавливает стиль окна !
(знаю по C++)
Дайте пожалуйста хоть какие - нибудь подробности , чтобы хоть что-то прояснилось, a дальше попробую разобраться !

[Amed]

http://www.mentalis.org/agnet/apiguide.shtml

Справочник по Api-функциям. Очень рекомендую.

[Lider]

To Armed!
Я же спросил, как использовать API в VBA !!!!
А с самими функциями API я разобраться смогу!
Они же везде одинаковые и в VB и в C++ и в Delphi !!!
Как их использовать в VBA-Excel Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!

[Lider]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
SetCursorPos 20, 20


End Sub

Это не работает ...
Значит просто так в VBA API использовать нельзя !
А как?

[alibek]

Прежде чем использовать API-функции, их надо объявить. Примеры объявлений в API-Viewer или API-Guide.