Blattschutz aufheben

Diese Funktion hebt den Blattschutz aller Tabellen der geladenen Arbeitsmappen unter XL97 auf. Durch ein Bug ist die Funktion auch ziemlich kurz.

Public Sub BlattschutzAufheben()
  Dim a As Workbook, b As Worksheet
  On Error Resume Next
  For Each a In Workbooks
    For Each b In a.Worksheets
      With b
        .Protect "", userinterfaceonly:=True
        .[A1].Copy .[A1]
      End With
    Next
  Next
End Sub