Blattschutz per Makro
26.11.2020 13:14:54
Vba
Ich bin neu hier im Forum, habe aber schon unendlich viel von Eurem Wissen profitieren können.
Das Problem:
Ich habe ein Arbeitsblatt mit 10 Tabellen. Beim Tabellenblatt Nr. 5 setze ich manuell den Blattschutz ohne resp. mit einem "leeren" Passwort. Bei den anderen Tabellenblättern setze ich keinen Blattschutz.
Dann entferne ich bei allen Tabellenblättern den Blattschutz mit dem untenstehenden ersten Makro. Anschliessend setze ich bei allen Tabellenblättern den Blattschutz MIT Passwort mit dem zweiten Makro.
Fazit: Bei Excel 2007 sind alle Blätter geschützt. Beim manuellen Blattschutz aufheben wird bei jeden Tabellenblatt nach dem Passwort gefragt. Das ist in meinen Augen korrekt.
Bei Excel 2016 sind auch alle Blätter geschützt. Beim manuellen Blattschutz aufheben fragen mich alle Tabellenblätter "ausser dem Blatt Nr. 5" nach dem Passwort. Warum hat Blatt 5 den Blattschutz, aber ohne Passwort?
Es sieht so aus, wie wenn Excel 2016 sich "merkt", dass beim Blatt 5 erstmalig manuell ein "leeres" Passwort gesetzt worden ist.
Ist das gewollt oder ein Fehler im Excel 2016? Hat jemand die gleiche Erfahrung auch schon gemacht? Oder: was vielleicht eher zutrifft: was mache ich falsch?
Herzlichen Dank im voraus für Euren Support.
VbaFan
Sub AlleBlätterUnprotect()
Application.ScreenUpdating = False
For t = 1 To Sheets.Count
Sheets(t).Unprotect Password:="irgendeines"
Next t
Application.ScreenUpdating = True
End Sub
Sub AlleBlätterProtect()
Application.ScreenUpdating = False
For t = 1 To Sheets.Count
Sheets(t).Protect Password:="irgendeines", DrawingObjects:=True, Contents:=True, Scenarios:= _
True
Next t
Application.ScreenUpdating = True
End Sub