Blattschutz mit Bedingung | Herbers Excel-Forum

Hallo zusammen,
ich habe mir aus dem Internet ein Makro gesucht, mit dem ich alle meine Tabellenblätter gleichzeitig mit einem Blattschutz versehen kann. Nun würde ich gerne noch die Bedingung einbauen, damit man trotz Blatzschutz Spalten Ein- und Ausblenden kann. Wenn man über Extras=> Blatt schützen geht kann man dies mit der Option "Spalten formatieren" einstellen. Dies würde ich gerne in das Makro einabauen.
Zudem würde ich gerne, wenn es geht, ein Passwort für den Blattschutz vergeben. Kann man dies auch über ein Makro lösen? Dieser Punkt ist aber nicht unbedingt notwendig, lediglich "nice to have".
Hier das Makro:
Option Explicit
Dim WsTabelle As Worksheet

Sub SCHüTZEN()
For Each WsTabelle In Sheets
WsTabelle.Protect
Next WsTabelle
End Sub