Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1164to1168
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1164to1168
1164to1168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenschutz passwort in Makro auslesen

Tabellenschutz passwort in Makro auslesen
t.ebbinghaus
Hallo,
ich möchte das Passwort für den Schutz eines Arbeitsblattes in einem Makro auslesen und verwenden.
Hintergrund:
Bei einem Klick auf eine bestimmten Button werden nacheinander folgende Aktionen ausgelöst:
1. Es wird in einem Userfrom nach dem Tabellenpasswort gefragt
2. Mit dem Passwort wird die Tabelle entsperrt (ActiveSheet.Unprotect Password:=sPass)
3. Die Zeile mit der aktivierten Zelle wird markiert, der Hintergrund eingefärbt und alle Zellen gesperrt
4. Die Tabelle wird mit dem Passwort entsperrt (ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=sPass)
5. Der Inhalt der nunmehr geschützten, aktiven Zeile wird per SQL-Abfrage an einen Word-Serienbrief übergeben und zum Druck vorbereitet
Abgefangen wird über das Userform ein klick auf "Abbruch" bei der Passwortabfrage. Ich möchte nun zusätzlich die Eingabe eines falschen Passworts abfangen, ohne dass das Passwort im Makro hinterlegt ist. Gibt eins eine Funktion dafür?
Danke & Gruss
Thorsten
AW: Tabellenschutz passwort in Makro auslesen
13.07.2010 11:22:28
Nepumuk
Hallo,
du musst doch nur den Fehler abfangen der ausgelöst wird, wenn das Kennwort falsch ist.
Gruß
Nepumuk
P.S. Also entweder Kennwort oder Password, aber bitte kein denglisch.
@Nepumuk : Ist doch alles richtig geschrieben
13.07.2010 11:28:47
NoNet
Hallo Nepumuk,
Deinen Einwand verstehe hier nicht :
P.S. Also entweder Kennwort oder Password, aber bitte kein denglisch.
Thorsten hat in seinem Beitrag durchweg die deutsche Schreibweise Passwort verwendet - ausser in den Argumenten der VBA-Anweisungen, die selbstverständlich die englische Schreibweise erfordern.
Gruß, NoNet
Anzeige
Passwort auslesen - Soll das ein Witz sein ?
13.07.2010 11:24:30
NoNet
Hallo Thorsten,
glaubst Du wirklich, es gibt einfach mal so eine Möglichkeit, das Passwort für den Blattschutz auszulesen ? - Welchen Sinn hätte da ein Schutz ?
Ich nehme an, Du suchst die fiktive Eigenschaft .Password :
sPass = ActiveSheet.Protection.Password
Du kannst dazu ja mal einen Ergänzungswunsch an MS schreiben...*LOOL*
Mal im Ernst : Du kannst allenfalls versuchen, den Blattschutz mit dem eingegebenen Passwort aufzuheben und im Falle eines Fehlers (Fehler 1004) darauf reagieren :
    On Error Resume Next
