実行時エラー「1004」以下

Question

は私が取得エラーメッセージです。このブックでマクロが使用できないか、すべてのマクロが無効になっている可能性があります。私は、同様のフィールドを持つ3つのワークシートを持って、私は別のワークシートに統合する

はマクロと呼ばれ、以下のマクロのコードです：

Sub Data_Consol() 

End Sub 

Sub WBLoop() 

Dim wb As Workbook, x As String 
For Each wb In Workbooks 
    If wb.Name <> "Macro template" Then 
     x = wb.Name 
     Workbooks(x).Activate 
    End If 
    Call Copy_Paste 
Next wb 

ActiveCell.Offset(0, 1).Select 

Range(Selection, Selection.End(xlUp)).Select 

Selection.Offset(1, 0).Select 

Range(ActiveCell, ActiveCell.End(xlToLeft)).Select 

Range(Selection, Selection.End(xlDown)).Select 

Selection.EntireRow.Delete 

Range("A1").Activate 

Sheets("Template").Select 
Sheets("AddFormulae").Visible = True 

Sheets("AddFormulae").Select 
Range("X2").Select 
Range(Selection, Selection.End(xlToRight)).Select 
Range(Selection, Selection.End(xlDown)).Select 
Application.Run "Do_Special_Copy" 
Sheets("Template").Select 
Range("X2").Select 
ActiveSheet.Paste 
Columns("X:AD").Select 
Columns("X:AD").EntireColumn.AutoFit 

Sheets("Template").Select 
Sheets("AddFormulae").Visible = False 

Range("A1").Select 

End Sub 

Sub Copy_Paste() 
Dim wb As Workbook 
Range("A2").Select 
Range(Selection, Selection.End(xlDown)).Select 

' Select 

Application.Run "Do_Special_Copy" 
Windows("Macro template.xlsm").Activate 

' Need to add in code here to find first empty row 

ActiveSheet.Range("A" & Rows.Count).End(xlUp).Offset(1).Select 

ActiveSheet.Paste 

Selection.End(xlDown).Select 
Rows(ActiveCell.Row).EntireRow.Delete 
ActiveWindow.SmallScroll Down:=3 

End Sub 

Sub SelectWorkbook() 
' 
' SelectWorkbook Macro 
' 
Windows("ESMS CTSM Q - Call Back.xlsx").Activate 
End Sub 

Answer 1

私は前に同じエラーに直面し、シートの保護を解除することはなかったですトリック （保護されている場合は、シートの保護を解除して、データを貼り付けようとしてください）。