Public Type UserRevision Name As String Revision As String End Type Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub auto_open() ' F1キーを殺す Application.OnKey "{F1}", "" 'キー コード 'Shift + 'Ctrl ^ 'Alt % Ap…