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 Fragesteller 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

peterandres4760

Fragesteller

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

Fragesteller

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.

GutenTag2003

09.08.2022, 19:21

Danke für den ⭐

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.

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?

...zur Frage

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.

...zur Frage

Fehlermeldung für /worksheets/sheet4.xml-Part?

Guten Morgen

wie und/oder wo finde ich sheet4? Habe bei jedem Mal öffnen die Fehlermeldung.

Excel korrigiert den Fehler selber (und auch erfolgreich) aber beim nächsten Start der Datei kommt wieder die Fehlermeldung. Was kann ich tun

Die Logdatei der Reparatur zeigt folgendes:

<?xml version="1.0" encoding="UTF-8" standalone="true"?>
-<recoveryLog xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main">
<logFileName>error135520_01.xml</logFileName>
<summary>Fehler in Datei 'https://d.docs.live.net/............../Documents/Medikamentation.xlsm'</summary>
-<removedRecords>
<removedRecord>Entfernte Datensätze: Sortierung von /xl/worksheets/sheet4.xml-Part</removedRecord>
</removedRecords></recoveryLog>

Die Tabellenblätter sind Umbenannt worden, teilweise auch gelöscht und auch die Reihenfolge wurden geändert. Kann dies zum Problem werden? 

Riesengrossen Dank schon für Euere Hilfe.

...zur Frage

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

...zur Frage

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?

...zur Frage

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 :)

...zur Frage

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.

...zur Frage

Bluescreen über CMD beheben?

Windows 10

Ich wollte heute eine Datei installieren(bWAPP) und habe bevor ich die entpackt hatte extra mit einem Antivirus(Kaspersky) drüber gegangen und es wurde nichts gefunden.

Ich habe die Datei danach entpackt und wollte meinen PC Neustarten da gerade ein Programm fertig geupdated war.(ProtonVPN)

Nachdem der PC neugestartet war kam nurnoch ein bluescreen egal was ich gemacht habe.

Es könnte entweder die Datei bWAPP2.2 sein oder das Update von ProtonVPN.

Ich wollte die bWAPP Datei über CMD löschen, die Datei liegt auf dem Desktop nur das problem ist wenn ich In CMD "del C:/Users/meinNutzername/desktop/bWAPPv2.2" eingebe findet er die Datei nicht.

Da es aber auch das Update vom VPN sein kann wäre es hilfreich wenn ihr mir mitteilt wie man Programme vom PC mit cmd löscht.

Ich habe die bWAPP Datei von dieser webseite:

https://sourceforge.net/projects/bwapp/files/bWAPP/

Und meinen VPN von:

https://protonvpn.com

Ich bitte umgehend um Hilfe da ich sonst meinen PC nicht nutzen kann.

...zur Frage

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?

...zur Frage

Das Programm enthält keine als Einstiegspunkt geeignete statische Main-Methode C#?

Hallo, mein Code enthält den Fehler der in der Überschrift zu erkennen ist das ganze findet in der Datei "CSC" statt (Screen: https://prnt.sc/108ji4x ) Mein Code ist in den folgenden Screens: https://prnt.sc/108jih5 https://prnt.sc/108jj21

...zur Frage

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

...zur Frage

Wie brenne ich die ISO Datei von Ophcrack auf CD?

Hey Leute,

da ich mein altes Windows Passwort wiederherstellen will, möchte ich das Programm Ophcrack dafür nutzen. In der Beschreibung heißt es, man solle die .iso datei auf cd brennen, also eine bootfähige CD mit dem Programm Ophcrack erstellen. Soweit so gut. Doch wenn ich Ophcrack herunterlade, und meinem Brennprogramm sage "ISO Image brennen" möchter er dazu eine einzelne iso datei haben. Die heruntergeladene Ophcrack "iso datei" besteht aber aus einer Winrar Datei, die wenn man sie entpackt, viele Ordner und Dateien enthält. Woher soll ich denn nun wissen, wo sich da die gesuchteISO Datei versteckt? Oder hab ich was falsch verstanden...?

lg chris

...zur Frage

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')

...zur Frage

Windows iso entpacken und installieren?

Hallo Ich habe die Testversion von Windows als iso entpackt und das Setup gestartet. Dann habe ich die Installation auf Datenträger C ausgewählt. Wird mit dieser Methode die Festplatte komplett formatiert? Ich habe einen Trojaner eingefangen und muss deshalb alles formatieren. Da ich sonst immer nur höre dass die meisten die iso Datei auf einen Stick ziehen.

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen