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;

Bild zum Beitrag

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

2 Antworten

Vom Beitragsersteller als hilfreich ausgezeichnet

GutenTag2003

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel, Office- & Büroanwendungen

08.08.2022, 16:59

Ich weiß zwar nicht, warum Du den Blattschutz "unbedingt" entfernen musst.

Die Formeln sind deutlich sichtbar und können kopiert werden

Die Tabelle mit ihren Funktionen ist leicht selbst zu erstellen.

Bild zum Beitrag

GutenTag2003

09.08.2022, 19:21

Danke für den ⭐

peterandres4760

Beitragsersteller

08.08.2022, 17:01

Danke für Deine Antwort.

Es geht mir darum, dass der Teil gaaaaaanz unten gelöscht werden soll. Der Rest soll bestehen bleiben.

Weißt Du denn, warum das nicht bei mir funktioniert?

GutenTag2003

08.08.2022, 17:11

@peterandres4760

Wenn Du die Tabelle selbst (... mit den Formeln) erstellst, kannst Du den Text gaaaaaaaaaaanz unten ja weg lassen. (Den brauchst Du nicht mit zu kopieren.

In 2 Schritten kopiert (Namensfeld usw. und die Zeit-Tabelle) und Du hast alles.

Siehe Ergänzung meiner Antwort

peterandres4760

Beitragsersteller

08.08.2022, 17:23

@GutenTag2003

Also es ging mir darum, dass ich den Tabellenschutz ohne Passwort wegbekomme.

Ich mache mir eben manchmal das Leben unnötig schwer, wenn's auch ganz einfach geht... Es ging mir eben darum, zu wissen, wie das geht, damit ich das eventuell in der Zukunft auch anwenden kann.

Aber natürlich gebe ich dir Recht; Improvisation ist immer eine Möglichkeit.

Ich danke dir vielmals für deine Ratschläge! Kriegst von mir ein Hilfreich, und falls niemand antwortet, ein "Am Hilfreichsten". ;-)

GutenTag2003

08.08.2022, 17:25

@peterandres4760

Also es ging mir darum, dass ich den Tabellenschutz ohne Passwort wegbekomme.

Das habe ich schon verstanden.

Ich bin mehr für "Problemlösungen", die in diesem Fall ohne Entfernung des Blattschutzes recht einfach möglich ist.

IchMalWiederXY

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

10.08.2022, 08:55

um den Blattschutz zu entfernen muss man nicht an den BIN Dateien über den ZIP Umweg rumtricksen. (Dies ist für VBA und Datei Schutz zu verwenden)
Dies geht mit einem Makro dass man laufen lässt. Google danach.
==
Oder du machst die Datei in "Libre Office" auf.

Ähnliche Beiträge

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?

...zum Beitrag

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

...zum Beitrag

Kann Excel Dateien nicht öffnen, warum?

Auf unserer Uniseite werden so Excel Sheets zum Üben hochgeladen, die man bearbeiten sollte. Allerdings kann ich sie zwar runterlande, aber wenn ich sie öffne sind sie GRAU. Verstehe das nicht, kann jemand weiterhelfen?

Dateityp: .xlsx

Kann mir jemand weiterhelfen bitte?

...zum Beitrag

Wie kann ich das Passwort aus einer PDF Datei entfernen?

ich hab eine passwortgeschützte PDF Datei zugeschickt bekommen. Das Passwort ist mir bekannt und ich kann die Datei öffnen. Gibt es eine Methode, diese so wieder zu speichern, das sie nicht mehr geschützt ist? Ich befürchte nämlich, in ein paar Wochen hab ich das Passwort vergessen.

...zum Beitrag

Wie kann man in Excel ein Wort automatisch als "*" schreiben und nur mit Doppelklick sichtbar machen?

Hallo,

ich möchte auf einem Rechenblatt ein Passwort festhalten, will es aber nicht einfach hinschreiben (könnten ja andere sehen) sondern als Sternchen (*) schreiben. Mit einem Doppelklick auf die Zeile soll dann das Passwort in Schrift erscheinen.

Wie kann man das realisieren?

...zum Beitrag

ZIP Datei passwort vergessen, keine Möglichkeit durch Programme zu entschlüssenln, da scheinbar nur die jpg-datei im archiv nach passwort fragt?

