圧縮後にキー操作効かなくならない？
一度他の窓にフォーカス当てれば治るから、
仕方なく「圧縮完了」ってメッセージを一定時間だけ出す
vbスクリプト呼び出してるんだけど。