Долго не мог понять, почему к функциям Sub FindProc(Proc$) зачислило... :)  
 
Нашёл - замени строку на такую - чтоб где не надо не находило :)  
' ищем в тексте модуля требуемый тип процедуры ("Sub_" или "Function_")

{quote}{login=Hugo}{date=07.09.2010 03:37}{thema=}{post}Долго не мог понять, почему к функциям Sub FindProc(Proc$) зачислило... :)  
 
Нашёл - замени строку на такую - чтоб где не надо не находило :)  
' ищем в тексте модуля требуемый тип процедуры ("Sub_" или "Function_"){/post}{/quote}  
так, вроде, эти строки с комментариями должно пропускать:  
i = i + .ProcCountLines(.ProcOfLine(i, 0), 0)  ' переходим к следующей после конца процедуры строке кода  
Хотя... VB в чистом виде очень от меня далёк... С трудом разбираюсь в чужих функциях.

Да, а я так пока использую, даже без кнопки открытия скрытого листа.  
А по поводу Function_ - оно ищет и находит в тексте макроса слово "Function "  и заносит эту поцедуру к функциям. У тебя не так?

Оказывается, нифига не ОК с функциями...  
При нескольких открытых книгах тоже начинает капризничать...  
Я уж, почитав справку на ЦитФоруме ( http://citforum.ru/programming/vbhelp/ ), ещё подправил чтобы точно попадать в поиске на кусок кода после окончания искомой процедуры (не зацепить случайно End Sub или End Function):  
Sub FindProc(Proc$)  
  Dim iWbk As Workbook, iVBComp As Object, iProcName$, iCodeLine&  
  On Error GoTo ErrExit  
  For Each iWbk In Workbooks   ' для каждой из открытых книг  
     For Each iVBComp In iWbk.VBProject.VBComponents  ' для каждого модуля проекта  
        iCodeLine = 1   'начиная с первой строки кода  
        With iVBComp.CodeModule  
           Do Until Not .Find(Proc & " ", iCodeLine, 1, .CountOfLines, 1, , True)   ' ищем в тексте модуля требуемый тип процедуры ("Sub_" или "Function_")  
              iProcName = .ProcOfLine(iCodeLine, 0)  
Debug.Print iWbk.Name & vbTab & iVBComp.Name & vbTab & iProcName  
              iCodeLine = .ProcStartLine(iProcName, 0) + .ProcCountLines(iProcName, 0) ' переходим к следующей после конца процедуры строке кода  
           Loop  
        End With  
     Next iVBComp  
  Next iWbk  
ErrExit:  
  If Err Then Debug.Print Err.Description  
End Sub  
и всё равно вылетает...  
Что-то, наверное, в цикле Do Until Not .Find(Proc & " ", iCodeLine, 1, .CountOfLines, 1, , True)... Loop не правильно.  
Я сам циклы Do Until ... Loop никогда не использую, а метод Find VB использую в первый раз в жизни (просто взял из другого примера на http://www.msoffice.nm.ru/faq/macros/module.htm#faq549 и чуть адаптировал)...  
Может, кто из гуру сможет подсказать, как надо делать?

Я тут тоже не помощник - никогда такого не делал. Подождём гуру...

Дома из-под Висты решил свой макрос попробовать...  
Фиг вам! Ещё лучше: "Программный доступ к проекту Visual Basic не является доверенным"  
А как его доверить-то? Под ХРюшей с абсолютно тем же Офисом на старом компе и на работе таких заморочек не было...

EducatedFool,  
мало того, что меня не пускают:"Программный доступ к проекту Visual Basic не является доверенным", о чём я писал в предыдущем посте, так ещё и компилятор отказывается понимать назначение FSO As FileSystemObject... Ругается, что якобы "User-Defined Type not defined".  
Завтра попробую на работе на ХРюше.  
Но вообще-то, если в моём макросе убрать перебор всех открытых книг в цикле, а оставить только одну ThisWorkbook, то всё прекрасно работает...  
 
Ваш код подробно не разбирал, но на первый взгляд кажется, Вы там просто в тексте ищете "Sub ", "End Sub", "Function ", "End Function" и т.п.?  
А если вдруг эти "волшебные слова" встретятся в тексте выводимого программно стринга или в комментариях?  
ИМХО, корректнее было бы искать первое не закоментированное вхождение нужного слова на листе кода, а потом уже, вычислив для этой строки имя процедуры iProcName = .ProcOfLine(iCodeLine, 0),  искать следующее вхождение уже после окончания этой процедуры. Т.е. начиная со строки  
iCodeLine = .ProcStartLine(iProcName, 0) + .ProcCountLines(iProcName, 0) как сделано в последнем приведенном мною варианте.  
Надо бы попробовать скрестить Ваш метод с методом моего примера: первую процедуру на листе кода искать как у Вас - по InStr(...), а следующее - как у меня - после окончания процедуры (через .ProcCountLines строк после начала процедуры).  
Только не знаю, хватит ли для этого моего знания ВБА...

Игорь,  
описания, естественно, писать придётся ручками на листе в колонке рядом с именем функции или макроса.  
Именно они будут выводиться на твою волшебную форму. Но можно сделать и добавочный прикол: прописать эти описания ещё и в Description чтобы они выводились при выборе ЮДФ обычным путём из "Определённые пользователем..."  
Т.е. если сейчас я делаю так:    
по событию Workbook_Open вызываю  
Sub Set_UDF_notes()  
'   On Error Resume Next  
   Const UDF_cat = "Определенные пользователем"  
   With Application  
       .MacroOptions Macro:="Substring", _  
                     Description:="Выделяет из текста n-ный субстринг, ориентируясь по символам-разделителям", _  
                     Category:=UDF_cat  
       .MacroOptions Macro:="СКЛЕИТЬ", _  
                     Description:="Склеивает тексты из выделенных ячеек с возможностью переноса строк", _  
                     Category:=UDF_cat  
   End With  
End Sub  
то в твоей форме можно будет эти дескрипшены считать с листа.

{quote}{login=Alex_ST}{date=07.09.2010 11:05}{thema=}{post}А среди функций почему-то затесался и макрос от EducatedFool, в котором встречаются "волшебные слова" "Function ". Значит "перескок" поиска на конец процедуры у меня не работает...{/post}{/quote}  
Так это то, что я заметил, когда на работе тестировал - среди функций появился твой макрос Sub FindProc(Proc$) - именно потому, что там в комментариях есть "Function ", что я и предложил заменить на "Function_".  
Я думаю, перескок тут нипричём - код нашёл процедуру, которая вроде как в его понимании функция. Он ведь ищет по всему тексту? Может искать только в первой строке?

Мне кажется, надо именно в первой строке только смотреть. Если нет, берём следующую процедуру. А то ведь может быть в тексте макроса и незакоментированное что-то типа Msgbox "This Function Not Allowed!!!"

Правда, в предыдущем посте я был не в 100% случаев прав...  
Ведь в модуле может быть и продекларирована какая-нибудь текстовая константа, содержащая "волшебные слова"...  
Но, ИМХО, для конкретных наших целей возможностью существования такого варианта можно пренебречь.  
Но конечно, если задаться целью написать универсальный макрос, который во всех случаях будет правильно "вытягивать" из кода все сабы и функции, то нужно будет ещё подполировать поиск.

Дмитрий, а что будет, если внутри тела процедуры встречается в комментах или в стрингах текст "End Sub" или "End Function", а после них внутри той же процедуры "Sub" или "Function"?

К стати, посмотрев рекомендованный уважаемым Йодо (EducatedFool) пример http://excelvba.ru/code/print_all_code_of_VBA_project , я ЧАСТИЧНО нашёл, почему он отказывается работать.  
Там определено:  
Dim FSo As FileSystemObject, ts As TextStream, fil As File  
а ни одного из таких типов ВБА не знает. Их надо сначала определить.  
Например, вот так:  
Dim FSo As Object  
Set FSo = CreateObject("Scripting.FileSystemObject")  
 
а вот как определять и назначать ts As TextStream и fil As File я пока не нашёл...

Цитирую - 1. Поиск со строки iCodeLine=1 до первого нахождения незакомментированного "волшебного слова"  
Ну и вот, когда ищешь "Function " - находишь это внутри саба, и считаешь, что это функция - прыгаешь на конец этой процедуры, а сам саб - в список функций. Я так понял, почему у меня в функциях твой саб затесался.  
И честно говоря, не вижу, где закоментированное отсекается...