版权声明：本文为博主原创文章，未经博主允许不得转载。 https://blog.csdn.net/chuhe163/article/details/89889810
日常办公中想置顶便笺，可能受制于公司电脑权限，无法下载相关软件。下面这段VBA可能会帮上忙（应该没有哪家公司的电脑不让装office），也可以用这种方法置顶其它窗口。
win10中叫便利贴
win7叫便笺
'查找窗口句柄
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'这个函数能为窗口指定一个新位置和状态
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST = -1
Private Const SWP_NOMOVE = 2
Private Const SWP_NOSIZE = 1
Sub setWindowTop()
hwnd = FindWindow("Sticky_Notes_Note_Window", "便利贴")
SetWindowPos hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub