Sub auto_open()
Application.OnKey "{F1}", "" 'ヘルプキー無効化
End Sub