TS Systems - DokuWiki

Die Wissensdatenbank der TS Systems GmbH

Benutzer-Werkzeuge

Webseiten-Werkzeuge


microsoft:excel:blattschutz_aufheben

Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

Link zu dieser Vergleichsansicht

Nächste Überarbeitung
Vorhergehende Überarbeitung
microsoft:excel:blattschutz_aufheben [29.12.2015 11:59] – angelegt schoebetmicrosoft:excel:blattschutz_aufheben [31.03.2017 12:22] (aktuell) – Externe Bearbeitung 127.0.0.1
Zeile 1: Zeile 1:
-ddsfasfd+====== Blattschutz unter EXCEL 2010 aufheben ====== 
 +Sie haben in Excel 2010 einen Blattschutz unter Vergabe eines Kennwortes gesetzt und wissen jetzt Ihre Kennwort nicht mehr? 
 +===== So geht's ===== 
 +Öffnen Sie zunächst die EXCEL-Datei, welche den Blattschutz beinhaltet. 
 +Drücken Sie nun <key>Alt+F11</key> um in **Microsoft Visual Basic for Applications** zu gelangen. 
 +Wird auf der linken Seite kein Projekt angezeigt, drücken Sie zunächst <key>Strg+R</key> um den Projektexplorer anzuzeigen. \\ \\ 
 +{{ :microsoft:excel:excel_vba_blattschutz_aufheben.jpg?nolink |}}  
 +\\ Innerhalb des Projektexplorers klicken Sie mit der rechten Maustaste auf **DieseArbeitsmappe** und wählen ''Einfügen'' / ''Modul''
 +Kopieren Sie nun nachstehenden Code in das Fenster **Modul[N] (Code)** (wobei [N] für eine fortlaufende Zahl steht). 
 +<code vbnet Blattschutz_entfernen.vb> 
 +Sub Blattschutz_entfernen() 
 +  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 n = 65 To 66 
 +    For o = 65 To 66 
 +    For p = 65 To 66 
 +    For q = 65 To 66 
 +    For r = 65 To 66 
 +    For s = 65 To 66 
 +    For t = 32 To 126 
 +        ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(n) & Chr(o) & Chr(p) & Chr(q) & Chr(r) & Chr(s) & Chr(t) 
 +    Next t 
 +    Next s 
 +    Next r 
 +    Next q 
 +    Next p 
 +    Next o 
 +    Next n 
 +    Next m 
 +    Next l 
 +    Next k 
 +    Next j 
 +    Next i 
 +    MsgBox "Blattschutz erfolgreich aufgehoben!" 
 +End Sub 
 +</code> 
 + 
 +Klicken Sie nun im Menü auf **A__u__sführen** und **Sub/UserForm ausführen F5** oder drücken Sie einfach <key>F5</key>
 + 
 +Nach ein paar Sekunden sollten Sie die Nachricht **Blattschutz erfolgreich aufgehoben** angezeigt bekommen. 
 + 
 +Zur Bereinigung des Excels sollten Sie den Code zum Abschluss wieder entfernen. 
 +Klicken Sie hierzu in der Projektansicht unter **Module** mit der rechten Maustaste auf das Modul, welches Sie eben angelegt haben. 
 +Dann wählen Sie ''En__t__fernen von Modul[N]...'', wobei [N] für die Nummer des eben angelegten Moduls steht. 
 +Bestätigen Sie die Abfrage ob Sie das Modul vorher exportieren möchten mit ''[Nein]''
 + 
 +Speichern Sie nun Ihre EXCEL-Datei - fertig! 
 +==== Schlagwörter ==== 
 +Excel 2010 blattschutz Kennwort Passwort vergessen aufheben
microsoft/excel/blattschutz_aufheben.1451386764.txt.gz · Zuletzt geändert: (Externe Bearbeitung)

Donate Powered by PHP Valid HTML5 Valid CSS Driven by DokuWiki