制御 キーボード操作禁止など

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[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





Production Japan Import Application. Since 1998