Cannot run the macro 'YIELD'. The macro may not be available in this workbook or all macros may be disabled.

Question

Dear Sir,
          While i am calling Excel function through asp.net  using Excel 2003 i  was not facing any kind of issue it's working fine but while i am calling  Excel functions through asp.net using 
Excel 2010  i am facing an issue even after enabling the micro in settings . issue is 
"Cannot run the macro 'YIELD'. The macro may not be available in this workbook or all macros may be disabled." please solve this as soon as possible .
Thanks & Regards
  Sanjeev

Answer 1

// I made a singleton class and calling that class to access Excel functions
Public Class Singleton
    Private Shared objexcel As Excel.Application
    Private Shared lock As New Object
    Private Sub New()
        System.Console.WriteLine("Instance of Singleton class created at : " & Now())
    End Sub
    Public Shared Function GetInstance() As Excel.Application
        SyncLock lock
            If objexcel Is Nothing Then
                objexcel = New Excel.Application
                objexcel.RegisterXLL(objexcel.LibraryPath & "\Analysis\ANALYS32.XLL")
            End If
            Return objexcel
        End SyncLock
    End Function
End Class
// Common Function for yield 
Public Sub CalculateYield( _
           ByVal YTMDate As Date, ByVal FaceValue As Double, ByVal Rate As Double, _
           ByVal NonGovernmentFlag As Boolean, ByVal RateActualFlag As Boolean, _
           ByVal MaturityDate As Date, ByVal MaturityAmt As Double, _
           ByVal CouponDate As Date, ByVal CouponRate As Double, _
           ByVal CallDate As Date, ByVal CallAmt As Double, _
           ByVal PutDate As Date, ByVal PutAmt As Double, ByVal intFrequency As Int16, _
           ByVal strOption As String, ByVal dblResult As Double, ByVal strSemiAnnFlag As String)
        Try
            Dim decMarketValue As Double
            Dim intBasis As Int16
            decMarketValue = IIf(RateActualFlag = True, Rate * FaceValue / 100, Rate)
            decMarketValue = decMarketValue * 100 / FaceValue
            decMarketValue = objCommon.DecimalFormat(decMarketValue)
            MaturityAmt = MaturityAmt * 100 / FaceValue
            MaturityAmt = objCommon.DecimalFormat(MaturityAmt)
            CallAmt = CallAmt * 100 / FaceValue
            CallAmt = objCommon.DecimalFormat(CallAmt)
            PutAmt = PutAmt * 100 / FaceValue
            PutAmt = objCommon.DecimalFormat(PutAmt)
            intBasis = IIf(NonGovernmentFlag = True, 3, 4)
            If strOption = "Y" Then
                With Singleton.GetInstance
                    If MaturityDate <> Date.MinValue And MaturityDate > YTMDate Then
                        dblYield = CType(Singleton.GetInstance.Run("YIELD", YTMDate, MaturityDate, CouponRate / 100, decMarketValue, MaturityAmt,
intFrequency, intBasis), Double)
                        dblYTMAnn = CType(Singleton.GetInstance.Run("EFFECT", dblYield, intFrequency), Double)
                        dblYTMSemi = CType(Singleton.GetInstance.Run("NOMINAL", dblYTMAnn, 2), Double)
                        'End If
                        dblYTMAnn = dblYTMAnn * 100
                        dblYTMSemi = dblYTMSemi * 100
                    Else
                        dblYTMAnn = 0
                        dblYTMSemi = 0
                    End If
                    If CallDate <> Date.MinValue And CallDate > YTMDate Then
                        dblYield = CType(Singleton.GetInstance.Run("YIELD", YTMDate, MaturityDate, CouponRate / 100, decMarketValue, MaturityAmt,
intFrequency, intBasis), Double)
                        dblYTCAnn = CType(Singleton.GetInstance.Run("EFFECT", dblYield, intFrequency), Double)
                        dblYTCSemi = CType(Singleton.GetInstance.Run("NOMINAL", dblYTMAnn, 2), Double)
                        'End If
                        dblYTCAnn = dblYTCAnn * 100
                        dblYTCSemi = dblYTCSemi * 100
                    Else
                        dblYTCAnn = 0
                        dblYTCSemi = 0
                    End If
                    If PutDate <> Date.MinValue And PutDate > YTMDate Then
                        dblYield = CType(Singleton.GetInstance.Run("YIELD", YTMDate, MaturityDate, CouponRate / 100, decMarketValue, MaturityAmt,
intFrequency, intBasis), Double)
                        dblYTPAnn = CType(Singleton.GetInstance.Run("EFFECT", dblYield, intFrequency), Double)
                        dblYTPSemi = CType(Singleton.GetInstance.Run("NOMINAL", dblYTMAnn, 2), Double)
                        dblYTPAnn = dblYTPAnn * 100
                        dblYTPSemi = dblYTPSemi * 100
                    Else
                        dblYTPAnn = 0
                        dblYTPSemi = 0
                    End If
                End With
            End If
        Catch ex As Exception
            Throw ex
        End Try
    End Sub
// call  yield function
GlobalFuns.CalculateYield(datYTM, decFaceValue, decRate, blnNonGovernment, blnRateActual, datMaturity, decMaturityAmt, _
                               datCoupon, decCouponRate, datCall, decCallAmt, datPut, decPutAmt, Val(Hid_Frequency.Value
& ""), "Y", 0, "")
this code  is working in Excel 2003 but it's not working in Excel 2010
//Error is
Cannot run the macro 'YIELD'. The macro may not be available in this workbook or all macros may be disabled.