Makroumschreiben
Frank
ich bin mal wieder am verzweifeln, Ich habe eine Datei mit 12 Monatsblättern für die ich einen Blattschutz vergebe. Den vergebe ich über ein Makro für alle Blätter( da ich immer noch Änderungen einpflegen muss und die Datei nicht offen lassen kann bis alles komplett ist) . Das funktioniert aber nur teilweise. Wenn das Makro durchgelaufen ist funktioniert alles wie es soll, gesperrte Zellen können nicht ausgewählt werden, Autofilter und Sortierfunktion sind eingeschalten. Wenn ich die Datei aber schließe und wieder öffne ist im Januar der Blattschutz nur theoretisch vorhanden, denn ich kann in den gesperrten Zellen Eingaben machen.
Der Schutz ist aber eingeschalten, denn ich muss, wenn ich ihn manuell aufrufe das PW eingeben.
In den anderen Blättern hingegen ist der Schutz aktiv aber ich kann die geschützten Zellen auswählen, was ich aber nicht möchte, da man dann immer die Meldung wegklicken muss. Hier mal ein Auszug aus dem Makro, es ist dann für alle anderen Blätter genauso weitergeführt.
Jetzt noch die Frage: Wie wäre der Text für das Ausschalten der Auswahl der gesperrten Zellen?
'Blattschutz setzen
Sheets("Januar´11").Select
ActiveSheet.Protect "1000", AllowSorting:=True, AllowFiltering:=True, Allow.....:=False
Sheets("Februar´11").Select
ActiveSheet.Protect "1000", AllowSorting:=True, AllowFiltering:=True
Allen einen Guten Rutsch und alles Gute für's neue Jahr!
Danke im Voraus
Gruß Frank