Does the #If Mac Msgbox display?

I've found closing a workbook that contains the executing code may in
some circumstances lead to strange results. Maybe, you shouldn't close
the workbook but just refuse to execute any code.

You may also want to explore a purely run-time check (rather than the
compile time #If). Check the OperatingSystem property of the
Application object.

--
Regards,

Tushar Mehta
www.tushar-mehta.com
Excel, PowerPoint, and VBA add-ins, tutorials
Custom MS Office productivity solutions

In article ,
says...
Hello, EveryBody. I been developing and application to run in the PC. I 'm
still working to run it in the Mac, but at this moment i would like to
prevent the users to try to run it in the Mac. The app already recognizes
when the PC is a Mac. Then I would like to close the application. Here is
what i wrote but still don't works. Could you give a hint on how to overcome
this situation? I think an instruction to leave the subroutine will be handy.
I already tried ThisWoorkBook.Close, the problem "remains the same"

Thanks in advace.

Private Sub Workbook_Open()
Dim AddInTitle As String, Msg As String

#If Mac Then "Here checks if the System is Mac"
MsgBox "Aplicación para Windows (97 en adelante). Estamos trabajando en la
versión para Mac. Gracias por su comprensión."
Application.DisplayAlerts = False
ThisWorkbook.Close "In here doesn't close!
Application.DisplayAlerts = True
Exit Sub
#End If

If Not ValidaSeguridad Then "Here validates a Code that i give the user
SaveSetting "TestNT", "Config", "Serie", ""
MsgBox "Solicite su Password etc., etc."
RegistroCodigo
If Not ValidaSeguridad Then "If the code is not good leaves the worksheet"
ThisWorkbook.Saved = True
Application.DisplayAlerts = False
ThisWorkbook.Close
Application.DisplayAlerts = True
Exit Sub
End If
Else
End If

If ValidaSeguridad Then "If the Code is Ok Procedes with the app
Application.ScreenUpdating = False
ThisWorkbook.Sheets(1).Activate
ThisWorkbook.Sheets(1).Range("A1").Select

On Error Resume Next
'-4105 xlAutomatic, -4135 xlManual
If Application.Calculation = -4135 Then
Application.Calculation = xlAutomatic
End If

Application.ScreenUpdating = True
On Error GoTo 0
MaximizaVentana

End If
End Sub