Access2013のコマンドボタンを消す方法

質問

会社でAccessアプリケーションを作っています。
これまで、Access2003で作っていて、タイトルバーにある閉じるなどのコマンドボタンをモジュールで消していました。モジュールは、下記のような物です。
この度、会社のPCの交換で、Access2013にしたので、古いAccessをコンバートしたいと思いまして、不具合をつぶしているのですが、タイトルバーにあるコマンドボタンを非表示にすることができなくて悩んでいます。
どなたか、Access2013での方法を知っていましたら教えてください。
よろしくお願いします。

Access2003で使っているコードの一部です。
Public Function AccessTitleBar()
Const GWL_STYLE = (-16)
Const WS_SYSMENU = &H80000
Dim lngRetVal As Long
lngRetVal = GetClassLongPtr(hWndAccessApp, GWL_STYLE)
lngRetVal = SetWindowLongPt(hWndAccessApp, GWL_STYLE, lngRetVal - WS_SYSMENU)
lngRetVal = SetWindowPos(hWndAccessApp, 0, 0, 0, 0, 0, _
SWP_DRAWFRAME Or SWP_NOZORDER Or SWP_NOMOVE Or SWP_NOSIZE)
End Function

回答No.1

hatena1989 · ベストアンサー

下記のコードで消せています。

Option Compare Database
Option Explicit

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 Const GWL_STYLE = (-16)
Private Const WS_SYSMENU = &H80000

Public Sub SetAccWinStyle()
Dim WStyle As Long
Dim hWnd As Long

DoCmd.ShowToolbar "Ribbon", acToolbarNo

hWnd = Application.hWndAccessApp
WStyle = GetWindowLong(hWnd, GWL_STYLE)
WStyle = WStyle And Not WS_SYSMENU
SetWindowLong hWnd, GWL_STYLE, WStyle
End Sub

リボンが表示されていると消せないようですので、
DoCmd.ShowToolbar "Ribbon", acToolbarNo
でリボンを非表示にするのがキモです。

リボンを表示したまま消す方法はわかりません。

お礼

hatena1989さん

回答ありがとうございます。
このコードをモジュールに貼り付けて、SetAccWinStyle()を実行したら上手くいきました。ただ、起動時にこれを実行しようとして、AutoExecにプロシージャの実行を選択して、プロシージャ名をSetAccWinStyle()にしたら、見つけられない関数としてけられてしまいました。
お手間ですみませんが、起動時の設定の仕方まで教えていただけませんでしょうか。
よろしくお願いします。