This is work fine for me
NOTE that you open workbook only from same computer:
place this code inside Thisworkbook module:
Dim OpenTimes
Private Sub Workbook_BeforeClose(Cancel As Boolean)
SaveSetting "APPTEST", "SETTING", "OPENTIMES", "0"
End Sub
Private Sub Workbook_Open()
OpenTimes = GetSetting("APPTEST", "SETTING", "OPENTIMES")
If OpenTimes = "1" Then
Me.Close
Else
SaveSetting "APPTEST", "SETTING", "OPENTIMES", "1"
End if
End Sub