Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
Ja, Dein Code!
Aber dies wurde ja bereits mehrfach erwähnt.
Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 08.01.2018
Version(en): 2010
Ich habe gerade eine alte Version der Datei rausgekramt und folgendes Makro eingebaut:
Sub Workbook_Open()
Dim ws As Worksheet
Set ws = Worksheets("Kosten mit Material")
ws.Protect userinterfaceonly:=True, Password:="123"
ws.EnableAutoFilter = True
ws.EnableOutlining = True
End Sub
Da funktioniert alles wie es sein soll. Allerdings schützt es mir in der aktuellen Datei automatisch das 2. Tabellenblatt mit und ich kann nicht erkennen, warum das so ist.
Registriert seit: 08.01.2018
Version(en): 2010
Jetzt funktioniert alles mit dem code
Sub Workbook_Open()
Dim ws As Worksheet
Set ws = Worksheets("Kosten mit Material")
ws.Protect userinterfaceonly:=True, Password:="XXXX"
ws.EnableAutoFilter = True
ws.EnableOutlining = True
End Sub
Einziges problem war, dass ich den Blattschutz auf dem 2. Blatt erstmal deaktivieren musste, dann den neuen code einfügen und speichern. Hatte Kuwer zwar geschrieben, hab ich wohl falsch verstanden. Aber jetzt läuft alles. Danke für Eure Hilfe!