Err.Clear
ActiveSheet.Unprotect sPass
If Err.Number = 1004 Then
MsgBox "Falsches Passwort !"
Else
'Sonstiger Code bei korrektem Passwort
End If
Gruß, NoNet
Anzeige
OT
13.07.2010 11:33:29
Nepumuk
Hallo NoNet,
du auch Dengländer?
Um diese Nachricht zu lesen muss, nachdem sie gedowloaded wurde kein Passwort eingegeben werden, der Bildschirm wird automatisch geupdated. ;-)
Schöne Grüße aus KĀ-DINGIR-RA
Nepumuk
OT: Neee - bin absolut dagegen
13.07.2010 12:07:39
NoNet
Hey Nepumuk,
ich habe zwar nichts gegen "Multi-Kulti" in der Gesellschaft (schon gar nicht nach der tollen WM ;-), aber ich bin absolut gegen "Multi-Kulti" in der Sprache (sowohl "Hey voll krass Alder" und "Gehst Du Bahnhof ?" wie auch "Facility Manager" oder "Sales Manager" - auch wenn ich damit leider täglich konfrontiert werde...). Leider kommt man gerade in einem IT-JOB (oder besser : EDV-Beruf ;-) nicht um einige Anglizismen vorbei, wann immer es aber gleichbedeutende und sprachlich akzeptable deutsche Entsprechungen gibt, sollte man diese m.E. auch verwenden (allerdings ohne sich sprachlich zu verbiegen und vermeintlich englischsprachige Wörter wie "Handy" nicht durch "Taschentelefon" ersetzen ;-).
Daher ist Passwort in einem deutschsprachigen Kontext auch richtig - im Gegensatz zu Password. Dass man Passwort nun unbedingt durch das "rein deutsche" Kennwort ersetzt, halte ich nicht unbedingt für notwendig, denn das Passwort hat sich wie auch der PC (niemand sagt "PR" für "Persönlichen Rechner" ;-) oder PIN in den deutschen Sprachgebrauch eingebürgert (sogar in den Duden hat es das Passwort geschafft : http://www.duden.de/suche/index.php?suchwort=Passwort&suchbereich=mixed#inhalte ).
Gruß, NoNet
PS: KĀ-DINGIR-RA kannte ich noch nicht - werde ich mir merken ;-)
Anzeige
Kennwort kann, aber muss nicht, dasselbe...
13.07.2010 18:56:00
Luc:-?
…wie Passwort sein, Leute;
hinter den unterschiedlichen Worten steckt nur eine leicht unterschiedl (Sprach-)Logik. Während es bei Kennwort um das (Wieder-)Erkennen geht, geht es bei Passwort eher um die (Passage-)Erlaubnis (weniger um das Passen, denn das wäre ja nicht englisch!), allerdings haben Pass und Passage rein linguistisch wohl eher nichts miteinander zu tun, denn Passport i.d.S. stammt aus dem Mongolischen und bezeichnete zu Zeiten der Kagane die Reiseerlaubnis durch ein bestimmtes Gebiet, ggf durch das ganze mongolische Großreich! Ein solcher Passierschein wurde unbedingt respektiert…
Gruß Luc :-?
Anzeige
AW: OT
13.07.2010 12:57:14
t.ebbinghaus
Hallo zusammen ...
@NoNet bezüglich dem Code
ja, das geht - warum in die Ferne schweifen, wenn das Gute liegt so nahe ...
@NoNet bezüglich
Zitat: "glaubst Du wirklich, es gibt einfach mal so eine Möglichkeit, das Passwort für den Blattschutz auszulesen ?"
Das ist eine rhetorische Frage, oder? Für mich stellt sich nur die Frage, ob die MS-Programmierung solch eine Funktion versehentlich (z.B. Testfunktion vergessen herauszucompielieren), aus Dummheit (höhö ... Höhlen-MS-Programmier hat tolle Funktion integriert höhöö... nun jagen Mamumt mit Steinbeil.... hö) oder absichtlich (z.B. auf Anordnung einer geheimen US Regierungsbehörde) eingebaut haben. Ich tippe auf Antwort Nr. 2, oder wie kommt man sonst auf die Idee, ganze Spiele und Videosequenzen in ohnehin schon aufgeblaseen und Speicher fressenden Applikationen zu verstecken?
Ausserdem liegt der Text irgendwo in der Datei herum. Die Frage ist daher nicht, ob sondern nur wie es auszulesen ist und ob es dafür eine sinnvolle Funktion ohne die Bekannte .xla Erweiterung gibt.
Zitat: "Welchen Sinn hätte da ein Schutz ?"
Nun, zugegeben, viel bleibt da nicht - aber wir stellen uns einen schlecht bezahlten aber genialen und daher gelangweilten Programmiers a-la Dilbert vor, der unter der Knechtschaft eines Stephen Balmer 16 Stunden am Tag in den Code-Minien von MS schuftet. Ob der über denn Sinn nachdenkt? ;-)
@NoNet bezüglich "denglisch"
Ich verstehe Deinen Standpunkt und bin sogar mit Dir einer Meinung - auch wenn es schwer fällt, bestimmte Anglizismen überhaupt noch als solche zu erkennen ("Passwort" statt "Kennwert). Aber: als ich noch als jugendlicher Umweltaktivist vor 25 Jahren vor den Pelzgeschäften gegen Robbenschlachten demonstriert habe, wurde mir damals von den "Oberaktivisten" eingeschäft, keine Lederschuhe bei solchen Aktionen zu tragen .... (war immer peinlich gefragt zu werden, auf welcher Pflanze Leder wächst ...)
Warum schreibe ich dass, lieber NoNet ... ? Ach ist ja auch egal.... ;-)
Vielen Dank
Thorsten
Anzeige
AW: Tabellenschutz passwort in Makro auslesen
13.07.2010 11:26:20
ChrisL
Hi Thorsten
Private Sub CommandButton1_Click()
Dim pw As String
On Error GoTo ErrorHandler
pw = TextBox1
ActiveSheet.Unprotect Password:=pw
Rows(ActiveCell.Row).Interior.ColorIndex = 6
ActiveSheet.Protect Password:=pw
Exit Sub
ErrorHandler:
If Err.Number = 1004 Then
MsgBox "Passwort falsch"
Else
MsgBox "anderer Fehler"
End If
End Sub
cu
Chris
AW: Tabellenschutz passwort in Makro auslesen
13.07.2010 11:36:03
Torsten
Ich habe mal das hier im Netz gefunden, vielleicht hilfts...
Sub pcwBreaker()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
Dim Kennwort As String
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
Kennwort = Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) &  _
Chr(i5) & Chr(i6) & Chr(n)
ActiveSheet.Unprotect Kennwort
If ActiveSheet.ProtectContents = False Then
MsgBox "Fertig" & vbCr & "Das alternative Kennwort lautet:" & vbCr & Kennwort
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub

Anzeige
Deine Antwort sollte gelöscht werden!
13.07.2010 12:27:53
Martin
Hallo Torsten,
ich denke, dass hier im Forum keine Lösung zum Knacken eines Passwortschutzes hingehört. Wäre ich ein Admin, würde ich deine Anwort sofort löschen.
Anders gesagt: Gibst du mir mal bitte deine Anschrift und deinen WLAN-Schlüssel oder einen Tipp, wie ich deinen WLAN-Schlüssel knacken kann? Es ist ja nicht schlimm, wenn ich Passwort knacke.
Viele Grüße
Martin
..dann müsste man auch Google sperren..
13.07.2010 13:01:02
robert
Hi Martin,
ok, er hätte nicht den code senden sollen, aber bei google-suche
findet man einiges zum thema blattschutz ;-)
daher:ein hinweis-suche mal im google-hätte es auch getan.
gruß
robert
Anzeige
AW: Deine Antwort sollte gelöscht werden!
13.07.2010 13:04:14
t.ebbinghaus
Lieber Martin,
wenn ich eine Lösung zum Knacken eins Kennwortes gesucht hätte, so hätte ich diese Bereits gefunden. Ich denke ich habe hinreichend mein Problem geschildert um zu zeigen, dass es nicht um das Knacken eines Kennwortes geht. Vielmehr möchte ich vermeiden, dass ein Kennwort als Text im Quellcode steht und dennoch ein Vergleich per If-Abfrage möglich ist.
Vielen Dank wenn Du Dich beim nächsten mal um korrektes Verständnis des Problems bemühst.
Danke und einen Knack-Code brauche wirklich nicht - dies würde meinen Code nur unnötig verlangsamen. Das ging wird schliesslich im Büroalltag gebraucht.
Gruss
Thorsten
Anzeige
AW: Deine Antwort sollte gelöscht werden!
13.07.2010 13:41:32
Torsten
Ich habe deinen Ansatz nur überflogen und dachte Du könntest mit dem Code vielleicht was anfangen. Wenn nicht, werde ich mich bestimmt nicht dafür entschuldigen, dass ich Dir helfen wollte! (Wenn Du deinen Kaffee ohne Zucker magst und jemand Dir Zucker für deinen Kaffee anbietet, kackst Du den dann auch an, wie er Dir Zucker anbieten könne?)
Und was das knacken von Passwörtern angeht: Ich habe eine meiner eigenen Tabellen nicht mehr bearbeiten können und kam zum verrecken nicht mehr auf das PW. Daher habe ich damals Google bemüht und hatte nach 5min diese Codezeilen. Wenn jetzt jemand daher kommt und den Exceltabellenschutz mit einem WLAN PW vergleicht, macht er sich höchstens lächerlich...
Ausserdem, warum sollte ein solcher Code hier nicht hin gehören? Ich bin sicher nicht der einzige, der mal ein PW vergessen hat. Solange ich damit nicht Tabellen dritter gegen deren willen oder wissen öffne sehe ich da keinerlei Probleme.
Anzeige
AW: Deine Antwort sollte gelöscht werden!
13.07.2010 16:52:22
t.ebbinghaus
Lieber Namensfetter Torsten,
ich bitte um etschuldigung, ich habe nicht Dich sondern die Anwort von Martin S gemeint, die ich falsch wie folgt falsch verstanden habe:
eine rüde Attacke auf mich, dass man meine Fragen / Antworten löschen sollte, da ich mich ja nur erkundigen wollte, wie man ein Kennwort knackt. Dabei hatte ich übersehen, dass Dein in einer separaten Antwort erschien - zeitliche überschneidung - und hatte gedacht die Antwort von Martin S. wäre
Frech Frage, sollte man löschen - aber hier ist dein Macro....
Sorry für mein Missverständnis, war keine böse Absicht gegen Dich (Danke für den Versuch, war aber wirklich nicht das Ziel), sondern eher Wut darüber, dass jemand das Löschen von Threads verlangt, dass ich dann auch noch auf mich bezogen habe.
Danke & Gruss
Thorsten
AW: Deine Antwort sollte gelöscht werden!
13.07.2010 20:22:56
Torsten
Kein Problem. Vielen Dank für deine Erklärung, ich kann nur diese Unfreundlichkeit in den Foren nicht leiden. Es gibt viel zu viele Leute die sich für was besseres halten oder sich dem Rest der Welt völlig geistig Überlegen fühlen. Aber anstatt anderen die freundlich Ihre Fragen in Foren stellen (was ja wohl der Sinn selbiger ist) einfach zu helfen oder Sie auch konstruktiv auf Fehler hin zu weisen, werden viele einfach für dumm hin gestellt oder beleidigt.
Ich meine schau Dir mal deinen Thread an. Wie viele Antworten sind da alleine auf das Leidige Thema "Denglisch" gemünzt? Und wie viele Leute interessiert das wohl ob jetzt jemand in einem Forum (das sich auch noch mit VBA befasst) Deutsche und Englische Wörter vermengt, oder nicht? Es gibt sicher Foren in denen man sich zu so was auskotzen kann. Dort interssiert das dann vielleicht auch jemanden... Das selbe mit Rechtschreibfehlern, ich mache viele, das weiss ich. Aber soll ich deshalb jetzt nix mehr schreiben, damit sich auch ja keiner in seiner überragenden Intelligenz beleidigt fühlt?
Ich finde das nicht mein Beitrag, sondern die ganze Off Topic scheisse, inklusive diesem Beitrag in eine Trollecke verschoben werden sollte. Beiträge zu löschen ist wohl nicht der Gedanke eines Forums...
Over and out...
Rise of "Middleminded" - TEOCAWKI ?!
15.07.2010 01:46:54
Luc:-?
ohne Worte :-?

