Feld mit Passwort nicht anzeigen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…Angelika,
bei dem mit einer Ereignis-SubProzedur ein Eintrag in einer festgelegten Zelle sofort in eine eigene PgmZeile, am besten als globale Konstante, eingetragen wird: Const xyz As String = dieseEingabe
Anschließend wird die Zelle wieder gelöscht und günstigenfalls gesperrt (.Locked-Eigenschaft), was erst wirksam wird, wenn das Blatt geschützt wird.
Dazu darf das VBA-Projekt aber nicht geschützt sein und am besten wird im VBE unter Extras - Verweise auch ein Verweis auf die Microsoft Visual Basic for Applications Extensibility 5.3 gesetzt, damit die dafür nötigen Methoden und Eigenschaften auch vom VBE-Intellisense angezeigt wdn. Das hat dann natürlich den Nachteil, dass jeder Kundige die Geheimzahl im VBA-Projekt sehen kann, es sei denn, das VBA-Projekt wird anschld geschützt, was idR manuell erfolgen muss (dann könnte die Zahl aber auch gleich ins Projekt eingetragen wdn; VBA-Eintrag per SendKeys wäre anfällig und erforderte wiederum die Speicherung u.Tarnung dieses Kennworts). Anderenfalls müsste sie auch noch kryptisiert und möglichst getarnt wdn, was weiteren Pgm-Aufwand bedeutet.
Dann wäre es wohl günstiger, die Zahl mit der EreignisProzedur in den AlternativeText eines ZeichenObjekts (Shape) zu übernehmen und dort abzufragen. Seine Visible-Eigenschaft wäre anschließd auf False zu setzen. Außerdem könnten neue Übernahmen verhindert wdn, wenn diese Text-Eigenschaft nicht mehr leer ist. Das Objekt könnte auch gut unter ein anderes GrafikObjekt gelegt wdn, damit es nicht versehentlich gelöscht wird. Die Zahl kann dort auch eingetragen wdn, wenn das Objekt unsichtbar ist, egal wo es auf dem Blatt liegt. Allerdings gibt's ein offizielles Xl-AddIn, mit dem auf unsichtbare Objekte geprüft wdn kann!
Desweiteren könnten auch verborgene Namen hierfür interessant sein (vgl oben!). Diese wdn von Xl standardmäßig weder angezeigt noch wdn sie per in der Xl-Hilfe beschriebener Doku-Funktion (Namensliste) aufgeführt. Wird durch die o.g. EreignisProzedur ein solcher Name angelegt und mit der Geheimzahl befüllt, ist er vor NormalNutzern sicher (die ja auch erstmal drauf kommen müssen, dass so etwas vorliegt!), nicht aber vor Profis, die ihre eigenen Tools* verwenden! Und natürlich kann auch mit einfachen Xl-Mitteln von denjenigen auf seinen Inhalt zugegriffen wdn, denen der Name bekannt ist, also auch von einer Fml oder einem Pgm (Makro). Dabei ist zu empfehlen, die Namensbezeichnung mit einer speziellen Kennung beginnen zu lassen, die solche Namen alfabetisch entweder ganz vorn oder evtl besser ganz hinten anordnet, damit sie nicht so leicht zufällig (per Pgm) entdeckt wdn können, zB _aaa… oder zzzz…. Per ZellFml wäre die so verborgene Zahl dann leicht mit bspw folgder Fml auslesbar: =_aaa…
Es gibt neben den zuvor aufgeführten noch andere, einfachere Möglichkeiten, die aber wesentlich unsicherer sind als die hier nun ausführlicher beschriebenen. Am sichersten ist uU eine Kombination mehrerer Methoden, was sich aber nicht in jedem Fall anbieten wird.
* Meine einschlägigen UDFs zeigen auch jeden Namen an, auch die von Xl automatisch für neue Fktt ab Xl12/2007 (uU nur temporär) verborgen hinzugefügten!
Viel Erfolg! Morrn, Luc :-?

