'----------------------------
    '----------------------------
    ' protections (start)
    '----------------------------
    '----------------------------
    
'>>>>>>>>>>>>new
        If ((itrade = 1) And (icomesell_save = 1) And (ikc < 100)) Then
         If (ibuy = 1) Then
         toto = shtDB.Range("A1").Cells(i, 1).Value - xenter_ini 'intra_close(ik, ikc) - intra_close(ik, ikc0)
         If (toto < -30) Then cond_break_buystrategy = True
         End If
        End If

        If ((itrade = 3) And (itradelong = 1) And (itradeshort = 1)) Then
         t1 = shtTrading.Range("F2").Cells(1, 1).Value 'temp_tradesshort(1)
         t2 = shtTrading.Range("E2").Cells(1, 1).Value 'temp_tradeslong(1)
         t3 = shtTrading.Range("D2").Cells(3, 1).Value 'temp_trades(3)
          If ((t1 > 40) And (ikc < 800)) Then
           If ((t2 < -20) And (t3 = 0)) Then ibreak = 1
          End If
        End If


        If ((itrade = 2)) Then
         t1 = shtTrading.Range("D2").Cells(1, 1).Value 'temp_trades(1)
         t2 = shtTrading.Range("D2").Cells(2, 1).Value 'temp_trades(2)
         If ((temp_save < -60) And (t2 = 0)) Then ibreak = 1
        End If

automated trading - code vba 5

Visual Basic