Found the answer,

Tools->Options->General uncheck Ingnore other Applications


"Shawn G." wrote:

> When I open Excel by dbl clicking a workbook, excel starts but no workbook, I
> then have to goto file open and then it will come up. It worked just fine
> before I ran this sub, Any way to fix this?????
>
> Sub StoreExcelSettings()
>
> Dim cbBar As CommandBar
> Dim sBarNames As String
> Dim objTemp As Object
> Dim wkbTemp As Workbook
>
> 'Some properties require a workbook open, so create one
> If ActiveWorkbook Is Nothing Then Set wkbTemp = Workbooks.Add
>
> 'Write a value to indicate that the settings have been stored.
> SaveSetting gsREG_APP, gsREG_XL_ENV, "Stored", "Yes"
>
> 'Store the current Excel settings in the registry,
> 'for safe crash-recovery
> With Application
> SaveSetting gsREG_APP, gsREG_XL_ENV, "DisplayStatusBar",
> CStr(.DisplayStatusBar)
> SaveSetting gsREG_APP, gsREG_XL_ENV, "DisplayFormulaBar",
> CStr(.DisplayFormulaBar)
> SaveSetting gsREG_APP, gsREG_XL_ENV, "Calculation", CStr(.Calculation)
> SaveSetting gsREG_APP, gsREG_XL_ENV, "IgnoreRemoteRequests",
> CStr(.IgnoreRemoteRequests)
> SaveSetting gsREG_APP, gsREG_XL_ENV, "Iteration", CStr(.Iteration)
> SaveSetting gsREG_APP, gsREG_XL_ENV, "MaxIterations",
> CStr(.MaxIterations)
>
> 'Which commandbars are visible
> For Each cbBar In .CommandBars
> If cbBar.Visible Then sBarNames = sBarNames & "," & cbBar.Name
> Next
> SaveSetting gsREG_APP, gsREG_XL_ENV, "VisibleCommandBars", sBarNames
>
> 'Special items for Excel 2000 and up
> If Val(.Version) >= 9 Then
> SaveSetting gsREG_APP, gsREG_XL_ENV, "ShowWindowsInTaskbar",
> CStr(.ShowWindowsInTaskbar)
> End If
>
> 'Special items for Excel 2002 and up
> If Val(.Version) >= 10 Then
> Set objTemp = .CommandBars
> SaveSetting gsREG_APP, gsREG_XL_ENV, "DisableAskAQuestion",
> CStr(objTemp.DisableAskAQuestionDropdown)
> SaveSetting gsREG_APP, gsREG_XL_ENV, "AutoRecover",
> CStr(.AutoRecover.Enabled)
> End If
> End With
>
> If Not wkbTemp Is Nothing Then wkbTemp.Close False
>
> End Sub