Запись макроса

[Aristarkch]

Здравствуйте!
Excel 2003.
Возможна ли одновременная (параллельная) запись макроса в несколько листов книги?

[IgorGO]

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

[Aristarkch]

Сообщение от IgorGO

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

Добрый день, Игорь!
К сожалению, Вы подтвердили мои худшие ожидания.

[IgorGO]

здравствуйте. Аристарх!
рассчитывали, что действия над каждым из файлов в него же и запишутся?
подвели в этом вопросе программисты майкрософта, не догадались, что так может быть нужно. но выход я уже назвал - пилить полученный макрос до полного удовлетворения.

[alex77755]

Вопрос как-то не внятно поставлен.
Начнём с того, что макрос не пишется вообще "в листы"
не пишется даже в модуль листа. При записи макроса он пишется в модуль

[Aristarkch]

Сообщение от IgorGO

здравствуйте. Аристарх!
рассчитывали, что действия над каждым из файлов в него же и запишутся?
подвели в этом вопросе программисты майкрософта, не догадались, что так может быть нужно. но выход я уже назвал - пилить полученный макрос до полного удовлетворения.

Сообщение от IgorGO

здравствуйте. Аристарх!
рассчитывали, что действия над каждым из файлов в него же и запишутся?
подвели в этом вопросе программисты майкрософта, не догадались, что так может быть нужно. но выход я уже назвал - пилить полученный макрос до полного удовлетворения.

Возможно, формулировка моего, казалось бы, простого вопроса некорректна и непонятна?
Об этом пишет alex77755.
В таком случае, еще раз.
Есть макрос.
И есть книга, допустим, с десятью листами.
Я делаю примитивно: записываю макрос в первый лист. Затем то же проделываю со вторым листом и т.д. Действительно пилю.
А хочется записать макрос в 10 листов не поочередно, а СРАЗУ (параллельно) внести его во все 10 листов одним кликом.
Я пробовал так:

For each ws in Worksheets
With ws
[код макроса]
End with ws
next ws

или так

For each ws in Worksheets
ws.Activate
[код макроса]
next ws

но не получилось.

[Aristarkch]

Сообщение от Aristarkch

Возможно, формулировка моего, казалось бы, простого вопроса некорректна и непонятна?
Об этом пишет alex77755.
В таком случае, еще раз.
Есть макрос.
И есть книга, допустим, с десятью листами.
Я делаю примитивно: записываю макрос в первый лист. Затем то же проделываю со вторым листом и т.д. Действительно пилю.
А хочется записать макрос в 10 листов не поочередно, а СРАЗУ (параллельно) внести его во все 10 листов одним кликом.
Я пробовал так:

For each ws in Worksheets
With ws
[код макроса]
End with ws
next ws

или так

For each ws in Worksheets
ws.Activate
[код макроса]
next ws

но не получилось.

Сообщение от Aristarkch

Возможно, формулировка моего, казалось бы, простого вопроса некорректна и непонятна?
Об этом пишет alex77755.
В таком случае, еще раз.
Есть макрос.
И есть книга, допустим, с десятью листами.
Я делаю примитивно: записываю макрос в первый лист. Затем то же проделываю со вторым листом и т.д. Действительно пилю.
А хочется записать макрос в 10 листов не поочередно, а СРАЗУ (параллельно) внести его во все 10 листов одним кликом.
Я пробовал так:

For each ws in Worksheets
With ws
[код макроса]
End with ws
next ws

или так

For each ws in Worksheets
ws.Activate
[код макроса]
next ws

но не получилось.

Возможна ли при необходимости блокировка-разблокировка макроса?

[alex77755]

ну так здесь же нет записи макроса.
Но возникает вопрос: а надо ли записывать макросы во все листы? почему не записать в модуль класса один раз а при активации любого листа назначать

для записи должно быть что-то типа такого:

      ТекстПроцедуры = "public Sub QWERT()" & vbCrLf & " MsgBox(""Привет"")" & vbCrLf & "End sub"
        _xlWorkBook.VBProject.VBComponents.Item("ЭтаКнига").CodeModule.AddFromString(ТекстПроцедуры)

[bdfy]

Сообщение от Aristarkch

И есть книга, допустим, с десятью листами.
Я делаю примитивно: записываю макрос в первый лист. Затем то же проделываю со вторым листом и т.д. Действительно пилю.

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

[alex77755]

Возможна ли при необходимости блокировка-разблокировка макроса?

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

записываю макрос в первый лист

похоже автор имеет в виде вручную записывает!? не макрорекордером