Pessoal, Tudo blz?

Como vocês tratam o seguinte problema no projeto de vocês:

* Fiz um formulário para que os usuários fizessem solicitações de descontos, esse formulário possui varias travas e varias otimizações no processo para a CIA.

* O problema é que esta todo mundo me reclamando que não consegue abrir outro Excel enquanto estão com meu formulário ativo na tela, e eles precisam abrir outro Excel ao mesmo tempo para executar outras atividades em paralelo. Como eu faço para que meu projeto seja sempre aberto em uma nova instancia exclusiva para meu projeto?[/list:u:ys1m02hu]





Pensei em algo assim, sempre que o Workbook for desativado, significa que o usuario pode estar tentando abrir uma nova pasta de trabalho, então executar a macro:

Private Sub Workbook_Deactivate()

     If UserForm1.Visible = True Then

          Dim xlApp As New Application
          Dim wbPath As String
          Dim wbName As String
          Dim wbPathName

          Set xlApp = New Excel.Application
 
          wbPath = ActiveWorkbook.Path
          wbName = ActiveWorkbook.Name
          wbPathName = wbPath & "" & wbName

          ActiveWorkbook.Close

          xlApp.Workbooks.Open wbPathName

          xlApp.ActiveWorkbook.Windows(1).Visible = True
          xlApp.Windows(1).Caption = wbName
          xlApp.Visible = True
          ThisWorkbook.Activate

     End If

End Sub

Não gostei disso! Funciona, mas não gostei. Me pareceu uma gambiarra monstruosa.

Fui Util? Click na "Mãozinha" ali do lado >>>> e agradeça.