VBA coad mantained in workbook is not working when open same work book in openoffice

VBA coade not working in Openoffice
Dear Sir,
I have written below Coad to close my work book when I am not working on it
But when Iam opening this workbook in open office it is not working
At the same time it is working in excel
This workbook
Private Sub Workbook_Open()
MsgBox "This workbook will auto-close after 20 seconds of inactivity"
Call SetTime
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call Disable
End Sub
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Call Disable
Call SetTime
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target _
As Excel.Range)
Call Disable
Call SetTime
End Sub
Module1
Dim DownTime As Date
Sub SetTime()
DownTime = Now + TimeValue("00:00:30")
Application.OnTime DownTime, "ShutDown"
End Sub

Sub ShutDown()
ThisWorkbook.Save
ThisWorkbook.Close
End Sub
Sub Disable()
On Error Resume Next
Application.OnTime EarliestTime:=DownTime, Procedure:="ShutDown", _
Schedule:=False
End Sub

Dear Sir,

i am sharing this workbook with some other user
some of them have exl and some of them open office.

when i am open this workbook in excel it save and close when it is not active more then 30 second.
after this when another user same workbook is open in open office it not close after 30 second if sheet is not active.