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工作簿

回答

相關問題