Zurück zur Homepage

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