Makro für "Tabelle schützen"?

[Paule]

Moin,

vielleicht stell ich ja ma ne frage die zu beantworten ist

Hab eben versucht durch ein Makro meine Tabelle zu schützen hab das allerdings von Hand gemacht, geht aber nicht, nun bin ich bei Makros allerdings nicht so der vollprofi also kann mir wer erklären wie das geht, falls das geht?

gruß


Paule

[Toxitom]

Hey Paule,

Hab eben versucht durch ein Makro meine Tabelle zu schützen hab das allerdings von Hand gemacht, geht aber nicht,

Wie meinst du das? Was genau hast du gemacht? und was hat nicht funktioniert?
Der Schutz einer Tabelle via Basic-Code läuft wie folgt:

Code: Alles auswählen

Sub TabellenSchutz
  Dim oDoc as Object, oSheet as Object
  Dim oZelle as Object
  oDoc = ThisComponent
  oSheet = oDoc.sheets(0)
  oZelle = oSheet.getCellRangeByName("C15")
  MsgBox "Blatt wird jetzt geschützt," & CHR$(13) &_
  "in Zelle C15 dann ""Versuch 1"" eingetragen."
  oSheet.protect("meinPasswort")
  oZelle.String = "Versuch 1"
  MsgBox "Jetzt Blattschutz aufheben und " & CHR$(13) &_
  "in Zelle C15 dann ""Versuch 2"" eingetragen."
  oSheet.unprotect("meinPasswort")
  oZelle.String = "Versuch 2"
End Sub

Da steht eigentlich alles wichtige drin. Das geht natürlich alles nur, wenn der Zellschutz auch aktiviert ist - also der einzelnen Zelle. Das ist aber standardmäßig der Fall. Ist der aber ausgeschaltet, kannst du die Zelle auch ändern, wenn die Tabelle geschützt ist - aber das wiesst du sicherlich.
Ein Passwort musst du übrigens nicht angeben, dann musst du aber zumindest einen leeren String ("") übergeben!.

Gruss
Thomas

[Paule]

moin Toxitom

super, nun klappt das 1000 dank!

Wie meinst du das? Was genau hast du gemacht? und was hat nicht funktioniert?

Extras->Makro/aufzeichnen und dann per Hand Tabelle geschützt Makro beendet, naja und das hat nicht gefunzt.

gruß

Paule

[Paule]

hm das klappt nur für die erste Tabelle in meinem Dokument, hab aber 4, die sollen alle auf einmal geschützt werden. ne Idee?

Gruß

Paule

[Paule]

hat sich erledigt, bin wohl doch lernfähig

[/code]

[berndkli]

Hallo Paule / Toxicom

Ein Makro ist doch garnicht nötig. Es geht ganz einfach über eine Tastenkombination zuweisen :

Extras> Anpassen> dann auf den Reiter "Tastatur"> unten links im Feld "Bereich" den Eintrag Extras anklicken> dann im Feld "Funktionen" rechts daneben den Eintrag "Tabelle schützen" suchen und anklicken> im Feld darüiber "Tastenkombination" eine noch nicht belegte aussuchen und anklicken> anschliessend auf "ändern"> fertig!!

2,3oder mehr Tabellen gleichzeitig zu schützen geht folgendermasen:

Der Tabellenreiter( Tabelle1, Tabelle2 u.s.w) der aktiven Tabelle ist weiss,die anderen grau. Wenn Du bei gedrückter Strg Taste auf einen grauen Reiter klickst wird dieser auch weiss und die dazugehörige Tabelle damit aktiv;alle Tabellen markierst du indem du Tabelle 1 anklickst dann
Shift dückst und dann auf die letzte klickst.
Umgekehrt geht's genauso;wenn alle aktiv sind, Shift drücken und die Tabelle markieren mit der du arbeiten willst.

Aber VORSICHT!!! Wenn alle Tabellen aktiv sind überträgt sich jede Aktion die du in einer Tabelle durchführst auf alle anderen; wenn du also alle Tabellen geschützt hast gleich wieder zurückschalten auf nur eine aktive; kann man sich viel kaputtmachen.

Gruss B.