0160-93 82 19 37 | Nehmen Sie 
Verschiedenes Rund um den Blattschutz
102003
Verschiedenes Rund um den Blattschutz Blattschutz herstellen und das Gruppieren erlauben Privat Sub Workbook_Open() ActiveSheet.Protect password:="Geheim" Contents:=True, UserInterfaceOnly:=True ActiveSheet.EnableOutlining=True End Sub Privat Sub Workbook_Open() ActiveSheet.Protect password:="Geheim" Contents:=True, UserInterfaceOnly:=True ActiveSheet.EnableOutlining=True ActiveSheet.EnableAutoFilter=True End Sub Public Sub Schutz() pwd = "Geheim" oder pwd = sheets("Optionen").Range("B2").Value ActiveSheet.Protect password:=pwd, Contents:=True, UserInterfaceOnly:=True ActiveSheet.EnableOutlining=True End Sub Public Sub Schutz_aufheben() pwd = "Geheim" oder pwd = sheets("Optionen").Range("B2").Value ActiveSheet.Unprotect (pwd) End Sub
Blattschutz herstellen und Gruppieren und Autofilter erlauben
Blattschutz mit Passwort in Variable abgelegt
Blattschutz aufheben
