how to retrict excel from closing while remotely entering data

[jiaweilee]

I already ask the user to key In ID and the cell will be select automatically. next is how to prevent the excel from closing when data is key in remotely in the selected column?

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

 

[mole999]

do you have a shut down timer running ?

 

[jiaweilee]

no there is no timer

 

[mole999]

not sure what would cause the application to close then

 

[jiaweilee]

I try to do this but it does not work by adding

Public Closeflag As Boolean
Sub Enter_1()
Closeflag = False
/code
Closeflag = True
End sub


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Workbook_BeforeClose(Cancel As Boolean)


If Closeflag = False Then Exit Sub
Cancel = True



End Sub

 

[jiaweilee]

I means I need to prevent other user from clicking the 'x' and close the excel

 

[nonexistence]

You could try the following.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not bCloseOK Then
MsgBox "Close button disabled"
Cancel = True
End If
End Sub

Although if you do this, excel won't be able to close except for killing the task.

Might want to think about adding a button or another macro to close the program.

 

[mole999]

did you mean that remote users are closing the file before they have finished actually updating the values they are responsible for

 

[jiaweilee]

There is such situation when remote user is key in data using a Bluetooth barcode scanner away from the PC and other users try to close the excel file. Then all the value key in will be loss

 

[jiaweilee]

You could try the following.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not bCloseOK Then
MsgBox "Close button disabled"
Cancel = True
End If
End Sub

Although if you do this, excel won't be able to close except for killing the task.

Might want to think about adding a button or another macro to close the program.

//
I try to do this before but still be able to close the excel by selecting don't save