21 Forumthreads zu ähnlichen Themen

Passwort sichtbar machen
Emanuel

Hi Leutz,
ich komme heute mal mit einer etwas ungewöhnlichen Frage, aber ungewöhnliche Situationen erfordern bla, bla, bla ...
In einem Excel-Makro, mit welchem auf eine Oracle-Datenbank zugegriffen wird ist bei den Zugriffseinstellungen ein Passwort hinterlegt. Da dieses Makro mittler...
21.01.2009 12:45:00
Thread-ID: 1042133
6 Beiträge
Anzeige
Blattschutz Passwort vergessen
Martin

Hallo,
Ich habe leider mein Passwort vergessen für den Blattschutz.
In FAQ steht, das das nur mit einer Beispielarbeitsmappe erklärt werden kann....
Bedeutet, dies, dass man mir nur helfen kann mit meiner Original-Datei?
Oder weiß sonst einer von euch Rat?
Vielen Dank
Ma...
06.05.2010 16:47:54
Thread-ID: 1155876
7 Beiträge
Blattschutzpasswort vergessen
Hendrik

Gibt es Programme, mit denen man das Blattschutzpasswort auslesen kann?
23.08.2002 11:47:24
Thread-ID: 151903
5 Beiträge
Anzeige
Dateischutzpasswort vergessen
Jörg Pospisil

