Excel Blattschutz entfernen, Passwort vergessen?

Hallo liebes Forum,

ich habe meinen Blattschutz vergessen und kann diesen nicht mehr aufheben.

Kennt wer eine Lösung diesen wieder aufzuheben. Die Anleitung im Netz mit Zip funktioniert nicht, da ich keine xl Datei habe. Ist auch eine Excel mit Makros und relativ schwer gesichert. Ich habe ein Passwort zum starten, eines das man es bearbeiten kann, die VBA ist gesichert und für die Speicherung ein weiteres. Extra zusätzlich sind die Worksheets eben gesichert, da ist mir anscheinend ein Passwort abhanden gekommen oder jemand hat es geändert. Wie kann ich also irgendwie dieses Passwort wiederherstellen?

2 Antworten

IchMalWiederXY

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

16.05.2022, 20:56

Egal ob xls oder xlsm Datei, den Blattschutz knacken geht identisch.
Dafür muss aber erst die VBA Ecke geknackt werden.
Dies geht für xls und xlsm verschieden. Achtung beim Recherchieren. Man landet leicht bei den Gaunern im Netz.
===
Generell kann man jede xls Datei wieder öffnen. (Nur bei "einer" Excel Vorlage, die ich bislang einsehen wollte, ist dieser 'Weg' nicht gelingen)

ABER wir wissen nicht, ob du auch berechtigt bist dies zu tun.
Wenn wir helfen das Ding zu öffnen kann dies für den Helfer rechtlich knifflig werden.

DerNeue2020

Fragesteller

17.05.2022, 07:01

Wie soll ich es beweisen, es ist mein eigens geschriebener Passwortsafe in Excel. Ich habe eine Maske auf der man seinen Namen wählen kann, anschließend werden die Passwörter aus den hinteren Worksheets (Datenbank) angezeigt. Die Date selbst kann ich euch eh nicht zeigen, da vertrauliche Passwörter drauf sind. Ich bräuchte nur eine Anleitung / Unterstützung zum wiederfinden des Blattschutzes des 3 Datenbanksheets.

GutenTag2003

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

16.05.2022, 19:47

Ich fürchte Du wirst die Datei neu kreieren müssen...

... oder Dich doch nach an die Kennworte erinnern oder den Übeltäter finden.

Die Daten wirst Du nutzen können und die Makros usw. neu gestalten.

Von einem Ahnungslosen:

Hast Du mal versucht ob eine Vorgängerversion mit den alten Kennwörtern zu öffnen ist?

DerNeue2020

Fragesteller

17.05.2022, 06:56

Die Vorgängerversion die ich zum Glück abgespeichert habe funktioniert noch und da ist auch noch kein Passwort drauf, ich würde mir aber gerne die Arbeit ersparen .

Ich habe per VBA für einen Button über .protect password:="xxx" einen Blattschutzpasswort-Schutz eingebaut. Sobald man jedoch das falsche Passwort eingibt meldet Excel "Fehler" und bietet die Debug funktion an. Klickt man darauf kommt man in meinen Code und kann nach belieben zwei Zeilen darüber das Passwort ändern.

Hat jmd einen Tip wie man das verhindern kann?

Gruß, Martin

...zur Frage

Excel VBA Makros und Sharepoint online?

Hallo zusammen,

ich bin gerade dabei, eine Datenbank mit Makros in VBA einzurichten. Ich stehe vor dem Problem, dass, wenn ich meine .xlsm zu unserem Team Sharepoint online hochlade, die eingebaute Makro-Schaltfläche zum Öffnen eines Benutzerformulars funktioniert nur für mich (der sie erstellt hat). Wenn einige meiner Teammitglieder versuchen, auf die Schaltfläche zu drücken, erhalten sie die folgende Fehlermeldung: Run time error 76: Pfad nicht gefunden. Ich weiß, dass dies etwas mit der Speicherung des Dokuments auf Sharepoint online zu tun hat, aber ich konnte keinen Thread finden, der die Antwort auf dieses Problem hat. Gibt es irgendetwas, das ich zum Code hinzufügen kann, damit jeder meine Makros öffnen kann, die in der Datenbank erstellt wurden?

Ich bin sehr neu in Excel VBA und Kodierung, also bitte urteilt nicht... :P

Vielen Dank an alle, die versuchen, mir zu helfen.

...zur Frage

Excel Blattschutz ohne Passwort entfernen?

Ich habe eine Tabelle aus dem Internet heruntergeladen, allerdings hat diese einen Blattschutz.

