Blattschutz aller Blätter
Ralf
Ich habe eine Arbeitsmappe mit 37 Blättern und möchte mir diese Sub Funktion
von Andreas, die weiter unten auf dieser Seite steht, zu gute kommen lassen.
Leider habe ich keine Ahnung wie man das macht. KANN MIR DABEI IRGENDJEMAND HELFEN?
Mit freundlichen Grüßen und vielen Dank im voraus euer Ralf Heinz
Sub Schutz_ein()
Dim intSheet As Integer
Application.ScreenUpdating = False
'Blaetter schuetzen:
For intSheet = 1 To Worksheets.Count
Worksheets(intSheet).Protect "DeinPasswort"
Next intSheet
Application.ScreenUpdating = True
End Sub
Sub Schutz_aus()
Dim intSheet As Integer
Application.ScreenUpdating = False
'Blattschutz aufheben:
For intSheet = 1 To Worksheets.Count
Worksheets(intSheet).Unprotect
Next intSheet
Application.ScreenUpdating = True
End Sub