…Angelika!
Könnte es sein, dass du deine Kollegen unterschätzt? Ich würde nur wenige Minuten benötigen, um deine Geheimzahl zu finden (die Zeit hängt iW von ihrem Standort ab), wenn du das genauso machst, wie Daniel es beschrieben hat. Und dazu muss ich nicht mal das Kennwort des VBA-Projekts kennen (das sich übrigens nur dann schützen lässt, wenn wenigstens ein leeres normales Modul hinzugefügt wurde), auch nicht den Namen dieses Blattes oder gar die ZellAdresse!
&bullet; Variante1: Vorgehensweise mit TestBlatt
1. Auf beliebigem Blatt alle BlattNamen ermitteln* und mit den angezeigten vgln
2. Versuchen, nicht angezeigte einzublenden und alle, bei denen das fehlschlägt, weiterbehandeln
3. Leeres Blatt anlegen
4. Ganzes Blatt markieren (Klick auf linke obere KopfZeilenEcke) u.BedingtFormat (ZFarbe) anlegen:
Regel lt letztem Menüpkt: =ermittelterBlattname!A1""
5. farbige Zelle suchen u.Fml m.deren Adresse notieren, zB: =ermittelterBlattname!ZZ1000
Schon hat man die „Geheimzahl“ herausgefunden!
&bullet; Variante2: Vorgehensweise ohne TestBlatt
1…2. analog Variante1; ggf auch erst Anzahl tatsächlich vorhandener Blätter ermitteln*
3. In höheren Xl-Versionen TEXTVERKETTEN, sonst UDF VJoin benutzen; BspFml m.letzterer:
=VJoin(ermittelterBlattname!A1:ZZ1000;;-1)
Falls der ZellBereich für die UDF zu groß wird, diese mehrmals für verschiedene ZellBereiche einsetzen bis die Zahl gefunden ist!
* Den BlattNamen zu ermitteln, ist auch kein Problem. Dafür gibt's genug Bspp im Archiv! Ansonsten kann man das auch per simpler UDF per Fml machen: =TabName(ZEILE(A1))
Jedes Blatt kann nämlich auch mit einer flfd Nr identifiziert wdn, weshalb ich das Pgm dieser UDF wohl auch nicht posten muss; das bekommen auch VBA-Anfänger hin, obwohl man mit TabName auch die BlattAnzahl ermitteln kann, wenn man als lfd Nr 0 angibt!
Empfehlung:
Falls du bei dieser Methode, die von allen einigermaßen brauchbaren, eine der oder gar die unsicherste(n) ist, bleiben wolltest, solltest du das versteckte Blatt zumindest mit einer ausreichenden Anzahl Dummy-Zahlen füllen, zwischen denen dann die reale Geheimzahl zu verstecken wäre. Deren Anzahl sollte so groß sein, dass wenigstens beim manuellen Ausprobieren der Neugierige schnell die Lust verliert. Bedenke aber, Profis würden dafür ein Pgm benutzen!
Luc :-?

Private Sub Worksheet_Change(ByVal Target As Range) Const adEndSNb$ = "ZZ1000", adInpSNb$ = "A1", naTabSNb$ = "vhs" Dim wb As Workbook, ws As Worksheet If Not Intersect(Target, Me.Range(adInpSNb)) Is Nothing Then Randomize With Application .EnableEvents = False Set wb = Me.Parent: Set ws = wb.Sheets(naTabSNb) ws.Range(adEndSNb).Formula = "={" & Int(Rnd * 10 ^ 5) & _ ",0;0," & Target & "}" If ws.Visible

Function SelArVal(Bezug As Range, ByVal avKoorX As Long, _ Optional ByVal avKoorS As Long) Dim erg On Error GoTo ex erg = Evaluate(Bezug.Formula) If IsArray(erg) Then If avKoorX > 0 And avKoorS > 0 Then SelArVal = erg(avKoorX, avKoorS) ElseIf avKoorX > 0 Then SelArVal = erg(avKoorX) End If End If ex: erg = Empty End Function

Beliebteste Forumthreads (12 Monate)

28 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

28
Beiträge zum Forumthread

Beiträge zu diesem Forumthread