多次求助高手，看看附件能否帮我解决的问题

7016427

1、附件打开附件，录入日报■.xls，按”提取“按钮，密码为8812968
2、把附件”录入日报.xls“文件放在 D:\统计\
3、附件，”录入日报■.xls“文件，提取D:\统计\录入日报.xls里的1-6表，没有公式单元格的值，2-6为隐藏工作表。

7016427

说明：附件两个文件是一起的，是打开”录入日报■.xls“文件，取另一个附件文件的1-6工作表，没有公式的单元格的值。

7016427

7016427 发表于 2016-3-8 21:43
说明：附件两个文件是一起的，是打开”录入日报■.xls“文件，取另一个附件文件的1-6工作表，没有公式的单 ...

Private Sub CommandButton1_Click()
Unload Me
If TextBox1.Value <> 8812968 Then
MsgBox "您输入的密码错，退出！", 64, " "
Unload Me
Else
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim wb As Workbook, sh As Worksheet, rge As Range

Set wb = Workbooks.Open("D:\统计\录入日报.xls", Password:="jy000")
For s = 1 To 6
With ThisWorkbook.Worksheets(s)
.Unprotect Sheet6.[aa1]
wb.Worksheets(s).Unprotect Sheet6.[aa1]
wb.Sheets(s).Visible = -1
.Visible = -1

For Each rg In wb.Worksheets(s).Cells.SpecialCells(xlCellTypeConstants, 23)
.Range(rg.Address) = rg.Value
wb.Sheets(s).Protect Sheet6.[aa1]
.Protect Sheet6.[aa1]
Sheets("录入财收22").Select
Application.EnableEvents = True
Application.ScreenUpdating = True
MsgBox "执行完毕!   ", 48, " 提示"
wb.Close False
Next
Next
End If
End With
End Sub

7016427

7016427 发表于 2016-3-8 22:29
Private Sub CommandButton1_Click()
Unload Me
If TextBox1.Value  8812968 Then

请老师看看"wb.Worksheets(s).Unprotect Sheet6.[aa1]
wb.Sheets(s).Visible = -1"这两句始终执行错误

7016427

7016427 发表于 2016-3-9 09:04
请老师看看"wb.Worksheets(s).Unprotect Sheet6.[aa1]
wb.Sheets(s).Visible = -1"这两句始终执行错误

还没有老师解决吗！