Kann mir jemand verraten, wo ich die Befehlszeile eingeben muss
bzw wo ich den Parameter umstelle?
Sub Workbook_Open()
Sub Autofilter_bei_Blattschutz()
ActiveSheet.Protect userinterfaceonly:=True
ActiveSheet.EnableAutoFilter = True
End Sub
Datei speichern/schließen - ab dem nächsten Start läufts.
Gruß,
Beate
Sub Workbook_Open()
With Sheets("DeinBlatt")
.Unprotect password:= "xxx"
.EnableAutoFilter = True
.Protect contents:= True, UserInterfaceOnly:=True, password:= "xxx"
End With
End Sub