Hallo alle zusammen,ich habe da ein Problem. Ich habe eine EXCEL Datei mit einem Dateischutz versehen und habe das Passwort vergessen. Gibt es eine Möglichkeit das Passwort zu umgehen?Vielen Dank

12.04.2003 10:23:11
Thread-ID: 244178
2 Beiträge
Blattschutz-Passwort vergessen!
Bob

Hallo,

ich habe in einer Excel-Datei vor einem Jahr einen Schreibschutz (Extras - Schutz - Blattschutz) mit Kennwort eingerichtet, ohne es mir aufzuschreiben und nun sitze ich vor der Datei, will etwas ändern und nix geht mehr.
Gibt es eine Möglichkeit den Blattschutz aufzuheben oder...
24.07.2003 20:26:38
Thread-ID: 285260
2 Beiträge
Blattschutz aufheben ohne(!) Passworteingabe?
Martin S

Eigentlich ist das ein einfaches aber auch schwieriges Problem!

Ich habe ein Makro geschrieben, daß es einem Anwender erlaubt aus einer ComboBox einen Auswahl zu treffen und dadurch eine Berechnung zu starten, die wiederum in einem Ergenis mündet das entsprechend angezeigt wird.
31.07.2003 13:42:45
Thread-ID: 288114
3 Beiträge
Blattschutz aufheben, Kennwort nicht bekannt
Rüdiger

Hallo zusammen,

leider wurde in einer Tabelle der Blattschutz mit einem Kennwort aktiviert. Dieses Kennwort ist jedoch nicht mehr ausfindig zu machen. Gibt es ein Tool, um den Blattschutz rückgängig oder das Kennwort sichtbar zu machen?

Gruß
Rüdiger
25.08.2003 17:59:27
Thread-ID: 299892
2 Beiträge
Blattschutz aufheben ohne Kennwort?
woman
Hi,
ich bin dank google auf dieses Forum aufmerksam geworden und hab auch gleich eine Frage an auch:
Ich hab mir von einer anderen Firma eine Excel-Datei (Gleitzeitrechner) schicken lassen und möchte den ein wenig umgestalten. Leider ist ein Blattschutz drauf und ich habe keine Möglichkeit,...
14.04.2004 14:02:43
Thread-ID: 413235
9 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton TextBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
1
6
4
6
1
1
2
1
8
3
3
10
2
6
8
4
10
2
4
9