Я сделал так:

Dim Ctrl As Control
Dim frm As Form
For Each frm In Forms
For Each Ctrl In frm.Controls
If CStr(Ctrl.Name) = "ИмяТойСамойКнопки" Then
Ctrl.Enabled = False
End If
Next
Next
Не слишком ли загонно? Може есть путь попроще?


For Each frm In Forms
frm.имятойсамойкнопки.Enabled = False
Next
Option Explicit
Private Sub Command1_Click()
NewForm
End Sub
Option Explicit
Dim f(3) As Form
Public frmCnt As Long
Sub Main()
Set f(0) = New frmMain
frmCnt = 1
f(0).Show
End Sub
Public Sub DisableAll()
Dim frm As Form
For Each frm In Forms
frm.Command1.Enabled = False
Next
End Sub
Public Sub NewForm()
Set f(frmCnt) = New frmMain
f(frmCnt).Show
frmCnt = frmCnt + 1
If frmCnt = 4 Then DisableAll
End Sub
Сейчас этот форум просматривают: AhrefsBot, SemrushBot и гости: 4