为什么我的宏只能工作一次?

时间:2014-09-01 09:44:02

标签: excel vba excel-vba excel-2010

它第一次正确完成,但是一旦我单击指定的按钮,或者运行宏,它就会在行(6:6)中添加另一个,这是行(5:5)的副本。任何帮助都感激不尽。

请注意,当我删除activesheet.unprotect和activesheet.protect时它可以正常工作

 Sheets("Template").Select
    Rows("1:21").Select
    Selection.Copy
    Sheets("Weekly Plan").Select
    ActiveSheet.Unprotect
    Rows("6:6").Select
    Range("B6").Activate
    Selection.Insert Shift:=xlDown
    Range("K10").Select
    Range("K28:K47").Select
    Range("K47").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Range("K7").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveSheet.Protect

1 个答案:

答案 0 :(得分:1)

它会这样工作吗?

Sheets("Weekly Plan").Select
ActiveSheet.Unprotect 
Sheets("Template").Select
Rows("1:21").Select
Selection.Copy
Rows("6:6").Select
Range("B6").Activate
Selection.Insert Shift:=xlDown
Sheets("Weekly Plan").Select
Range("K10").Select
Range("K28:K47").Select
Range("K47").Activate
Application.CutCopyMode = False
Selection.Copy
Range("K7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Protect