Задать число раз выполнения макроса средствами VBA Excel 2003

[vfv]

Как задать число раз выполнения макроса средствами VBA Excel 2003

[IgorGO]

в произвольный внешний файл
или в параметр (который сами и создадите) в реестре
или в самом макросе первой строкой напишите const cnt = 1

и дописывайте 1 при каждом выполнении макроса. достигли предела - все, прекращаете выполнение, или тем же способом, которым константу cnt правили - удяляете сам макрос.

[vfv]

Дописал в строку макроса const cnt = 1,однако это не влияет на работу макроса.

[IgorGO]

читейте дальше:
"и дописывайте 1 при каждом выполнении макроса" - а вот теперь дописываете код в Вашем макросе, который будет в Вашем макросе править значение константы cnt при каждом запуске.

[vfv]

Что то я не как не могу сообразить. У Вас нет какого нибудь примера?

[IgorGO]

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

[doober]

3 варианта.
Радикальные не применял

[IgorGO]

Const cnt = 1

Sub Stop1()
  Dim a As Long, r As Long, c As Long
  r = ActiveCell.Row
  c = ActiveCell.Column
  ActiveSheet.Shapes(1).Select
  Selection.Characters.Text = "Осталось" & 3 - cnt
  Cells(r, c).Select
  With ActiveWorkbook.VBProject.VBComponents(3).CodeModule
    If cnt = 3 Then
      MsgBox "The end"
      .deletelines 3
      .insertlines 3, "Sub Stop2()"
      ActiveWorkbook.Save
      Exit Sub
    End If
    MsgBox 3 - cnt & " times left"
    a = cnt
    .deletelines 1
    .insertlines 1, "const cnt = " & a + 1
    ActiveWorkbook.Save
  End With
End Sub

запускается 3 раза. после 3-го раза. Макрос Stop1() переименовывается в Stop2(), кнопка тереяет с ним связь и перестает работать.