Accessウィンドウのサイズを固定する

2019年6月17日2019年12月28日VBA

MDBファイルを開いたときに、Accessアプリケーションのウィンドウの大きさを指定して、サイズ変更できないようにしたい。

このような質問の回答に用意したコードです。

下記の旧ブログの記事の内容を、64bit版Officeにも対応するように加筆修正したものです。

Accessウィンドウのサイズを固定する - hatena chips

下記の新ブログに更新した記事かあります。そちらを参照してください。 Accessウィンドウのサイズを固 ...

https://hatenachips.blog.fc2.com/blog-entry-2.html

Office2010l以降の64bit版と32bit版に対応してます。ただし、64bit版環境がないので動作確認はしてません。64bit版環境で実行して不具合があれば報告してください。
Office2007以前にも対応させる必要がある場合は、下記リンクを参考に書き換えてください。

WindowsAPI をOffice64bit版または32bit版のVBAで使うには

いままでOfficeの32bit版のVBAでWindowsAPIを使用していたコードが、Officeを64bit版に変更するとコン ...

https://hatena19.com/use-win-api-with-office-64bit-or-32bit-...

1. WindowsAPI 宣言
2. イベントプロシージャ
3. 解説
4. サンプルファイル

WindowsAPI 宣言

WindowsAPI を利用します。
標準モジュールを作成して、宣言部に下記のコードを記述(コピペ)します。

Option Compare Database
Option Explicit

    Public Declare PtrSafe Function SetWindowPos Lib "user32" _
                                    (ByVal hwnd As LongPtr, _
                                     ByVal hWndInsertAfter As LongPtr, _
                                     ByVal X As Long, ByVal Y As Long, _
                                     ByVal cx As Long, ByVal cy As Long, _
                                     ByVal wFlags As Long) As Long
    Public Declare PtrSafe Function GetSystemMenu Lib "user32" _
                                    (ByVal hwnd As LongPtr, _
                                     ByVal bRevert As Long) As LongPtr
    Public Declare PtrSafe Function RemoveMenu Lib "user32" _
                                    (ByVal hMenu As LongPtr, _
                                     ByVal nPosition As Long, _
                                     ByVal wFlags As Long) As Long

Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const HWND_TOP = &H0
Public Const SC_SIZE = &HF000
Public Const SC_MAXIMIZE = &HF030
Public Const SC_CLOSE = &HF060
Public Const SC_RESTORE = &HF120
Public Const MF_BYCOMMAND = &H0&

イベントプロシージャ

ファイルを起動したときに最初に開くフォーム(メニューフォームなど)の開くときのイベントプロシージャに下記のコードを記述(コピペ)します。

ファイルを起動したときに最初に開くフォームは、ファイル→オプション→現在のデータベース→フォームの表示 で指定できます。

Private Sub Form_Open(Cancel As Integer)
    Dim hwnd As LongPtr
    hwnd = Application.hWndAccessApp

    SetWindowPos hwnd, HWND_TOP, 0, 0, 800, 600, SWP_NOMOVE
    hwnd = GetSystemMenu(hwnd, 0)
    RemoveMenu hwnd, SC_SIZE, MF_BYCOMMAND

End Sub

800 * 600 の大きさに固定します。800、600の数値をお好みに変更してご利用ください。