Clever-Excel-Forum

Hallo Zusammen,

also ich möchte verschiedene Sheets mit Passwort schützen und den Schutz auch aufheben. Es funktioniert alles. Nur für 2 Sheets (Frontend und Meilensteintrendanalyse) wird irgendwie kein Passwort festgelegt. Bei den anderen Sheets funktioniert es.

Code:
Sub Blattschutz_ein()

Dim mySheet As Variant

For Each mySheet In Array("Frontend", "MAE", "EWAK", "GK", "Gesamt", "Meilensteintrendanalyse", "V-IST-Kostenprotokoll", "Import_CN41N", "Import_2")

    With Sheets(mySheet)

        .Protect DrawingObjects:=False, Contents:=True, Scenarios:= _

        False, AllowUsingPivotTables:=True, Password:="TEF14"

    End With

Next mySheet

End Sub

Sub Blattschutz_aus()

Dim mySheet As Variant

For Each mySheet In Array("Frontend", "MAE", "EWAK", "GK", "Gesamt", "Meilensteintrendanalyse", "V-IST-Kostenprotokoll", "Import_CN41N", "Import_2")

    With Sheets(mySheet)

        .Unprotect Password:="TEF14"

    End With

Next mySheet

'

End Sub

Moin und knapp am Thema vorbei:
Was nutzt Dir ein ohnehin unwirksamer passwortgeschützter Blattschutz, wenn Du ihn fest im Code "verdrahtest"?
Und ja!
Ein eventuelles VBA-Projekt-Kennwort ist ebenfalls kein Schutz!
Blattschutz macht (ohne Kennwort!) nur dann Sinn, wenn man ein versehentliches Ändern schutzbedürftiger Zellen verhindern möchte.

Gruß Ralf

Wieso unwirksamer Blattschutz?
Wenn der Schutz drin ist können Zellen nicht verändert werden und nicht gelöscht werden das ist ja mein Ziel. Den Schutz sollte man ohne Kennwort nicht aufheben können.

Ich verdrahte den Blatschutz fest in einem Code weil ich diesen für bestimmte makros auflösen und wieder aktivieren muss.

Außerdem möchte ich ja einen Blattschutz mit Kennwort und dieses Kennwort wird für 2 Sheets nicht übernommen. Keine Ahnung warum.

Auch Hallo,

ich vermute mal, die Tabellenblätter heißen nicht so, wie Du es im Array stehen hast. Ein angehängtes Leerzeichen im Tabellennamen kann dafür sorgen.

Code:
Sub prcStchwint()

   Dim wksBlatt As Worksheet

   For Each wksBlatt In ThisWorkbook.Worksheets

      With wksBlatt

         MsgBox "Beim Tabellenblatt """ & wksBlatt.Name & """ wird jetzt der Schutz entfernt"

         .Unprotect Password:="TEF14"

      End With

   Next wksBlatt

End Sub

Moin

Aus einem Beitrag von MrExcel von heute (17.10.19):

Zitat:Caution
Don’t bother putting in a password. Passwords are easily broken and easily lost. You will find yourself paying $39 to the Estonians who sell the Office password-cracking software.

Aus <https://www.mrexcel.com/excel-tips/excel...ula-cells/>

Weiterverbreitung ist erwünscht. :19:

Super Steffl. Genau das habe ich gebraucht. Danke dir.

stchwint

RPP63

stchwint

Steffl

shift-del

stchwint