リモートでデータを入力している間にExcelが終了しないように制限する方法

Question

数値をリモートで列に記入する際にExcelが終了しないようにするマクロが必要です。最初は、ユーザーにIDの入力を依頼します。次のステップは閉鎖を防ぐことです。どのようにそれを行うことができますか？

以下は、ID入力とセル選択のコードです。次のように

Sub Enter_1() 
Dim data_1 As String 
Dim sCell As Variant 
Dim rslt As Integer 
Dim x As Integer 

Do 
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
    data_1 = InputBox(Prompt:="Enter Employee No.", Title:="Employee", Default:="Enter Employee No. here") 

    If data_1 = "" Then 
     QuestionToMessageBox = "Exit?" 
     YesOrNoAnswerToMessageBox = MsgBox(QuestionToMessageBox, vbYesNo, "No") 
    End If 

    If YesOrNoAnswerToMessageBox = vbNo Then 

     data_1 = InputBox(Prompt:="Enter Employee No.", Title:="Employee", Default:="Enter Employee No. here") 

    Exit sub  
    End If 

     If Not IsNumeric(data_1) Or data_1 = "" Then 
      rslt = 0 
     Else: rslt = 1 
     End If 

     If rslt = 0 Then 
     MsgBox "You can only enter a number in this field" 

     Else: 
      Sheets("Oven After Assay Test").Activate 
      For x = 6 To 50 
       If Cells(x, 8).Value = "" Then 
        Cells(x, 8).Select 
        cancel = True 
        Exit For 
       End If 
      Next 
     End If 

    Loop While rslt = 0 



End Sub 

Answer 1

あなたは要求された機能を実装することができます

は、コードモジュールを挿入し、次の行を追加します。ThisWorkbook VBAコードモジュールで

Public FlagToClose As Boolean 

をSubを追加します。

Private Sub Workbook_Open() 
    FlagToClose = True 
End Sub 

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
    If Not FlagToClose Then Cancel = True 
End Sub 

手順を次のように変更してください。

Sub Enter_1() 
    FlagToClose = False 

    'YOUR PROCEDURE 
    '..................... 

    FlagToClose = True 
End Sub