Habe die Datei auf mein NAS hochgeladen, damit ihr Sie herunterladen könnt
https://jhq2mlv5k7y28dm8.myfritz.net:45177/nas/filelink.lua?id=bad2f563ff380664

Jetzt habe ich gesehen (Video ist unten verlinkt), dass das Passwort gelöscht werden kann, wenn man die -.xlsx Datei in eine -.zip Datei umwandelt, entpackt und dann dort im Ordner xl/worksheets in der Datei "sheet...(irgendwas)" die Passage im Code vom Anfang "<sheetProtection[...]" bis zum darauffolgenden ">" löscht.

Leider funktioniert das bei mir nicht.
Bei mir wird folgende Fehlermeldung angezeigt;

Was mache ich falsch? Kennt jemand eine andere Methode, wie man das Passwort für den Blattschutz entfernt?

Könntet ihr eventuell selbst testen, ob die Methode bei euch mit meiner Datei funktioniert?

https://www.youtube.com/watch?v=vKM3PCQ2jns

...zur Frage

Excel-Makros für andere Benutzer nicht aktiv?

Hallo zusammen,

Ich habe ein Excel-Dokument mit mehreren Markos und einem visual basic for applications-Code für mein Unternehmen erstellt. Dadurch, dass auf dieses Dokument alle Abteilungen zugreifen können müssen, wird es in einem Dokumentenablagesystem abgelegt. Ich habe es schon als "Microsoft Excel-Arbeitsblatt mit Makros" gespeichert. Trotzdem sind die Makros und der VBA-Code für alle anderen nach Öffnen nicht aktiv. Kennt hier jemand einen Trick?

Danke!

...zur Frage

Passwort vergessen bei Exceldatei?

Guten Tag,

ich habe leider mein Passwort für die Excel Datei vergessen und ein Tutorial gefunden, wo man die Exceldatei in eine Zip umwandelt und dann eine Änderung dadrin vornimmt. Wenn ich die Datei in eine Zip umwandel und dann öffnen möchte, erhalte ich als Fehler" C:USER.....zip Das Archiv hat entweder ein unbekanntes Format oder ist beschädigt"
eventuell hat ja jemand eine Lösung. Ich nutze Windows 10 und Winrar.

Mit freundlichen Grüßen und vielen Dank

...zur Frage

Excel VBA Passwort Vegessen?

Hallo zusammen,

ich habe mehrere Makros in einer Datei gesammelt und diese anschließend verschlüsselt. VBA Projekt Passwort.

Einer Jahr später habe ich es wieder benötigt. Problem jetzt ist ich weiß das Passwort nicht mehr und es war recht Komplex.

Wie kann ich es anzeigen lassen oder sogar es abschalten ?

Bitte ohne die Datei zu beschädigen. Werde so oder so eine Kopie machen, aber das alles ganz bleibt.

Nach langem Googeln und ausprobieren mit DPB funktioniert es auch nicht. Da das neue Exel die Datei dann sozusagen löscht beim Wiederherstellen und alle Makros sind futsch.

Danke schonmal :)

...zur Frage

EXCEL VBA Wert als Datum anzeigen?

Hallo zsm

ich habe eine bedingte Formatierung welche ein Datum erkennt.

Das Datum wird aber nicht als Datum anerkannt, welches durch VBA hinzugefügt wird.

Ich habe es in einer anderen Variante drinnen, da funktioniert es. Wiederum lässt sich eine andere Variante bei diesem Vermerk nicht vornehmen.

Hat jmd eine Idee?

Worksheets("Datensatz").Range(idAdr).Offset(, -16) = Worksheets("SuchDaten").Range("A2").Value 'Das muss als Datum geschrieben werden

...zur Frage

Excel VBA Zip Dateien entpacken?

Ich möchte mehrere Zip-Ordner (alle in einem Ordner) entpacken lassen. Diese haben alle ähnliche Namen (Stundendaten...). Sie sollen nach dem entpacken die Zip Ordner ersetzen, sodass ich in dem Ordner dann nur noch die entpackten Ordner und keine Zip mehr habe.

Danke schonmal im voraus :)

...zur Frage

Excel Datei mit VBA-Makros auf Tablet?

Guten Tag,

ich habe im privaten Bereich für die Arbeit auf Excel-Grundlage ein Inventurprogramm mit VBA-Makros auf einen Windows PC programmiert.

