Application.EditDirectlyInCell - change back to default on closing workbook

[CROY1985]

Hi all

I have the following code embedded on opening a workbook to ensure it functions correctly when opened on another users machine.

Private Sub Workbook_Open()


Application.EditDirectlyInCell = False


End Sub

Is there anyway to revert back to the previous state of this on closing the workbook?

I.e. if it was True, close on True, else close on false

Thanks

Chris

 

[Kamolga]

I would try this

Public Status As Boolean

Private Sub Workbook_Open()
Application.EditDirectlyInCell = Status
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Application.EditDirectlyInCell = True Then
     Status = True
        Else: Status = False
    End If
End Sub