只有用戶表單應該可見，而不是Excel

Question

請告知我們如何僅顯示用戶userform ，而不顯示其背后的優勢。

我使用了application.visible = false但它隱藏了所有其他excel。 我使用了activatewindow.visible = false但userform並未從excel檢索數據。 我使用activatewindow.displayworkbooktabs=false但它沒有隱藏工作簿。

Answer 1

試試這個代碼。

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

Answer 2

將此寫入用戶表單：

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