Форма Excel VBA закрыта, но я не могу переключиться на другую книгу .xlsm

Question

У меня есть рабочая книга "A" с макросом и набором клавиш "Ctrl + Q", когда я нажимаю "Ctrl + Q", появляется форма, а когда я нажимаю "ESC", форма закрывается, так как Я добавил кнопку «CommandButton1», свойство «Отмена» которой установлено на TRUE.

В коде я закрываю форму следующим образом:

Private Sub CommandButton1_Click()
    Unload Me
End Sub

Работает хорошо, но проблема в том, что я не могу переключиться на другие открытые книги, пока не закрою книгу "A", кто-нибудь знает, в чем проблема?

Большое спасибо!

код такой:

VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Get_Photo 
   Caption         =   "abc"
   ClientHeight    =   3120
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   4710
   OleObjectBlob   =   "Get_Photo.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "Get_Photo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub CommandButton1_Click()
    Unload Me
End Sub

Sub UserForm_Initialize()

    With Get_Photo
        .Caption = caption_Name
        .Width = 430
        .Height = 270
    End With

    With WebBrowser1
        .Width = 540
        .Height = 300
        .Navigate ("www.google.com/images/logos/images_logo_lg.gif")
    End With

End Sub

Приведенная выше форма содержит веб-браузер и кнопку отмены. Я добавил кнопку на лист с кодом макроса Get_Photo.Show при нажатии на кнопку форма отобразится с изображением. но когда я закрыл форму после нажатия «ESC», я не могу переключиться на другие книги xlsm, но книги xlsx подойдут ..

Answer 1

@ SiddharthRout, я добавил больше комментариев, чтобы воспроизвести проблему - Аарон, 30 минут назад

Наконец-то я смог воспроизвести это :) Позвольте мне проверить это и вернуться к вам. Я не смог переключиться на другую рабочую книгу xlsm / xlsx. Он продолжал показывать мне оригинальную книгу. Alt + Tab также отказался работать. Это не делает никаких исключений, если я нажимаю командную кнопку. - Сиддхарт Рут 1 минуту назад редактировать

Я не могу объяснить поведение. Возможно, это ошибка ( Тем не менее, я еще не видел никакой документации по ней ).

Это решит вашу проблему. ( ПРОВЕРЕНО И ИСПЫТАНО )

Поместите эти 2 дополнительные строки кода в код кнопки на рабочем листе, откуда вы вызываете пользовательскую форму.

Private Sub CommandButton1_Click()
    UserForm1.Show
    Application.ShowWindowsInTaskbar = False
    Application.ShowWindowsInTaskbar = True
End Sub

НТН

Sid