In der Praxis, es wäre optimal, möchte ich es ohne Einschränkungen, auf einen Tablet zum funktionieren bringen. Geht das?

...zur Frage

App programmieren VBA Excel?

Wie kann man eine Excel Datei mit Makros als App umwandeln. Bzw kann man eine App bauen und Excel samt Makros iwie einbetten?

...zur Frage

Excel VBA Range-Objekt?

Ich hätte zwei Fragen zu VBA in Excel über das Range-Objekt. Es wäre sehr nett, wenn mir jemand weiterhelfen könnte.

1_Frage

Worksheets(3).Range("A2:C3").Select

Auf dem dritten Arbeitsblatt wird der Bereich A2 bis C3 markiert. Klappt solange das dritte Arbeitsblatt aktiv ist, d. h. ich habe es anklickt.

Befinde ich mich z. B. auf worksheets(2) kann der Befehl Worksheets(3).Range("A2:C3").Select nicht mehr ausgeführt werden?

Laufzeitfehler 1004 Anwendungs- oder Objektorientierter Fehler

2_Frage

Dim Bereich as Range

Set Bereich = worksheets(3).Range("A2:C3")

Bereich.select

Die Zuweisung über Set kann ich ausführen, egal welches Arbeitsblatt ich angeklickt habe. Jedoch Bereich.select funktioniert nur, wenn ich mich wieder auf Blatt 3 befinde (bzw. dieses angeklickt habe)?

Sonst Laufzeitfehler 1004...

Kann mir hier jemand bitte weiterhelfen. Danke!

...zur Frage

Excel VBA Blattschutz Passwort umgangen?

Hallo,

Ich habe folgendes Problem.

Ich habe einen Button mit dem man den Blattschutz de/aktivieren kann.

Jedoch kann man das PW umgehen, indem man einfach das Fenster schliest, indem man das PW eingibt.

Hat da jemand eine ahnung, wie ich das ausbessern kann?

Macro:

Private Sub CommandButton1_Click()

If MsgBox("Blattschutz aufheben/aktivieren?", vbYesNo) = vbYes Then

Else: Exit Sub

[...Aktion ausführen...]

End If

On Error GoTo PW

If ActiveSheet.ProtectContents = True Then

ActiveSheet.Unprotect

' einblenden:

ActiveWindow.DisplayHeadings = True

Else

ActiveSheet.Protect Password:="+1516", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingRows:=True

' ausblenden:

ActiveWindow.DisplayHeadings = False

End If

Exit Sub

PW:

MsgBox "Falsches Passwort"

End Sub

...zur Frage

Wie ermittelt man in Excel (VBA) den Zelleninhalt bei verbundenen Zellen?

Ich durchlaufe in meinem Excel VBA-Script die Zellen einer Spalte, um den Zelleninhalt auszuwerten. Nun kann es passieren daß Zellen "verbunden" sind. In diesem Fall liefert mir das Script nur jeweils für die linke oberste Zelle der verbundenen Zellen den Wert zurück. In den anderen Zellen kommt Blank zurück. Ich würde in allen Zellen den gleichen Wert zurückerwarten?
Wie könnte man das bewerkstelligen?
Hardcopy/Beispiel: In den grünen Spalten steht was ich erwarten würde. In den gelben die tatsächliche VBA-Ausgabe.

Private Sub Worksheet_Activate()
  Dim iRow As Integer
  iRow = 4
  Do
    Worksheets("Test").Cells(iRow, 5) = Worksheets("Test").Cells(iRow, 1)
    Worksheets("Test").Cells(iRow, 7) = Worksheets("Test").Cells(iRow, 2)
    iRow = iRow + 1
    If iRow > Worksheets("Test").UsedRange.Rows.Count Then Exit Do
  Loop
End Sub

...zur Frage

VBA Grafik in die Kopfzeile per Makros?

Guten Tag,

gerne möchte ich per Makros eine Grafik in die Kopfzeile packen. Dabei habe ich folgendes zusammengebastelt:

With Sheets("Kundenbeleg").PageSetup
.CenterFooterPicture.Filename = "C:\Users\Robin\Desktop\Test.png"
.CenterFooter = "&G"
End With

Der Sheets ist korrekt und der Speicherpfad auch. Der Quelltext ist ein Auszug aus einem Makro, in dem die Seite Kundenbeleg als PDF gespeichert wird.

Die Speicherung funktioniert, nur leider ohne die "Test"-Grafik.

Habe ich noch etwas vergessen?

Gruß

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen