Supportnet / Forum / Tabellenkalkulation

Hallo! Diese Frage wurde schon einmal gestellt, aber ich kann die Antwort leider nicht aufrufen. Ich möchte NUR die Rahmen meiner Tabelle schützen, da die Tabelle von mehreren Leuten benutzt wird, die häufig aus Versehen (durch Kopieren zum Beispiel) das Aussehen der Tabelle verändern. Wie kann ich das machen? Ist es überhaupt möglich? Eingaben in die Zellen müssen natürlich möglich sein. Vielen Dank!!! Pierre

Hallo Piere,

Formatierungen kannst Du nur durch schützen der Tabelle schützen.

Gruß Hajo

Und das bedeutet, dass ich dann nichts mehr in die Zeilen schreiben kann?

Hallo Piere,

in Excel sind alle Zellen gesperrt, Du kannst die Zellen aber formatieren, Register Schutz, gesperrt entfernen. Dann kannst du auch nach Schutz ändern.

Gruß Hajo

OK. Das kenne ich.
Aber leider ist der Rahmen dabei immer noch nicht geschützt.
Gibt es denn sonst niemanden, der den Rahmen schützen möchte?
Es ist doch total nervig, wenn sich durch Hin- und Herkopieren von Zellinhalten ständig die Rahmen ändern.

Hallo Piere,

kopiere nur den Inhalt, über Inhalte einfügen (rechte Maustaste)
Das mit dem Kopieren bekommst DCu nicht vehindert, da dort alles kopiert wird bei normalen kopieren.

Gruß Hajo

Hallo Pierre,

so ohne weiteres wird Dein Vorhaben nicht realisierbar sein. Man kann aber so einiges mit VBA realisieren. Über VBA könnte man realisieren, dass in der Datei erst gar nicht kopiert werden kann. Somit ist der Benutzer gezwungen die Eingaben per Hand durchzuführen. Schau mal auf meiner HP in der Rubrik Beispieldateien und dort dann in dem Beispiel 66 nach. Dort stelle ich dazu eine Beispieldatei zur Verfügung, die Dir sicherlich helfen wird.
Oder man läßt das Einfügen nur über die Tastenkombination "Strg v" zu und dadurch wird ein Makro angestoßen, dass nur die Inhalte, aber nicht die Formate einfügt. Mal als Beispiel oreientiert an dem Makro aus meinem obig angesprochenen Beispiel 66:

Option Explicit

Sub Funktionen_deaktivieren()
With Application
'Das RollUp Menü, was beim Betätigen der rechten Maustaste erscheint wird deaktiviert
.CommandBars("Toolbar List").Enabled = False
'Die Funktion "Anpassen" Im Menüpunkt "Extras" wird deaktiviert
.CommandBars("Worksheet Menu Bar"). _
Controls("Extras").Controls("Anpassen...").Enabled = False
'Die Funktion "Makro" Im Menüpunkt "Extras" wird deaktiviert
.CommandBars("Worksheet Menu Bar"). _
Controls("Extras").Controls("Makro").Enabled = False
'Die Funktion "Makro" Im Menüpunkt "Extras" wird deaktiviert
.CommandBars("Worksheet Menu Bar"). _
Controls("Datei").Controls("Speichern unter...").Enabled = False
End With

'Tastenkombinationen deaktivieren
Application.OnKey "^x", ""
Application.OnKey "^v", "Einfügen_ohne_Formate"
Application.OnKey "+{DEL}", ""
Application.OnKey "+{INSERT}", ""

'Drag & Drop ausschalten
Application.CellDragAndDrop = False

'Schaltflaechen in Menüleiste => Bearbeiten aktivieren
'Ausschneiden
procControlEnableDisable 21, False
'Kopieren
procControlEnableDisable 19, False
'Einfuegen
procControlEnableDisable 22, False
'Inhalte einfuegen
procControlEnableDisable 755, False
'Office-&Zwischenablage
procControlEnableDisable 809, False
End Sub

Sub procControlEnableDisable(intId As Integer, _
bolStatus As Boolean)

Dim cmbSuche As CommandBar
Dim cmbcSteuerelement As CommandBarControl

On Error Resume Next

For Each cmbSuche In Application.CommandBars
Set cmbcSteuerelement = _
cmbSuche.FindControl(ID:=intId, recursive:=True)

If Not cmbcSteuerelement Is Nothing Then
cmbcSteuerelement.Enabled = bolStatus
End If
Next

End Sub

Sub Einfügen_ohne_Formate()
ActiveCell.PasteSpecial Paste:=xlPasteValues
End Sub

Der unterstrichene Teil ist der Teil, den ich zu dem beschriebenen Beispiel hinzugefügt habe und der dann nur die Inhalte einfügt.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo Oliver,

reicht zum verhindern des kopierens nicht folgender Code unter DieseArbeismappe.

Option Explicit

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub

oder der analoge Code unter der Tabelle?
An der gleichen stelle darf ja kopiert werden.

Gruß Hajo

Vielen Dank für die vielen Antworten.
Das hat mir schon etwas weitergeholfen.
Ich werde das jetzt mit den Makros versuchen.

Ich habe am oberen Ende der Tabelle jetzt einen Bereich mit
einigen Schaltflächen.
Kann ich irgendwo einen Befehl eingeben, dass dieser Bereich immer dort bleibt und nicht durch scrollen weggeschoben werden kann?
Ist vermutlich recht kompliziert. Ich frage einfach mal. Vielleicht gibt es eine einfache Antwort. Wenn nicht, ist es auch nicht so wild.
DANKE!!!
Pierre

Hallo Piere,

Fixiere Deine Tabelle und ordne die CommandButton im oberen Teil an oder benutze eigene Symbolleisten.

Gruß Hajo

Leider habe ich keine Ahnung davon. Kann und will auch nicht zuviel Zeit darin investieren.
Wäre es sehr aufwendig mit den eigenen Symbolleisten?
Wie fixiere ich die Tabelle?
Gruß
Pierre

Hallo Pierre,

bei solchen Fragen ist die Version sehr wichtig.
Ich beschreibe es mal für eine Version vor 2007

Erstellung Symbolleiste

Fixierung,

markiere Zeile 3 und Fenster, Fenster fixieren

Gruß Hajo

Vielen Dank.
Ich werde mal gucken, was ich daraus machen kann.
Pierre

Das ist mit dem Fixieren ist der Hammer. Wusste nicht, dass
das geht. Das hilft mir sehr weiter. Macht das Ganze übersichtlicher
SUPER!
Vielen Dank!

Hallo Hajo,

ja, der Befehl aus Deiner AW7 würde sicherlich auch reichen, aber wie Du weißt führen ja bekantlicherweise mehrere Wege nach Rom.
Wobei es in meiner Beispieldatei auch mehr darum geht, dass man Werte nicht nur innerhalb, sondern auch aus der Arbeitsmappe nicht herauskopieren kann und da reicht der Befehl von Dir alleine nicht.

MfG,
Oliver
^{Jeder macht was er will, keiner macht was er soll, aber alle machen mit.}

• Spalten durch passwörter schützen
• Formatierung schützen
• Arbeitsmappe schützen Problem
• Rahmen nachträglich von Fett auf Normal
• Diagramm schützen