|
[VB&VBA][制御 キーボード操作禁止など] |
| |
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
|
|
|