只有userform應該是可見的，而不是excel

請告訴我們如何只顯示userform而不是擅長背後。我使用了application.visible = false，但它隱藏了所有其他的excel。我使用activatewindow.visible = false，但userform不從excel中檢索數據。我用activatewindow.displayworkbooktabs=false但它不隱藏工作簿。只有userform應該是可見的，而不是excel

來源

2015-07-13 Gaus Shaikh

試試看看這個代碼。

Private Sub Workbook_Open() 
    Application.Visible = False 
    UserForm1.Show vbModeless 
End Sub

不要忘記將應用程序可見之前關閉

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 
    Application.Visible = True 
End Sub

來源

2015-07-13 11:09:39

它隱藏所有其他的Excel文件。我們如何避免它 –

@GausShaikh在打開工作簿時檢查ActiveWindow.WindowState = xlMinimized屬性。當你關閉workbok時，你可以設置回AxtiveWindow.WindowState = xlMaximized –

寫這窗體：

Private Sub CommandButton1_Click() 
    Dim wCount As Long 
    Dim i  As Long 

    wCount = Windows.Count 
    For i = 1 To wCount 
    Windows(i).Visible = True 
    Next i 

    Unload Me 
End Sub 

Private Sub UserForm_Initialize() 
    Dim wCount As Long 
    Dim i  As Long 

    wCount = Windows.Count 
    For i = wCount To 1 Step -1 
    Windows(i).Visible = False 
    Next i 

End Sub

來源

2015-07-13 11:15:44 Gromek

它會隱藏所有的excel文件還是隻有VBA的excel文件。此外，我將能夠檢索數據從excel到用戶表格 –

它顯示錯誤爲方法的object_Globel工作表失敗 –

我沒有錯誤。在我的工作簿的工作表1中有ActiveX命令按鈕，在其事件中只有一行：UserForm1.Show在UserForm1模塊中有該代碼。 – Gromek

只有userform應該是可見的，而不是excel

回答

相關問題