ExcelVBA2000でOKとCancelのメッセージボックス

質問

こんにちは
メッセージボックスで表示されるボタンをOKとCancelにしたいのですが、vbOKCancel指定ではOKとキャンセル（カタカナ）になります。OKとCancelにする方法をお教えください。

無理でしたら、ユーザーフォームを使って独自に作りたいのですが、この場合は閉じるボタン（X）が表示されてしまいます。これを消す方法をお教えください。

回答No.1

pkh4989 · ベストアンサー

こんにちは。
VBAのメッセージボックスでは、無理ですのでユーザーフォームを使って
以下のように試してみてください。

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Const GWL_STYLE As Long = (-16)
Public Const WS_SYSMENU As Long = &H80000

'X ボタンを非表示
Public Sub XButtonHide(oDialog As Object)
　　Dim hWnd　　　　　　As Long
　　Dim lStyle　　　　　As Long
　　'
　　hWnd = FindWindow("ThunderDFrame", oDialog.Caption)
　　If hWnd = 0 Then
　　　　hWnd = FindWindow(vbNullString, oDialog.Caption)
　　End If
　　lStyle = GetWindowLong(hWnd, GWL_STYLE)
　　SetWindowLong hWnd, GWL_STYLE, lStyle And Not WS_SYSMENU
End Sub

'OK/Cancel User FORM
Private Sub UserForm_Initialize()
　　Call XButtonHide(Me)
End Sub

お礼

ありがとうございました。出来ました。