코드에서 Excel 스프레드 시트를 생성 중입니다. 닷넷 코드 을 사용하여 셀을 사용자 지정하려고하는데 그 셀에 텍스트를 입력 할 수 없도록 헤더 행을 잠급니다. 성공하지.Net에서 잠금 행 잠금
worksheet.Range ("A1", "A1") 2 가지 방법으로 다음과 같은
I 시도합니다. EntireRow.Locked = 진정한
worksheet.Unprotect()
워크 시트 .Range ("A1", "A100은"). = 진정한
worksheet.Protect를 잠금()
은 그게 내가 아무것도 여기에 실종 됐어?
--- 코드 ---
공공 하위 CreatNewExcelWithAppliedRules
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