VBA-Beispiel 002
mail schreiben
mail schreiben

Blattschutz aktivieren

Mit dem ersten Makro wird der Blattschutz für Tabelle1 aktiviert. Das Paßwort lautet "blau".
Das zweite Makro hebt den Blattschutz wieder auf.
Sub Blattschutz_ein()
  Sheets("Tabelle1").Protect Password:="blau"
End Sub

Sub Blattschutz_aus()
  Sheets("Tabelle1").Unprotect Password:="blau"
End Sub
Mit den nächsten Makros wird der Blattschutz für alle Tabellen der aktiven Mappe aktiviert/deaktiviert
Sub Blattschutz_alle_Tabellen()
Dim i As Worksheet

      For Each i In ActiveWorkbook.Worksheets
        i.Protect
      Next i
End Sub

Sub Blattschutz_alle_Tabellen_aufheben()
Dim i As Worksheet

      For Each i In ActiveWorkbook.Worksheets
        i.Unprotect
      Next i
End Sub

Download:   vba002.zip