Pessoal, boa noite!

O meu projeto ajuda-me, e muito, no gerenciamento das minhas despesas pessoais e, ao concluí-lo, o disponibilizarei aqui no planilhando, pois o desenvolvi com a ajuda de vocês.

Porém, se tem algo que me chateia, é o fado dele, uma vez em execução, não permitir a abertura de outras planilhas/projetos.

É o seguinte, se o meu projeto estiver sendo executado e o usuário tentar abrir outra planilha, automaticamente o meu projeto é maximizado, impedido a abertura de outra planilha.

Eu já o converti para .EXE, utilizando o programinha xltoExe, mas, mesmo assim, o problema persistiu.

Vejam o workbook dele e digam-me se tenho que alterar algo:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
End Sub

Private Sub Workbook_Open()
Application.Visible = False

Application.OnKey "{Escape}", ""

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Visible = True
Next ws

Dim PCName As String
Dim P As Long
P = NameOfPC(PCName)
text1 = Trim(PCName)
[da1] = (text1)

Dim lastrow As Object

Set lastrow = Plan41.Range("bz:bz").End(xlUp)

lastrow.Offset(0, 0).Value = 2

UserForm7.Show
      
Application.OnKey "{Escape}", ""
        
End Sub

Preciso muito da ajuda de vocês.