Запись нового макроса другим макросом

[Владимир7]

Добрый день уважаемые эксперты! Может существует положительный ответ на такой вопрос:
Можно ли включить в Excel запись нового макроса другим уже записанным ранее макросом?
Если таковое возможно, то сразу дополнительное усложнение вопроса: во время записи макроса возможно ли продолжение выполнения первого пускового макроса?

[alibek]

Что значит "включить запись макроса"? Если программно создать новый макрос, то можно. Если именно записать последовательность операций, как макрос, то нельзя.

[Владимир7]

Включить запись макроса - имеется в виду действие через пункт меню Excel 2007 "Вид - Макросы - Запись макроса", т.е. так вручную мы включаем автоматическую запись нового макроса. Можно ли подобное включение выполнить программно?

[Владимир7]

То что программно можно создать новый макрос это известно.

[GDK]

Может быть попробовать узнать команду, которая включает запуск рекордера и запустить её? Или типа программно "нажать на кнопку Запись Макроса"?

[Владимир7]

вот вот - программно "нажать на кнопку Запись Макроса"
об этом и вопрос

[arvitaly]

Можно ли включить в Excel запись нового макроса другим уже записанным ранее макросом?

Не очень понятен смысл? Тебе нужно записать что будет делать человек или добавить в Макросы - новый макрос?

[Владимир7]

нужно записать что будет делать человек.

[viter.alex]

нужно записать что будет делать человек.

Любой keylogger, а потом расшифровывать чего он там нанажимал.
А попросить человека самому включить макрос на запись?

[Владимир7]

Уважаемый Alibek дал исчерпывающий ответ на мой вопрос:
"Если программно создать новый макрос, то можно. Если именно записать последовательность операций, как макрос, то нельзя." Задачу анализа действий ученика-пользователя можно решить разными способами и лучше всего закрыть эту тему, удалив её через время. Всем экспертам спасибо за внимание.

[arvitaly]

Если именно записать последовательность операций, как макрос, то нельзя.

Можно, вечером покажу

[arvitaly]

Не совсем к первому вопросу автора но зато к следующему.

Очень далеко от идеала, но на конкретном рабочем месте работать будет. И еще - это далеко не единственно - возможная реализация, а уж возможностей просто миллион.

Вот этот код в книгу (либо за которой нужно следить, либо в XLSTART скопировать свою).

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

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Workbook_Activate()
    ActiveWorkbook.Application.SendKeys "%tvy"
    Sleep 700
    Dim cm As CommandBar
    Dim cmc As CommandBarControl
For Each cm In Application.CommandBars
    If cm.Name = "Stop Recording" Then cm.Visible = False: cm.Enabled = False
    For Each cmc In cm.Controls
        If cmc.Caption = "Остановить запись" Or cmc.TooltipText = "Остановить запись" Then cmc.Visible = False: cmc.Enabled = False
    Next
Next
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ActiveWorkbook.SaveCopyAs "d:\spy\" & "rm_" & Day(Date) & "_" & Month(Date) & "_" & Year(Date) & "_" & Hour(Time) & "_" & Minute(Time) & "_" & Second(Time)
End Sub

Private Sub Workbook_Open()
    Application.IgnoreRemoteRequests = False
End Sub

Exeшник нужно запустить и держать включенным до открытия книги

Кстати кто-то тут недавно искал как менять заголовок у нового офисного документа
Прошу сильно не ругать - знаю что криво, но пригодится может

[Владимир7]

Ваше решение arvitaly конечно не полное:
1.Требуется внешний файл; 2.Запуск записи макроса всё равно необходимо делать вручную; 3.Одного VBA недостаточно.
А то, что возможностей просто миллион Вы безусловно правы - до этого только мне теорию надо изучать ещё и ещё.

[arvitaly]

2.Запуск записи макроса всё равно необходимо делать вручную;

Нет. Именно в этом и есть весь прикол! Обойтись без внешнего файла мне пока не удалось, но я уверен что это возможно.

[Владимир7]

Ух ты - первый раз вижу фишку кто сейчас в "в сети" - и результат Ваш ответ сразу же.

[Денис]

Владимир7

Задачу анализа действий ученика-пользователя можно решить разными способами

Вот с этого я и прошу всегда начинать. С начального условия задачи, с того, что Вам реально требуется, а не с того, что вы хотите реализовать, следуя изначально неправильной логике решения. В данном случае неправильным является предположение о слежении за действиями "подопытных" путем записи макросов.

Лучше установите radmin или аналогичный продукт удаленного администрирования. Зачем изобретать велосипед?

[alibek]

Ваше решение arvitaly конечно не полное:

И еще 4, не годится для локализованных версий.

[arvitaly]

И еще 4, не годится для локализованных версий.

Решение предполагалось, как я написал, не для продажи, а для конкретной задачи (в 1 офисе записывать лог изменений, например, прайса).

[Владимир7]

Может конечно и велосипед, но radmin или аналогичный продукт удаленного администрирования не интересует.
Это уже не Excel.