我从代码生成Excel电子表格。我正在尝试使用.net代码 来定制单元格,并且我想锁定标题行,以便它不允许将文本输入到这些单元格中。从.Net打印Excel行锁定
我尝试以下2种方式,但没有成功
worksheet.Range( “A1”, “A1”)。EntireRow.Locked =真
worksheet.Unprotect()
工作表.Range( “A1”, “A100”)。锁定=真
worksheet.Protect()
那是什么我我在这里失踪?
--- --- CODE
公用Sub CreatNewExcelWithAppliedRules(BYVAL noOfWSheets方式列表(字符串))
Dim misValue As Object = System.Reflection.Missing.Value
Dim App As New Application
Dim workbook As Workbook = App.Workbooks.Add()
Dim worksheet As Worksheet = workbook.Worksheets(1)
Dim sFile As String = "sample-excel"
---READ HEADERS FROM XML
Dim xmlFile = "E:\ExcelPOC\ExcelValidation\App_Data\Headers.xml"
Dim fsReadXml As New System.IO.FileStream(xmlFile, System.IO.FileMode.Open)
dsHeaders.ReadXml(fsReadXml)
dtHeader = dsHeaders.Tables("Column")
---ADD HEADERS LIST TO EXCEL
FillColumnHeader(worksheet, dtHeader, culture)
worksheet.Unprotect()
---ADD VALIDATION RULES
For Each worksheet In workbook.Worksheets
ListValidExcelRule(worksheet)
DateValidExcelRule(worksheet)
TextLengthValidExcelRule(worksheet)
DecimalValidExcelRule(worksheet)
Next
worksheet.Range("1:1").Locked = True
worksheet.Protect()
---SAVE THE EXCEL
sFile = App.GetSaveAsFilename(InitialFilename:=sFile, FileFilter:="xls Files (*.xls), *.xls")
If sFile <> "False" Then
workbook.SaveAs(Filename:=sFile, _
FileFormat:=XlFileFormat.xlWorkbookNormal, _
Password:="", _
WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False)
Else
App.DisplayAlerts = False
End If
workbook.Close(True, misValue, misValue)
App.Quit()
releaseObject(worksheet)
releaseObject(workbook)
releaseObject(App)
End Sub
您是否收到任何错误,或者它是否无法阻止对该行进行修改? – Patrick
我没有收到任何错误。它没有应用锁定并允许输入文字 – ramesh