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

上面的表单包含一个webbrowser和一个取消按钮。我在工作表中添加了一个带有宏代码Get_Photo.Show的按钮单击按钮时，表单将显示其中的图片。但是当我按下“ESC”后关闭表单时，我无法切换到其他xlsm工作簿，但是xlsx工作簿很好..

Answer 1

@SiddharthRout，我添加了更多评论来重现这个问题 - aaron 30分钟前

最后，我已经能够重现它了:)让我检查一下并回复你。我无法切换到其他xlsm / xlsx工作簿。它一直向我展示原始工作簿。 Alt + Tab也拒绝工作。如果我按下命令按钮，它不会有任何异常。 - Siddharth Rout 1分钟前编辑

我无法解释这种行为。可能这是一个错误（但是，我还没有看到任何关于它的文档）。

这将解决您的问题。（已审判并已经过测试）

在您调用useeform的工作表的按钮代码中添加这两行代码。

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

HTH

西特

excel vba表单已关闭，但我无法切换到其他.xlsm工作簿

1 个答案: