Correção, para o projeto não é a Userform2 que precisa abrir e ser manipulada ao mesmo tempo que a userform1, e sim a Userform4. Que aparece ao apertar o botão "Detalhar custo insumos" (userform1.commandbutton5)
Não consigo editar o post.

Bom dia finaljustice,

Cara, o problema não é no ShowModal, estava no valor a ser atribuido nas scroll's.

Vê se ajuda.

Qualquer coisa da o grito.
Abraço

Aparentemente no formulario interface, os scrollbars "estão assumindo" um valor padrão; e ao tentar redefinir o valor para inferior a esse "padrão" gera o erro
Por exemplo o ScrollBar1 assume o valor 10. Para contormar seria algo =/- assim

Private Sub TextBox7_Change()
 If DisableUFEvents Then Exit Sub
    DisableUFEvents = True
    If UserForm1.TextBox7 < 1 Then
        UserForm1.ScrollBar1 = 10 'UserForm1.TextBox7
    Else
        UserForm1.ScrollBar1 = UserForm1.TextBox7
    End If
    DisableUFEvents = False
End Sub

Aparentemente no formulario interface, os scrollbars "estão assumindo" um valor padrão; e ao tentar redefinir o valor para inferior a esse "padrão" gera o erro
Por exemplo o ScrollBar1 assume o valor 10. Para contormar seria algo =/- assim

Private Sub TextBox7_Change()
 If DisableUFEvents Then Exit Sub
    DisableUFEvents = True
    If UserForm1.TextBox7 < 1 Then
        UserForm1.ScrollBar1 = 10 'UserForm1.TextBox7
    Else
        UserForm1.ScrollBar1 = UserForm1.TextBox7
    End If
    DisableUFEvents = False
End Sub

Bom dia,

Obrigado por responder!

Fiz alterações como a que você sugeriu, mas o problema persiste... Não consigo entender porque no exemplo que fiz este problema não ocorre.
Porque este erro ocorre somente quando coloquei as userforms para funcionar vbmodeless ao mesmo tempo?

Basicamente alterei todas os controles das textbox para ficar neste "padrão": (só para ver se o problema não persistia depois iria avaliar os valores)

If UserForm1.TextBox12 < 1 Then
        UserForm1.ScrollBar6 = 10 'Val(Me.TextBox7.Text)
    Else
        UserForm1.ScrollBar6 = Val(UserForm1.TextBox12.Text)
    End If

Mas o problema persistiu...Ehm... eu realmente não estou entendendo.

Obrigado pela atenção e ajuda, se tiver alguma outra sugestão, fico grato.

Porem nem todos os scroll's "assumem" esse valor, verificou o modelo que o colega Bernardo passou acima?

Porem nem todos os scroll's "assumem" esse valor, verificou o modelo que o colega Bernardo passou acima?

Boa tarde,

Baixei, testei e este também não funciona. Olhei a programação e não percebi alterações. Você testou o arquivo e ai está funcionando?

Obrigado!

Bom dia finaljustice,

Cara, o problema não é no ShowModal, estava no valor a ser atribuido nas scroll's.

Vê se ajuda.

Qualquer coisa da o grito.
Abraço

Boa tarde Bernardo,
Baixei o arquivo que você disponibilizou porém, este não está funcionando e não encontrei nenhuma alteração na programação, você por acaso fez alguma alteração? Se sim você poderia exemplificar ou me direcionar por gentileza?

Como o Reinaldo e você comentaram sobre os valores atribuidos nas scrolls, estava fazendo isso pois diferentes scrolls precisam variar dentro de certos limites para que o resto do programa funcione. O que não está claro pra mim também é; se este é o problema, porque ele só está ocorrendo quando mudei as userforms para vbmodelss para poder manipular a userform1 enquanto a userform4 está exibida??

Obrigado pela ajuda!
Luis

O arquivo disponibilizado pelo Bernardo, tem alteração nas rotinas TextBox?_Change.r
Ou seja ao retornar o valor para a scroll multiplique pelo valor que dividiu no inicio
Bem não sei dizer o porque isso ocorre em modless, mas a proposta do colega Bernardo e mais simples e direta.

Veja no modelo TextBox7_Change....

UserForm1.ScrollBar1 = UserForm1.TextBox7 * 100