Office: (Office 2007) Schreibschutz für bestimmte Zellen dennoch wieterhin das ausführen von VBA

Hallo

ich möchte bestimmte Zell Bereiche in meiner Mappe vor unberechtigter eingabe Schreibschützen, leider wird mir dann auch immer ein Fehler beim Ausführen von den Makros ausgegeben, den diese Zellen sollen per Makro beschrieben werden.

Kann mir da jemande helfen???
Bin ratlos wie ich die Makros für schreibgeschütze bereiche freigeben kann.
Es sollen eben nur die Zellen gegen Usereingriff geschützt werden.

LG

:)

 

Hallo Dragonblue,

heb den Schreibschutz manuell auf und setze ihn dann per Makro nach folgendem Muster:
Code:

Durch den Parameter UserInterfaceOnly gilt der Blattschutz nur für manuelle Eingaben, nicht aber für Makros.

Gruß Ingolf

 

Danke für die antwort

gibt es denn auch eine mäglichkeit das ich per Makro zb nur bestimmte Zellen schreibschütze dann spare ich mir ja den Blattschutz eigentlich.

Zumal ich mehrere Arbeitsblätter habe und in diesen Arbeitsblättern eigentlich nur die Spalten schützen will die per Formel ihre Daten bekommen damit dort keiner versehentlich mal was an den Formel macht oder sie löscht!

 

Hallo Dragonblue,

wenn du in Excel einen Blattschutz setzt, werden immer nur diejenigen Zellen geschützt, bei denen in den Formateigenschaften (Format | Zellen...)unter dem Reiter Schutz die Eigenschaft Gesperrt aktiviert ist. Standardmäßig ist diese Eigenschaft bei allen Zellen gesetzt. Um also zum Beispiel nur die Zellen der Spalte B zu schützen, müsstest du zunächst die Eigenschaft Gesperrt bei allen Zellen deaktivieren, anschließend bei den Zellen der Spalte B wieder aktivieren und dann den Blattschutz setzen. Per VBA könnte das zum Beispiel so aussehen:

Code:

 

Danke genau das ist es was ich gesucht habe das werde ich noch einbauen!

Gehe ich richtig davon aus das es dann in "Diese Arbeitsmappe" eingefügt werden muss oder doch in jedes Arbeitsblatt einzeln?

 

Hallo Dragonblue,

wo du das einstellst, ist eigentlich egal. Es sei denn, das Ganze wird bei dir als Ereignismakro angelegt. In meinem Beispiel wird das Tabellenblatt ja über den Namen angesprochen. Das Beispiel gilt also nur für das Tabellenblatt Tabelle1. Wenn du exakt dieselben Zellen in allen Tabellenblättern der Arbeitsmappe schützen willst, dann musst du den Code in eine entsprechende Schleife stellen und die Tabellenblätter über eine Variable ansprechen:

Code:

 

Hallo Ingolf

ok da nicht alle Tabellenblätter gleich sind kann ich das also nicht machen sondern muss das dann wirklich für die entsprechenden Tabellenblätter machen bzw die Tabellenblätter anpassen. Ich füge mal die Beispieldatei hinzu dann siehst du auch was ich meine!

Wie du siehst muss ich in der Personalübersicht ein paar Zellen schützen, dann entsprechend Januar bis Dezember und eben auch in der Anwesenheitsliste.

In der Personalübersicht ist das im endeffekt nicht ganz so schlimm, da wäre es so das nur die Spalte C geschützt sein muss. aber bei den anderen muss ich nen schutz haben

bei januar bis dezember muss alles geschützt sein bis auf die Zellen 1-31 (D6:AH125) weil dort die eintragungen erfolgen wie man sieht, dann in der Anwesenheit muss auch alles geschützt sein bis auf die Spalte bemerkung

ich hoffe du kannst nun besser verstehen was ich meine!

LG und vielen Dank

 

Hallo Dragonblue,

versuch mal folgenden Code in einem allgemeinen Modul:

Code:

 

Nein das hat nicht geklappt konnte nach wie vor die Zellen noch überschreiben bzw ändern!

 

Hallo Dragonblue,

in deiner Testmappe hat das einwandfrei funktioniert. Ich habe dir die Mappe mit dem Makro nochmal hochgeladen. Führe bitte das Makro Zellschutz aus, dann sollten Eingaben in den gewünschten Zellen nicht mehr möglich sein.

Gruß Ingolf

 

Sorry hatte nicht gesehen das es ein Makro ist das von hand gestartet werden muss ich dachte das ist auch ein Automatisches Makro, war heut nen harter tag!

 

Hallo Dragonblue,

als automatisches Makro würde das ja keinen Sinn machen. Denn dann würde es ja jedesmal ausgeführt werden, wenn das Ereignis, in das es eingebunden ist, auftritt. Das Makro muss aber nur einmal ausgeführt werden. Es sei denn, du hebst den Blattschutz irgendwann einmal auf, was allerdings nur nötig ist, wenn du von Hand etwas ändern willst.

Der einzige Grund dafür, warum der Schutz überhaupt per Makro und nicht einfach von Hand eingerichtet werden muss, ist der Parameter UserInterfaceOnly, der dafür sorgt, dass der Blattschutz für Makros nicht gilt und der bei einer manuellen Einrichtung eines Blattschutzes nicht gesetzt werden kann.

Gruß Ingolf

 

Grins viellleicht sollte ich mal erklären warum das als Automatisches Makro gar nicht so verkehrt ist.

Da nicht nur ich alleine Daten in die Liste eintrage sondern eigentlich andere Personen 2 um genau zu sein, und diese nun mal ehhh wie soll ich sagen naja nicht immer unbedingt drauf achten wo sie gerade was eintragen, ist es sinnvoll das ein Makro automatisch gestartet wird mit dem schutz so das sie auch wirklich NUR dort eintragungen machen können wo es vorgesehen ist.

Ich betreue die Tabelle nur nehme evtl änderungen vor, oder eben versuche AUCH DANK EURER HILFE MUSS ICH MAL SAGEN diese Tabelle zu Optimieren und zu verbessern.

Ich hoffe du verstehst nun warum es sinnvoll wäre da einen Automatischen schutz ein zu bauen, denn sonst sehe ich wirklich irgendwann die Formel sonst wo stehen aber nicht da wo sie hin gehören.

 

Aber irgendwie ist es nicht so wie ich es mir dedacht hatte, zum einem bekomme ich laufend eine Fehler meldung und zum anderen, kriege ich das nicht in einer Automatischen funktion hin.

Schade, das wäre noch das "i" tüpfelchen.

 

Hallo Dragonblue,

ich habe bislang immer noch nicht begriffen, warum das Makro immer wieder automatisch laufen soll. Wenn das Makro einmal gelaufen ist, dann sollte doch ein dauernder Schutz gewährleistet sein, dafür muss das Makro doch nicht immer wieder erneut laufen.

Was die Fehlermeldung angeht, was ist das für eine Fehlermeldung und in welcher Codezeile tritt diese auf?

Gruß Ingolf