Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

71686 / 76738

←次へ　｜　前へ→


	【9545】Re:ブックのバッテンを使わせない方法

INA - 03/12/8(月) 12:44 -


	引用なし

	パスワード

Private Declare Function FindWindow _
　　Lib "User32" Alias "FindWindowA" _
　　(ByVal lpClassName As String _
　　, ByVal lpWindowName As String) As Long
Private Declare Function GetSystemMenu Lib "User32" _
　　(ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Sub DeleteMenu Lib "User32" _
　　(ByVal hMenu As Long, ByVal nPosition As Long _
　　, ByVal wFlags As Long)
Private Declare Function DrawMenuBar Lib "User32" _
　　(ByVal hWnd As Long) As Long
Private Const SC_CLOSE As Long = &HF060&
Private Const MF_BYCOMMAND = &H0&

Sub sample()
Dim myHwnd As Long
Dim myHMenu As Long
　　myHwnd = FindWindow("XLMAIN", Application.Caption)
　　myHMenu = GetSystemMenu(myHwnd, 0)
　　If myHMenu <> 0& Then
　　　　DeleteMenu myHMenu, SC_CLOSE, MF_BYCOMMAND
　　End If
　　DrawMenuBar myHwnd
End Sub
---------------
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 DrawMenuBar Lib "User32" _
　 (ByVal hWnd As Long) As Long

Const WS_SYSMENU As Long = &H80000
Const GWL_STYLE As Long = -16

Sub sample2()
　Dim hWnd As Long, lStyle As Long
　hWnd = FindWindow("XLMAIN", Application.Caption)
　lStyle = GetWindowLong(hWnd, GWL_STYLE)
　lStyle = lStyle And Not WS_SYSMENU
　SetWindowLong hWnd, GWL_STYLE, lStyle
　DrawMenuBar hWnd
End Sub

---------------
Sub Sample3()
　ThisWorkbook.Protect Windows:=True
End Sub
---------------
Sub Sample4()
　Application.DisplayFullScreen = True
End Sub

ユーザーフォームで入力画面を作った方が良い気もしますが・・・

0 hits

▼

【9543】ブックのバッテンを使わせない方法 クモ男 03/12/8(月) 11:20