hello thanks mcqueccu,
i created excel file with the follow code :
Private xl As XLUtils
xl.Initialize
Dim wb As XLWorkbookWriter = xl.CreateWriterBlank
Dim sheet As XLSheetWriter = wb.CreateSheetWriterByName("Dati")
Dim TitleStyle As XLStyle = wb.CreateStyle
Dim LockStyle As XLStyle = wb.CreateStyle.Locked(True)
Dim NoLockStyle As XLStyle = wb.CreateStyle.Locked(False)
Dim VerticalStyle As XLStyle = wb.CreateStyle.VerticalAlignment("CENTER")
Dim RightStyle As XLStyle = wb.CreateStyle.HorizontalAlignment("RIGHT")
Dim TestoAcapoStyle As XLStyle = wb.CreateStyle.WrapText(True)
Dim NumericoStyle As XLStyle = wb.CreateStyle.DataFormat("#,##0")
sheet.PutString(xl.AddressZero( 0 ,CntTgl) , Ar_Excel.product_reference).SetStyles(sheet.LastAccessed, Array(VerticalStyle,LockStyle))
sheet.xl.CreateWriterPassword = "mauri"
wb.SaveAs(TmpDir, "FileOut.xls", True)
Help me if you can
thank you very much
Maurizio