Option Explicit

Dim goPutAccessLog As New cPutAccessLog

Sub call_cPutAccessLog_Initialize()

  MsgBox _
    goPutAccessLog.Initialize( _
      getSysParaBySheet(ActiveSheet.Name, "A02P1") _
    )

End Sub

Sub call_cPutAccessLog_getStatus()

  MsgBox _
    goPutAccessLog.getStatus( _
    )

End Sub

Sub call_cPutAccessLog_deleteLogSaveLimitOver()

  MsgBox _
    goPutAccessLog.deleteLogSaveLimitOver( _
      CInt( _
        getSysParaBySheet(ActiveSheet.Name, "A02P2") _
      ) _
    )

End Sub

Sub call_cPutAccessLog_putLog()

  MsgBox _
    goPutAccessLog.putLog( _
      getSysParaBySheet(ActiveSheet.Name, "A02P3") _
    )

End Sub

Sub call_cPutAccessLog_Terminate()

  MsgBox _
    goPutAccessLog.Terminate( _
    )

End Sub