excelをワンキーで終了させる方法はありますか

質問

視覚と手に障害のある方がExcel2003（OSはWinXP）を使用しております。

Excelのシートは1枚だけで、計算式が入っております。使用者は数値を入力すると結果が自動的に読み上げられるようにしてあります。

シートの変更を保存する必要はないので下記マクロを組み込んで、保存せず終了できるようにしてあります。AltキーとF4キーを押すことでExcelが終了します。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
　　ThisWorkbook.Saved = True
　　Application.Quit
　　ThisWorkbook.Close True
End Sub

使用者は口で操作するため、二つのキーを同時押しすることに苦労しております。ひとつのキーだけでシートを保存せずに閉じる方法はありませんでしょうか。
あるいはキー割り当てソフトでこの操作が実現可能でしょうか。

よろしくお願いします。

回答No.1

real beatin（@realbeatin） · ベストアンサー

こんにちは。

同時に2つのブックを開くことがないのでしたら、
以下のようにOnKeyメソッドを使ってみては如何でしょう？
"ワンキー"をどのキーにするかは難しそうですけれど、
仮に [TAB] キーを押すと閉じるようにしています。
他のキーに替えたい場合は、
VBEの画面で OnKey にカーソルまたはキャレットを当てて、
F1キーを押せばApplication.OnKey メソッドのヘルプが表示され、
キーを指定するコードの一覧が載っていますので、
適宜、変更してみてください

'///TAB キーを押したタイミングで、
'///ThisWorkbookを上書きせずに保存して、
'///Excelを終了する

' ' /// ThisWorkbook モジュール /// 8995201w

Private Sub Workbook_Open()
　　Application.OnKey "{TAB}", "ThisWorkbook.QuitAll"
End Sub

Private Sub QuitAll()
　　Application.Quit
　　ThisWorkbook.Close False
End Sub

' ' ///

お礼

ご回答いただき、ありがとうございます。
ご提示いただいたマクロで、期待したとおりの操作が可能になりました。
TABキーを押すことでExcelをクローズできました。

ありがとうございます。 m(_ _)m

回答No.6

real beatin（@realbeatin）

＃１です。

誤）
'///TAB キーを押したタイミングで、
'///ThisWorkbookを上書きせずに保存して、
'///Excelを終了する
正）
'///TAB キーを押したタイミングで、
'///ThisWorkbookを上書きせずに【閉じて】、
'///Excelを終了する

以上、訂正をお願いします。失礼しました。

因みに、＃１回答時の私の想定は、
共用のＰＣでExcelを開いた時にだけ機能させたい、というニーズに応えたものなのですが、
パーソナルなＰＣであるとか、共用でも他の人の使用時への影響を看過できるのであれば、
＃５様の方法が、確かに堅いやり方だと、私も思います。

回答No.5

keithin

WindowsXPの標準機能の固定キーの機能を使い，２つのキーを同時押ししなくても例えばALT+F4を操作できるよう，環境を整えて使って頂くのが一番信頼できる方法と思います。

https://www.microsoft.com/ja-jp/enable/products/windowsxp/adjaccessoptions.aspx
ユーザー補助のオプションを設定する

お礼

ご回答いただき、ありがとうございます。
固定キーの機能に関して知識がなかったので、調べて見ます。
ありがとうございました。

回答No.4

noname#215107

「Alt」→「f」→「x」の順に3回押すのではだめでしょうか。同時押しはありません。

回答No.3

noname#212067

ソフトウェア的に対応するよりもハードウェア的に対応したほうが、色々なソフトで使うことが出来て便利だと思います

コントロールパネルにユーザー補助のオプションと言うのがあるのですが
その中にシリアルキーと言う機能があり、障害のある人用に外部機器を接続出来るようになっています

外部機器は知識があれば自作することが可能です
シリアルインターフェースの付いたマイコンキットを使えば
プログラムとスイッチパネルを作成するだけで出来ると思います
ボタンはゲームセンターなんかのゲーム機のボタンが押しやすいと思います

お礼

ご回答いただき、ありがとうございます。
ハードウエア的対処方法は少しハードルが高そうです。
使用者の方は、エクセルで計算結果を聞くこと以外は将来的にもすることはありません。
現況のままで対処したいと考えています。
ありがとうございました。

回答No.2

FEX2053

単純にシート上にボタンを配してこいつ↓を

Sub Macro1()
ThisWorkbook.Saved = True
Application.Quit
ThisWorkbook.Close True
End Sub

実行させれば終了しますが。

まあ、使うシートすべてにボタンを配置する手間はかかりますが、
ボタンを大きくして色を付ければ、よりわかりやすくなるかと。