Ich habe ein ZIPArchiv mit passwort auf menem computer, kann das Archiv ganz normal öffnen, dann aber will ich dateien in dem Archiv öffnen, doch dann wird nach Passwort gefragt, jedes Programm welches versuchen soll das Archiv zu "hacken" (methode brute-force) sagt mir es gäbe kein passwort. wie löse ich mein problem?

...zum Beitrag

VBA: Speichern unter mit Dateinamen aus bestimmter Zelle?

Hallo zusammen,

ich habe mal wieder ein kleines Excelproblem, das eigentlich schon tausendfach in Foren besprochen wurde... ◔_◔

Und zwar will ich eine Datei unter neuem Dateinamen speichern, und der Name steht als Referenz der Einfachheit halber in der Zelle A1 des Tabellenblattes Sheet1.

Aus Gründen höherer Flexibilität des Codes habe ich einen geänderten Zielpfad eingebaut (Documents statt Downloads) und die Datei wird auch unter einem anderen Format (xls statt xlsx) abgespeichert.

In A1 würde z. B. für den Dateititel "Stichprobe 1" stehen, somit sollte die Datei am Ende als "Stichprobe 1.xls" abgespeichert sein.

Der Code ist analog https://docs.microsoft.com/de-de/office/troubleshoot/excel/save-file-to-network-drive, jedoch bekomme ich ab dem Schritt ActiveWorkbook.SaveAs den "Laufzeitfehler 9 - Index außerhalb des gültigen Bereichs" angezeigt:

Sub SaveAsFromCell()
  Dim wb As Workbook: Set wb = Workbooks.Open("C:\Users\Vorname Nachname\Downloads\Vorlage.xlsx")
  Dim strFilename As String: strFilename = ActiveSheet.Range("A1").Text
   
  Worksheets("Sheet1").Activate
  ActiveWorkbook.SaveAs Filename:="C:\Users\Vorname Nachname\Documents\" & strFilename, FileFormat:=".xls"
  wb.Close
End Sub

Wo liegt der Fehler?

Danke & schönes Restwochenende :)

...zum Beitrag

Excel öffnet Datei nur als leere graue Seite?

Wenn ich über den Dateibrowser eine Excel Datei öffne, wird diese in Excel nur als graue leere Seite angezeigt (siehe Screenshot). Im Menüfenster Ansicht kann ich die Funktion Einblenden ebenfalls nicht anwählen, da alles nicht anwählbar ist. Schreibgeschützt ist ebenfalls deaktiviert. Aber wenn ich zuerst Excel öffne und darüber dann die Datei öffne, funktioniert dies. Bei den Dateien handelt es sich um Microsoft Excel 97-2003 Worksheet (.xls) und Microsoft Excel Worksheet (.xlsx) Dateien.

Ich habe Microsoft Office Home and Student 2013 und Windows 10 Home.

Liegt das evtl. daran, dass die Excel-Dateien von einer älteren Version stammen? Wie kann ich dieses Problem beheben, dass sich die Dateien wieder über den Datei-Browser öffnen lassen?

Eine Office Reparatur war ebenfalls ohne Erfolg.

...zum Beitrag

Wie kann ich verschlüsselte Zip Dateien auf Android entschlüsseln?

Ich habe mir eine .zip datei gedownloadet in der ist eine Obb und eine Apk.Nun ist das Problem das ich das Passwort nicht kenne und auf der Webseite steht es auch nicht.

Ich benutze Zarchiver.Kennt ihr vllt eine App für Android (wenn es keine gibt auch für Pc) die Zip dateien entschlüsseln kann? Ich habe es schon mit Archidroid versucht aber es hat nur die Obb entpackt und es stand "diese Datei ist korrupt"

Danke im Vorraus

Luis

...zum Beitrag

[VBA] - Bestimmte Zeile aus HTML Dokument auslesen?

Hallo Community,

ich habe folgendes Problem.

Ich habe eine Excel Tabelle mit vielen ID's (Spalte B) und einen Ordner mit HTML-Dateien, die den IDs zugeordnet sind.

Im ersten Schritt bin ich alle ID's durchgegangen und habe falls vorhanden, die passende HTML Datei in einen Ordner abgespeichert.

Nun kommt der zweite Schritt bei dem ich eure Hilfe brauche. Ich möchte alle gefunden HTML Dateien durchgehen und nach einem bestimmten Bereich suchen. Im HTML Code sieht das ungefähr so aus:

