Private iTimer As Date, iCollection As New Collection

Option Explicit

Private WithEvents cbX As MSForms.ComboBox
Private WithEvents tbX As MSForms.TextBox

Public Sub setCont(ByVal cont)
    If TypeName(cont) = "ComboBox" Then
        Set cbX = cont
        cbX.Locked = True
    ElseIf TypeName(cont) = "TextBox" Then
        Set tbX = cont
        tbX.Locked = True
    End If
End Sub

Private Sub cbX_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    cbX.Locked = False
    cbX.BackColor = vbGreen
End Sub

Private Sub tbX_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    tbX.Locked = False
    tbX.BackColor = vbGreen
End Sub

Option Explicit

Private contList() As myClass

Private Sub UserForm_Initialize()
    Dim cntrX As Control
    ReDim contList(0 To 0)

    For Each cntrX In frmTest.Controls
        ReDim Preserve contList(0 To UBound(contList) + 1) 'да, нулевой элемент массива пустой, но я с этим массивом работать не собираюсь. Он просто костыль.
        Set contList(UBound(contList)) = New myClass
        contList(UBound(contList)).setCont cntrX
    Next cntrX
    
End Sub

'Событие Exit вроде как нельзя описать в Class Module, так что придётся писать для каждого элемента. Можно как-то это сократить?
'Ещё один вопрос: я могу как-то обратиться к элементу, на котором произошло событие? This (ничего)? Me (форма)?
Private Sub cb1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    cb1.Locked = True
    cb1.BackColor = &H80000005
End Sub

Private Sub tb1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    tb1.Locked = True
    tb1.BackColor = &H80000005
End Sub

Private Sub tb2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    tb2.Locked = True
    tb2.BackColor = &H80000005
End Sub

If range(Mid(range("H7").Formula,2)).offset(1)="" then range("H7").Formula = "=P2"