Hi
I have written this but it is not working
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Add()
Set xlSheet = xlBook.ActiveSheet
xlBook.SaveAs filename
xlBook.Protect "abc"
xlBook.Close
Thanks