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

-4

它第一次正确，但只要我点击分配的按钮或运行宏，它只是添加行（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

来源

2014-09-01 Seesharp

@mehow它工作正常，当我删除activesheet.unprotect和activesheet.protect – Seesharp 2014-09-01 09:53:26

将它的工作这样能正常工作？

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

来源

2014-09-01 10:02:34

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

回答

相关问题