Blattschutz erzeugt _Fehler
17.12.2018 14:19:27
BLangmantl
Code für Alle Tabellen Blattschutz setzten:
vorweg, die Variable WS ist eine globale und als Worksheet deklarieret
Option Explicit
Dim i As Integer
Sub Schutz_für_alle_hin()
On Error GoTo err
For Each ws In Sheets
ws.Protect(password:="123") Hier der Code für Alle Schützen, der der als einzigster richtig funktioniert
Dim i As Integer
Sub Schutz_für_alle_weg()
On Error GoTo err
For i = i To Worksheets.Count
With Worksheets(i)
.Unprotect Password:="123"
End With
Next i
MsgBox "Der Blattschutz für alle Tabellenblätter wurde gesetzt"
Exit Sub
err:
MsgBox "Es ist der Fehler mit der Nummer: " & err.Number & vbCrLf _
& "und der Beschreibung:" & vbCrLf & err.Description & vbCrLf & "aufgetreten"
End Sub
Hier der Code für ein Blatt schützen, der zeigt auch rot an
Sub BlattschutzAn()
On Error GoTo err
ActiveSheet.Protect(Password:="123", UserInterfaceOnly:=True, AllowFiltering:=True) Wer kann mir da helfen?
Anzeige