Доступ по указателю только для чтения

namespace detail {
 
class Xloper12
{
    template <typename ...Ts>
    friend Xloper12 invoke(int f, Ts const& ...args);
 
public:
    Xloper12() : m_value()
    { }
    Xloper12(Xloper12 && other) {
        // move implementation
    }
    ~Xloper12() {
        ::Excel12(xlFree, 0, 1, &m_value);
    }
 
    Xloper12(Xloper12 const&) = delete;
    Xloper12& operator=(Xloper12 const&) = delete;
 
    explicit Xloper12(bool val)
    {
        m_value.xltype = xltypeBool;
        m_value.val.xbool = val;
    }
    bool toBool() const {
        return m_value.val.xbool;
    }
 
    explicit Xloper12(double val)
    {
        m_value.xltype = xltypeNum;
        m_value.val.num = val;
    }
    double toNumber() const {
        return m_value.val.num;
    }
 
    explicit Xloper12(int val)
    {
        m_value.xltype = xltypeInt;
        m_value.val.w = val;
    }
    int toInteger() const {
        return m_value.val.w;
    }
 
    wchar_t const* toWString() const {
        return m_value.val.str + 1;
    }
    int lenWString() const {
        return (int)m_value.val.str[0];
    }
 
    int type() const {
        return m_value.xltype;
    }
 
private:
    LPXLOPER12 internal() {
        return &m_value;
    }
    XLOPER12 const* internal() const {
        return &m_value;
    }
 
private:
    XLOPER12 m_value;
};
 
template < typename ...Ts >
Xloper12 invoke(int f, Ts const& ...args)  {
    Xloper12 ret;
    ::Excel12(f, ret.internal(), sizeof...(args), Xloper12(args).internal()...);
    /*error check*/
    return ret;
}
 
} // detail

int main()
{
    detail::Xloper12 result = detail::invoke(567, 3.);
}