Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/25.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
当其他图纸受到保护时,表格中的Excel VBA插入行将产生错误1004_Excel_Vba - Fatal编程技术网

当其他图纸受到保护时,表格中的Excel VBA插入行将产生错误1004

当其他图纸受到保护时,表格中的Excel VBA插入行将产生错误1004,excel,vba,Excel,Vba,我有一个未受保护的表(MySheet),其中一个表(MyTable)填充了10行。我使用以下代码在表的末尾插入一行,其中包含一些字符串: Sub AddRowToMyTable() Dim the_sheet As Worksheet Dim table_list_object As ListObject Dim table_object_row As ListRow Set the_sheet = Sheets("MySheet") Set tabl

我有一个未受保护的表(MySheet),其中一个表(MyTable)填充了10行。我使用以下代码在表的末尾插入一行,其中包含一些字符串:

Sub AddRowToMyTable()

    Dim the_sheet As Worksheet
    Dim table_list_object As ListObject
    Dim table_object_row As ListRow

    Set the_sheet = Sheets("MySheet")
    Set table_list_object = the_sheet.ListObjects("MyTable")
    Set table_object_row = table_list_object.ListRows.Add

    table_object_row.Range(1, 1).Value = "some string"

End Sub
我在这个特定工作簿中有不止一张工作表。如果其他工作表未受保护,则不会发生错误,但如果只有一个工作表受保护,则在尝试添加第11行时会出现错误1004:“应用程序定义的或对象定义的”。添加第12行、第13行和更多行可以正常工作


我缺少什么?

好的,我知道了。在受保护的工作表上,我有一个公式,其中对MyTable数据的引用似乎是错误的。而不是用“MySheet”引用数据$A$2:$A$10,应该使用MyTable[FirstColumnTitle]。

即使其中一张工作表受到保护,它似乎也能工作。您拥有工作簿,因此您是唯一可以检查此工作表与其他工作表之间的链接,从而可能导致问题的人。列表很长:工作表上的事件(单击、更改等)、链接的单元格、引用、命名范围,不确定是否还有其他事件。好的,在新工作簿中尝试过,对于受保护的工作表也很好。将尝试消除可能导致问题的所有其他因素。谢谢大家。