Hey
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Sheet As Spire.Spreadsheet.Forms.IWorksheet = Spreadsheet1.ActiveWorksheet
Dim ColRow As CellAdressInfo = Sheet.ActiveCellAdressInfo
If Sheet.Item(ColRow.Row, ColRow.Column).Protected = False Then
Sheet.Item(ColRow.Row, ColRow.Column).Value = "12345"
Sheet.Item(ColRow.Row, ColRow.Column).Style.BackgroundColor = System.Drawing.Color.Azure
End If
Spreadsheet1.Refresh()
End Sub
GH