Unlocks all cells on the server for the specified worksheet.
EssVUnlock(sheetName)
ByVal sheetName As VariantText name of worksheet to operate on. sheetName is of the form "[Book.xls]Sheet". If sheetName is Null or Empty, the active worksheet is used.
Returns 0 if successful. A negative number indicates a local failure (see VBA Return Values). A return value greater than zero indicates a failure on the server.
Declare Function EssVUnlock Lib "ESSEXCLN.XLL" (ByVal sheetName As Variant) As Long
Sub UnlockData()
X=EssVUnlock("[Book2.xls]Sheet1")
If X = 0 Then
MsgBox("Unlock successful.")
Else
MsgBox("Unlock failed.")
End If
End SubSee EssVSendDatafor another example of EssVUnlock. |