Private Sub UserForm_Activate()
Dim objWshShell
On Error Resume Next
Set objWshShell = CreateObject("WScript.Shell")
objWshShell.SendKeys "{TAB 2}"
objWshShell.SendKeys "{ENTER}"
入力 = Application.InputBox(Prompt:="バグモードレスOK?", _
Title:="", Type:=8)
End Sub