Data source types: Essbase, Planning, Financial Management, Hyperion Enterprise
HypIsCellWritable (vtSheetName [in], vtCellRange [out])
ByVal vtSheetName As Variant
ByVal vtCellRange As Variant
vtSheetName: For future use. Currently the active sheet is used.
vtCellRange: Range of the cell (one cell only) whose writability must be checked.
Public Declare Function HypIsCellWritable Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtCellRange As Variant) As Boolean
Sub TestIsCellWritable()
Dim oRet As Boolean
Dim oSheetName As String
Dim oSheetDisp As Worksheet
oSheetName = Empty
Set oSheetDisp = Worksheets(oSheetName$)
oRet = HypIsCellWritable (Empty, oSheetDisp.Range("G2"))
End Sub