EXCEL导出问题,请指教

下面是我导出的代码：
  Dim i As Integer
  Dim j As Integer
  Dim k As Integer
  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.Worksheets(1)
  xlSheet.Columns.AutoFit
  Me.MousePointer = 11
  For k = 0 To DataGrid1.Columns.Count - 1
  xlApp.Selection.NumberFormatLocal = "$"
  xlSheet.Cells(1, k + 1) = DataGrid1.Columns(k).Caption
  xlSheet.Cells.HorizontalAlignment = 3    'sheet1为sheet对象
  xlSheet.Cells.VerticalAlignment = 3
     xlSheet.Range("A1", "M1").Merge
     xlSheet.Range("A1", "M1") = "申请表"
 
     xlSheet.Range("A2", "M2").Merge
     xlSheet.Range("A2", "M2") = "分配办法"
  Next
  DataGrid1.Scroll 0, -DataGrid1.FirstRow
  DataGrid1.Row = 0
  For i = 0 To DataGrid1.ApproxCount - 1  For j = 0 To DataGrid1.Columns.Count - 1
  DataGrid1.Col = j
  xlSheet.Cells(i + 3, j + 1) = DataGrid1.Text
  Next
  If i < DataGrid1.ApproxCount - 1 Then
  DataGrid1.Row = DataGrid1.Row + 1
  End If
Next
  Me.MousePointer = 0
  Cells.Select
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="6666"
  xlApp.Visible = True
  Set xlApp = Nothing
  Set xlBook = Nothing
  Set xlSheet = Nothing第一次导出是正常的，但是当第二次点导出按钮的时候出现“对象‘CELLS’的方法‘_Global’失败”，而且第一次导出的时候有密码保护，但当第二次导出的时候就没有密码保护了。请指教，谢谢