如何保护工作表并在vba中取消保护列表对象

Question

我正在运行excel 2010并开发了一个xlsm以推广给一些用户

我已使用以下常规方法保护工作簿

我的问题是我在工作簿中使用了listobjects作为需要用户干预的映射表。现有的listobject行可以被操作，但是不能添加新行 - 关于如何解决这个问题的任何想法？

感谢

Public Sub ProtectAll(ByVal wbWorkbook As Workbook)

  Dim wks As Worksheet

  For Each wks In wbWorkbook.Worksheets
                wks.Protect sPasswordToLock, True, True, False, True,     True,True, True, False, False, False, False, False, True, True, True
                wks.EnableSelection = xlNoRestrictions

  Next wks