Folgenden Code habe ich in ein Modul kopiert, eine Schaltfläche zugewiesen und diese in ca. 20 Blätter kopiert. Damit kann ich den Blattschutz bequem ein- oder ausschalten. Funktioniert auch.
Option Explicit
Sub Schaltfläche1_BeiKlick()
Application.ScreenUpdating = False
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.ProtectContents = True Then
ws.Unprotect
Else
ws.Protect
End If
Next
Application.ScreenUpdating = True
End Sub
Aber:
wenn ich in einem Blatt die Schaltfläche anklicke, wird zwar der Code wie gewünscht ausgeführt, bei der Bildschirmansicht rutscht das Blatt aber immer an den linken Bildschirmrand (die Reihenfolge der Blätter ist aber nach wie vor richtig). Ist zwar eine Kleinigkeit, aber lästig.
Vielleich weiß jemand Rat.
Servus, Walter