制御 キーボード操作禁止など
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
| Option Explicit Public Function fnc製品モード() As Boolean '******************************************************************************* '開発モード/製品モード（納品時に変更） '******************************************************************************* fnc製品モード = False End Function Public Sub 画面を更新しない() '******************************************************************************* '画面を更新しない '******************************************************************************* Application.ScreenUpdating = False End Sub Public Sub 画面を更新する() '******************************************************************************* '画面を更新する '******************************************************************************* Application.ScreenUpdating = True End Sub Public Sub キーボード操作禁止() '******************************************************************************* 'キーボード操作禁止 '******************************************************************************* Application.Interactive = False End Sub Public Sub キーボード操作禁止解除() '******************************************************************************* 'キーボード操作禁止解除 '******************************************************************************* Application.Interactive = True End Sub Public Sub アプリ表示() '******************************************************************************* 'アプリ表示 '******************************************************************************* Application.Visible = True End Sub Public Sub アプリ非表示() '******************************************************************************* 'アプリ非表示 '******************************************************************************* Application.Visible = False End Sub |