Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
　　If IsPostBack Then
　　　　Return
　　End If

　　Dim i As Integer

　　FpSpread1.ActiveSheetView.Protect = True
　　FpSpread1.ActiveSheetView.Cells(1, 1).Locked = False
　　FpSpread1.ActiveSheetView.Columns(1).Locked = True

　　For i = 0 To FpSpread1.ActiveSheetView.RowCount - 1
　　　　If FpSpread1.ActiveSheetView.GetStyleInfo(i, 1).Locked Then
　　　　　　FpSpread1.ActiveSheetView.Cells(i, 1).Value = "入力不可"
　　　　Else
　　　　　　FpSpread1.ActiveSheetView.Cells(i, 1).Value = "入力可"
　　　　End If
　　Next
End Sub

protected void Page_Load(object sender, EventArgs e)
{
　　if (IsPostBack)
　　{
　　　　return;
　　}

　　int i;

　　FpSpread1.ActiveSheetView.Protect = true;
　　FpSpread1.ActiveSheetView.Cells[1, 1].Locked = false;
　　FpSpread1.ActiveSheetView.Columns[1].Locked = true;

　　for (i = 0; i < FpSpread1.ActiveSheetView.RowCount; i++)
　　{
　　　　if (FpSpread1.ActiveSheetView.GetStyleInfo(i, 1).Locked)
　　　　{
　　　　　　FpSpread1.ActiveSheetView.Cells[i, 1].Value = "入力不可";
　　　　} else {
　　　　　　FpSpread1.ActiveSheetView.Cells[i, 1].Value = "入力可";
　　　　}
　　}
}