VBA 最小化 Excel 僅顯示窗體，並且窗體始終位於所有程式的前面

如果要在Excel**的頂部顯示表單，則使用模組化方式在顯示表單的語句處開啟它，即在顯示後新增乙個1

例如：sub auto open（）。

1end sub

如果它不是 0，則不會首先強制表單。

如果只想顯示表單而隱藏 excel，則可以通過以下語句將 excel 設定為不可見，僅顯示表單

private sub from_load()end sub

在此工作簿中包括以下內容**。

private sub workbook_open()0

end sub

然後新增到要載入的主窗體中。

private sub userform_initialize() '載入窗體後，執行以下操作。

xlminimized '最小化 Excel 視窗。

end sub

所有 3 種方法都有 2 種方法：

1.將視窗設定為無標題，然後自定義標題模式以模擬最小化功能。

2. 通過 API 恢復視窗的最小化按鈕。

這裡推薦第二種方法，比較穩定，開發簡單。

**：option explicit

private declare function getwindowlong lib "user32" alias "getwindowlonga" (byval hwnd as long, byval nindex as long) as long '獲取視窗樣式 API

private declare function findwindow lib "user32" alias "findwindowa" (byval lpclassname as string, byval lpwindowname as string) as long '查詢當前視窗控制代碼 API

private declare function setwindowlong lib "user32" alias "setwindowlonga" (byval hwnd as long, byval nindex as long, byval dwnewlong as long) as long

private const gwl_style = (-16) '設定視窗樣式 API

Minimize） 初始化使用者表單。

private sub userform_initialize()

dim hwndform as long

dim istyle as long

hwndform = findwindow("thunderdframe"，“獲取視窗控制代碼。

istyle = getwindowlong(hwndform, gwl_style) '獲取當前標題欄樣式。

istyle = istyle or ws_minimizebox '設定最小化按鈕。

setwindowlong hwndform, gwl_style, istyle '將顯示最小化按鈕。

end sub

''使用 API 將“最大化”和“最小化”按鈕新增到窗體中

option explicit

private declare function getwindowlong lib "user32" alias "getwindowlonga" (byval hwnd as long, byval nindex as long) as long

private declare function findwindow lib "user32" alias "findwindowa" (byval lpclassname as string, byval lpwindowname as string) as long

private declare function setwindowlong lib "user32" alias "setwindowlonga" (byval hwnd as long, byval nindex as long, byval dwnewlong as long) as long

private const gwl_style = (-16)

恢復大小）最小化）。

maximize） private sub userform initialize（）。

dim hwndform as long

dim istyle as long

hwndform = findwindow("thunderdframe",istyle = getwindowlong(hwndform, gwl_style)

istyle = istyle or ws_thickframe '恢復。

istyle = istyle or ws_minimizebox '最小化。

istyle = istyle or ws_maximizebox '最大化。

setwindowlong hwndform, gwl_style, istyle

end sub

單擊要設定的窗體，然後在屬性中查詢 minbutton 或其他內容，它將設定為 true