VBA · Administration

Alle Arbeitsblätter schützen

Aktiviert den Blattschutz auf allen Arbeitsblättern mit einem vorgegebenen Kennwort.

VBA

Sub AlleBlaetterSchuetzen()
    Const Kennwort As String = "BITTE_AENDERN"
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Protect Password:=Kennwort, DrawingObjects:=True, Contents:=True, Scenarios:=True
    Next ws
End Sub

Hinweis: Kennwort vor Verwendung ändern und sicher dokumentieren. Excel-Blattschutz ist kein Ersatz für Dateiverschlüsselung.

VBAExcelBlattschutzAdministration

← Zur Codebibliothek Unterstützung anfragen