対象のブックのタイトルバーを非表示にしたい

Question

前提・実現したいこと

複数ブックを表示しているという前提で、対象のブックに対してタイトルバーを非表示にする処理をVBAにて作成しています。
エクセルの機能だけでは実現できないと考え、WindowsAPIを用いております。

発生している問題・エラーメッセージ

コード自体は記述できており内容も問題ないと考えているのですが、処理を実行しても画面上は特に変化は無く、タイトルバーの非表示が実現できません。
基本的な処理の流れとしては、対象のブックのハンドル値を取得、SetWindowLongにてウインドウ変更、SetWindowPosにて反映といった形になります。
以下、ソースコードになります。
宣言は全て記載、処理は該当の部分のみを記載しました。
ウインドウ名を渡して処理を呼び出しています。
当方はWindowsAPIを最近利用し始めたばかりのため不慣れであり、もし問題があると思われる箇所がありましたらご指摘頂けたらと思います。

該当のソースコード

'最前面
Private Declare Function GetForegroundWindow Lib "user32" () 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_TOP = 0
Private Const HWND_TOPMOST As Long = -1
Private Const SWP_NOSIZE As Long = &H1&
Private Const SWP_NOMOVE As Long = &H2&
Private Const SWP_FRAMECHANGED = &H20&


'フォーム背景透明化
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long) 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 Declare Function SetLayeredWindowAttributes Lib "user32" _
    (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Long, ByVal dwFlags As Long) As Long

Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Const LWA_COLORKEY = 1&
Const LWA_ALPHAKEY = 2&


'フォームタイトルバー非表示
#If VBA7 And Win64 Then
Private Declare PtrSafe Function WindowFromObject Lib "oleacc" Alias "WindowFromAccessibleObject" _
    (ByVal pacc As Object, phwnd As LongPtr) As LongPtr
Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hwnd As LongPtr) As Long
#Else
Private Declare Function WindowFromObject Lib "oleacc" Alias "WindowFromAccessibleObject" _
    (ByVal pacc As Object, phwnd As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
#End If

Const GWL_STYLE = (-16&)
Const WS_CAPTION = &HC00000
Const WS_EX_DLGMODALFRAME = &H1&

Sub ウインドウ設定(ウインドウ As String)
    
    Dim hwnd As Long
    
    hwnd = FindWindow("XLMAIN", ウインドウ)
    Call SetWindowLong(hwnd, GWL_STYLE, GetWindowLong(hwnd, GWL_STYLE) And Not WS_CAPTION)
    Call SetWindowPos(hwnd, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_FRAMECHANGED)
    
End Sub

試したこと

ハンドル値が正常に取得できているかは検証済みです。
問題があるとすればそれ以降の処理になるかと思います。

補足情報（FW/ツールのバージョンなど）

Excel2016 32ビット バージョン2011

Answer 1

初期化処理を見直したら機能しました。
コード自体には問題無かったようです。