<td class="category">
 <a name="attachments" id="attachments">Angehängte Dateien</a> </td>
<td colspan="5">
<a> unwichtig </a>
<a> WICHTIG </a> <- Hier steht der gesuchte Dateiname
<a> Unwichtig </a>
</td>

Das Ding ist, dass in diesem <td> Tag auch mehrere Dateien aufgeführt sind, der Aufbau ist aber immer gleich. Pro Datei gibt es 3 mal ein <a>-Tag und im mittleren stehen die wichtigen Informationen. Es gibt auch den Fall, dass dort keine Dateien und somit auch keine <a>-Tags vorhanden sind.

Mein bisheriges Makro sieht wie folgt aus:


 Const path = "M:*"
    Dim sheet As Worksheet
    Set sheet = ActiveWorkbook.Worksheets(2)
    maxRow = sheet.Cells(sheet.Rows.Count, "B").End(xlUp).Row
    Dim id As String
    Dim sourcePath As String
    Dim destPath As String
    Dim Filename As String
    For Row = 2 To maxRow
      sourcePath = path & "view.php-id=" & sheet.Cells(Row, 2) & ".html"
      Filename = "view.php-id=" & sheet.Cells(Row, 2) & ".html"
      MkDir (path & "gefunden\" & sheet.Cells(Row, 2))
      destPath = path & "gefunden\" & sheet.Cells(Row, 2) & "\" & sheet.Cells(Row, 2) & ".html"
      If Dir(sourcePath) = Filename Then
      FileCopy sourcePath, destPath
      Else
      MsgBox (sheet.Cells(Row, 2) & " nicht gefunden")
      End If
    Next Row

Um das alles nochmal zusammenzufassen, ich weiß nicht wie ich an die Namen der aufgeführten Dateien im HTML Dokument komme.

Wenn ich die Namen der Dateien erstmal habe, könnte ich auch weitermachen und die HTML-Doks mit passendem Anhang in einen Ordner kopieren.

Ich hoffe ihr verstehe was ich meine, für Fragen stehe ich gerne zu verfügung.

Grüße

Chris

...zum Beitrag

Bash Script xlsx auslesen?

Hey,

ich habe folgendes Problem:

Ich möchte eine xlsx Datei auslesen, die datei ist so aufgebaut:

Unternehmen           Methode     Domain

Musterunternhemen     TLS         @beispiel.com

Den grep befehl zum suchen des Bereichs habe ich schon zum Teil.

grep -Po "[a-zA-Z0-9_-]*\.[a-z]{2,4}"

Doch fehlt mir noch die möglichkeit, dass nur die TLS ausgegeben werden.

Die Aufgabe: erstelle ein Bash Script welches nur die Domains ausließt, die die Methode TLS haben und diese dann ausgibt.

Das Notebook an dem ich die Aufgabe bekommen habe, hat kein zugriff aufs Internet. Es virtualiseirt eine Linux Mint worin ich arbeite.

Ich hoffe mir kann jemand helfen, komme gearde echt kein bisschen weiter.

...zum Beitrag

RAR, WinRAR und Zip Passwort knacken oder anzeigen Online!?

Ich habe einige mit Passwort verschlüsselte

WinRAR-Dateien, dessen Passwörter mir leider

verloren gegangen sind. Und das ist ziemlich ärgerlich,

weil es für mich äußerst wichtige Dateien sind, die in

nächster Zeit entpackt werden müssen. Gibt es eine

Webseite, wo ich diese Dateien Online knacken oder

mir Online die Passwörter anzeigen lassen Kann?

Ich möchte mir auch nichts herunterladen, weil ich

dies auch nur einmal brauche!

...zum Beitrag

Das Tabellenblatt öffnet sich nicht?

Hallo, ich habe Button womit ich eine Datei und darin direkt eine Eingabemaske öffnen will. Mein bisheriger Code aktiviert / öffnet die Datei, was mir fehlt, ist die direkte Anzeige der Eingabemaske. Ich stelle den Code mal hier ein, um vielleicht eine Lösung zu erhalten. Ich komme einfach nicht weiter.


Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Dim passwort As String
    Dim pfad_zur_datei As String
    Dim wb As Workbook
    Dim bestaetigung As VbMsgBoxResult

    ' Bestätigungsnachricht anzeigen und Passwort abfragen
    bestaetigung = MsgBox("Möchten Sie fortfahren?", vbQuestion + vbYesNo, "Bestätigung")

    ' Wenn der Benutzer auf "Ja" klickt
    If bestaetigung = vbYes Then
        passwort = InputBox("Geben Sie das Passwort ein:", "Passwortabfrage")

        ' Überprüfe das eingegebene Passwort
        If passwort = "123" Then ' Ersetze "dein_passwort" durch das gewünschte Passwort
            ' Konstruiere den vollständigen Pfad zur Datei
            pfad_zur_datei = "G:\NEU Reduziert für DEMO.xlsm" ' Passe den Pfad an

            ' Überprüfe, ob das Arbeitsblatt "Auswahlklick" existiert
            On Error Resume Next
            Set ws = Workbooks.Open(pfad_zur_datei).Worksheets("Auswahlklick")
            On Error GoTo 0

            ' Wenn das Arbeitsblatt existiert, aktiviere es
            If Not ws Is Nothing Then
                ws.Activate
            Else
                MsgBox "Das Arbeitsblatt 'Auswahlklick' wurde nicht gefunden.", vbExclamation
                Exit Sub
            End If
        Else
            MsgBox "Falsches Passwort. Der Zugriff wurde verweigert.", vbExclamation
            Exit Sub
        End If
    Else
        MsgBox "Vorgang abgebrochen.", vbInformation
        Exit Sub
    End If

    ' Hier den restlichen Code ausführen, der auf dem geöffneten Arbeitsblatt "ws" basiert

End Sub

...zum Beitrag

bestimmte Excel Inputs mit Python auswählen und in eine andere Excel-Datei einfügen?

Hallo zusammen,

ich würde gerne etwas Neues mit Python ausprobieren. Es geht um eine Excel-Datei, aus der ich bestimmte Einträge in eine andere Excel-Datei einfügen möchte. Wie ihr sehen könnt, möchte ich die Einträge, die einen Farbnamen enthalten, in eine andere Datei in Klammern einfügen und den Farbnamen übersetzt davor schreiben. Haben Sie eine Idee, wie ich das machen kann? Ich wäre Ihnen für jede Antwort dankbar.

import openpyxl
from openpyxl import Workbook, load_workbook
book = openpyxl.load_workbook('datei.xlsx')

result = 1
valuesK = []
i = 1

while result <= 101;
	pages = 'Sheet' + str(i)
	sheet = book.get_sheet_by_name(Sheet1)
	vK = sheet['G1': 'G2259']

	for row in vK:
		for cell in row:
			if blue in cell:
			valuesK.append('Blau (' + cell.value + ')')
			elif red in cell:
				valuesK.append('Rot (' + cell.value + ')')
			elif grey in cell:
				valuesK.append('Grau (' + cell.value + ')')
			elif black in cell:
				valuesK.append('Schwarz (' + cell.value + ')')
			elif white in cell:
				valuesK.append('Weiß (' + cell.value + ')')
			elif offwhite in cell:
				valuesK.append('Elfenbein (' + cell.value + ')')
			elif brown in cell:
				valuesK.append('Braun (' + cell.value + ')')
			elif beige in cell:
				valuesK.append('Beige (' + cell.value + ')')
			elif pink in cell:
				valuesK.append('Pink (' + cell.value + ')')
			elif yellow in cell:
				valuesK.append('Gelb (' + cell.value + ')')
			elif orange in cell:
				valuesK.append('Orange (' + cell.value + ')')
			elif green in cell:
				valuesK.append('Grün (' + cell.value + ')')
			elif turquoise in cell:
				valuesK.append('Türkis (' + cell.value + ')')
			elif purple in cell:
				valuesK.append('Violett (' + cell.value + ')')
			elif gold in cell:
				valuesK.append('Gold (' + cell.value + ')')
			elif silver in cell:
				valuesK.append('Orange (' + cell.value + ')')
			else:
				valuesK.append('Multicolour (' + cell.value + ')')



	i += 1
	result +=1

	wb = Workbook()
	ws = wb.active

	filename='dosya'

	i = 0
	for i in valuesK:
		j += 1
		ws['A' + str(j)] = i
		int(j)

wb.save('datei2.xlsx')

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen