Clever-Excel-Forum

Normale Version: Verschlüsselung einzelner Zellen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Hey zusammen,

ich habe eine Frage:

Kann man in Excel 2010 einzelne Zellen verschlüsseln und mit einem Passwort schützen?

Also ich habe beispielsweise in einer Zelle den Begriff Schmidt und möchte ihn nun verschlüsseln und mit einem PW schützen, sodass nur Befugte mit Zugang zu dem Passwort die Zelle entschlüsseln und den Begriff sehen können.

Habe noch und noch gegoogelt, aber nix gefunden.

Für Hilfe wäre ich echt dankbar.

Liebe Grüße
Hallo Stefan,
wenn Du
- alle Zellen nicht sperrst
- die 'zu verschlüsselnden' Zellen sperrst und ausblendest (im Schutz-Register)
- diesen Zellen außerdem die Schriftfarbe weiß zuweist,
- und dann das Arbeitsblatt schützt mit Pwd und 'gesperrte Zellen nicht auswählen';
dann kann der Inhalt erst nach Aufheben des Schutzes gesehen werden.
Aber jeder User kann aus einem anderen Blatt mit Verweis auf diese Zelle natürlich den Inhalt auslesen...
Leider keine bessere Lösung hat
der AlteDresdner
Hey AlterDresdner,

vielen Dank für die Antwort. :)

Soweit ich weiß ist der Arbeitsblattschutz leider recht einfach auszuhebeln.

Wundert mich, dass Excel so eine Funktion nicht vorsieht, wo es doch für viele Dinge so praktisch wäre Smile

Vielleicht weiß noch jemand Rat?

Lg
Hi Stefan,

Excel ist nicht unbedingt d a s (!) Programm, das geeignet ist, eine ordentliche Verschlüsselung vorzunehmen. Um zumindest Otto-Normal-User von deinen kritischen Zellbereichen auszusperren, könnte eventuell eine VBA-Lösung, bei der auch der Code selber gesperrt wird, helfen. Vielleicht kann dir ja einer unserer Makro-Spezies hilfreich unter die Arme greifen.

Aber denke daran - eine 100%ige Sicherheit gibt's auch hier nicht.
Hallöchen,

ich hätte dafür auch noch einen Weg.


Zitat:Verwende ein benutzerdefiniertes Zahlenformat. Der Vorteil gegenüber dem,

die Schrift weiß zu machen, ist, Der Zellinhalt ist auch dann noch unsichtbar,
wenn die Hintergrundfarbe der Zelle geändert wird.
 
1. Markieren der Zelle, deren Inhalt unsichtbar gemacht werden soll.
2. Mit der Tastenkombination < Strg > + < l >  das Dialogfeld Zellen formatieren öffnen.
3. Auf das Register Zahlen klicken, Unter Kategorie den Eintrag Benutzerdefiniert wählen..
4. Unter Typ drei  Semikolons erfassen.
5. Bestätigen, mit Klick auf OK.
 
Nach dieser Einstellung erscheint der Zellinhalt nicht mehr auf dem Tabellenblatt.
Aber es wird der Inhalt der Zelle noch in der Bearbeitungsleiste angezeigt.
 
1. Zelle erneut auswählen und über die Tastenkombination < Strg > + < l > das Dialogfeld Zellen formatieren öffnen.
2. Das Register Schutz aktivieren.und einen Haken in das Kontrollkästchen Ausgebendet setzen.
3. Das Fenster mit Klick auf OK schließen.
4. Jetzt den Blattschutz aktivieren. Dazu in der Registerkarten Überprüfen Befehlsgruppe Änderungen auf den Befehl Blatt schützen klicken.
5. Die voreingestellten Kontrollkästchen übernehmen.
6. Bestätigen, mit Klick auf OK.
 
Die Zelle erscheint jetzt als leer und auch in der Bearbeitungsleiste wird nichts mehr angezeigt.

Ach ja, Günter, das ist mir jetzt fast durchgerauscht .... ich würde natürlich, wenn man sowas öfter machen will oder muß, eine VBA-Lösung basteln.
Mit meiner obigen Beschreibung ließe sich das leicht sogar mit dem Makrorecorder aufzeichnen.
Hallo auch von mir!
Zunächst: Es wird in Excel niemals möglich sein, absolute Sicherheit zu erreichen, dafür sind relationale Datenbanken vorgesehen.
Vertrauliche Daten gehören in eine separate Mappe, auf die der Anwender keinen Zugriff hat!

