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

我有一个带有宏的工作簿“A”，并使用快捷键“Ctrl + Q”进行设置，当我按下“Ctrl + Q”窗体弹出，当我按下“ESC”时，窗体关闭，因为我添加了一个按钮“CommandButton1”，其属性“取消”设置为TRUE。excel vba表格已关闭，但我无法切换到其他.xlsm工作簿

在代码中，我关闭的形式是这样的：

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工作簿是很好..

来源

2012-03-12 aaron

如果你的意思，而你的'显示UserForm'那么这是正常的，因为默认的工作簿模型，你不能切换的书籍。如果你像'UserForm1.Show vbModeless'那样调用'UserForm'，那么你可以在活动的'Userform'中切换书本。或者你是否说你可以切换书籍，直到工作簿A关闭（即不管表格是否打开）？ – brettdj 2012-03-12 06:04:30

@aaron：我无法重现此行为。它可以在我的电脑上正常工作。我相信问题在别的地方。你可以发布Userform和宏代码吗？ – 2012-03-12 08:15:55

@brettdj，谢谢，这是真的，我们不能在显示对话框（这是非模态的）时切换工作簿，但现在（对于不清楚的描述抱歉），我的意思是在对话框关闭后切换工作簿。 – aaron 2012-03-13 06:20:48

@SiddharthRout，我增加了更多的评论重现问题 - 亚纶30分钟前

最后，我已经能够重现它:)让我检查一下，并回到你身边。我无法切换到其他xlsm/xlsx工作簿。它不断向我展示原始的工作手册。 Alt + Tab也拒绝工作。如果我按下commandbutton，它不会产生任何异常。 - 亚洲时报Siddharth溃败1分钟前编辑

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

这将解决您的问题。（TRIED AND TESTED）

将这2行额外的代码放在您调用useeform的工作表的按钮代码中。

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

HTH

希德

来源

2012-04-02 10:01:11

工作，非常感谢！ – aaron 2012-04-06 06:01:15

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

回答

相关问题