求VBA编码，在不打开待写入的工作表前提下写入内容。

Question

Sheets("入库存档").Unprotect
Sheets("入库存档").Cells(1, 27) = "=COUNTA(C[-26])+1"
Range(Cells(Selection.Row, 1), Cells(Selection.Row, 20)).Select
Selection.Copy
Sheets("入库存档").Select '这句就是必须打开此表才执行下一句
Dim kk As Variant
kk = Range("AA1")
Cells(kk, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AA1") = ""
Sheets("目录").Select
Cells(Selection.Row, 19) = ""
End Sub
此编码是打开工作表写入，求不打开“入库存档”表，直接在目录页状态下写入。
因需要同时打开几个工资表，程序结束时再关闭。所以屏幕感觉是闪动，很烦人。

Answer 1

修改好了，未经测试（因为文件在你那里，你试下吧）
Sheets("入库存档").Unprotect
Sheets("入库存档").Cells(1, 27) = "=COUNTA(C[-26])+1"
Range(Cells(Selection.Row, 1), Cells(Selection.Row, 20)).Select
Selection.Copy
Dim kk As Variant
kk = Sheets("入库存档").Range("AA1")
Sheets("入库存档").Cells(kk, 1).PasteSpecial Paste:=xlPasteValues,Operation:=xlNone, SkipBlanks :=False, Transpose:=False
Sheets("入库存档").Range("AA1") = ""
Cells(Selection.Row, 19) = ""
End Sub

Answer 2

后面的语句都是基于工作表打开状态下才有效的，不打开怎么行！
如果只是不想页面变换麻烦，你可以临时关闭屏幕显示功能，如：
Application.ScreenUpdating = False
程序执行完后，再恢复显示：
Application.ScreenUpdating = True