Peters Lösung hat den Nachteil, dass ich die Zelle nur kopieren brauche und als Wert woanders einfüge, schon ist sie sichtbar.
(oder ich verweise in einer anderen Tabelle einfach per =Tabelle1!A1 auf die "geheime" Zelle)

Eine Lösung, die wohl die meisten "Normaluser" ausbremst:
  1. Spiegel die Geheimzellen in ein anderes Blatt, heißt, nur dort sind die Daten vorhanden.
  2. dieses Blatt im VBA-Editor auf xlVeryHidden setzen, so dass man es nicht mit Bordmitteln einblenden kann.
  3. Makro erstellen, mit dem ein Userform mit einem Textfeld (PasswordChar auf * setzen) Dein Passwort abfragt, welches hardcodiert ist.
  4. Dieses Makro wird per Tastenkombination gestartet, das Modul wird per Option Private Module für den Anwender unsichtbar gemacht.
  5. Das Makro holt sich den Verweis aus der (sehr) versteckten Tabelle und gibt das Ergebnis per MsgBox aus.
  6. Das Projekt wird jetzt passwortgeschützt und die Anzeige gesperrt.
Wichtig ist, dass die Tabelle NICHT geschützt wird. Der User soll die "Geheimzellen" ruhig anwählen und auch überschreiben können (dann kommt er auch nicht auf die Idee, dass da etwas wichtiges hinterlegt ist).

Hab im Moment wenig Zeit, ich stelle hier aber später ein Beispiel mit diesen Vorgaben ein (und verrate natürlich die Kennwörter) Wink

Gruß Ralf
So, habe schnell mal etwas gestrickt.
Die grünen Zellen in Tabelle1 (der einzig sichtbaren) haben versteckte Informationen.
Per Strg+Umsch+M wird ein Userform aufgerufen, welches das Kennwort Geheim abfragt (da kommt nie jemand drauf  :21:)
Ausgabe der in der sehr versteckten Tabelle2 hinterlegten Information.
Code ist geschützt, Kennwort ist RPP

Codes:
Modul Modul1
Option Explicit 

Sub Aufruf()
If Intersect(ActiveCell, Tabelle1.Range("A2:A9")) Is Nothing _
  Or Selection.Cells.Count > 1 Then Exit Sub
UserForm1.Show
End Sub

Dialog UserForm1
Option Explicit 

Private Sub CommandButton1_Click()
If TextBox1 = "Geheim" Then
  Unload Me
  MsgBox "Das geheime Wort ist: " & Tabelle2.Range(ActiveCell.Address)
Else
  Unload Me
  MsgBox "Falsches Kennwort!", vbCritical
End If
End Sub
TypNameEigenschaften
CommandButtonCommandButton1
Caption:OK
Height:24
Left:36
TabIndex:2
Top:72
Width:78
LabelLabel1
Caption:Kennwort
Height:18
Left:24
TabIndex:1
TextAlign:2
Top:0
Width :102
TextBoxTextBox1
Height:35,25
Left:24
PasswordChar:*
TabIndex:0
Text:
Top:24
Width:102

Datei im Anhang.

Gruß Ralf
[attachment=3973]

Hallo Ralf,

wenn ich was unsichtbar machen wollte, würde ich es ohnehin eher in oben gezeigter Form aufziehen.
Ich habe mal wieder in den unergründlichen Tiefen meiner Festplatten ein uraltes Schätzchen entdeckt
und dabei festgestellt ... nichts ist beständiger, als ein Provisorium. Aber als Beispiel reicht das durchaus.

Abgesehen davon, daß ich seit damals diese Datei nicht mehr angerührt habe würde ich das heute
wahrscheinlich auch ein bischen anders programmieren. Aber wie gesagt, ... als Beispiel sollte es
zunächst mal völlig ausreichend sein.
Hallöchen,

ich habe in einem anderen Forum in einem älteren Beitrag etwas vielleicht passendes gefunden:
http://www.ms-office-forum.net/forum/sho...post956080