Office: Problem mit aktivieren/deaktivieren Blattschutz per VBA und dem internen Blattschutz

Helfe beim Thema Problem mit aktivieren/deaktivieren Blattschutz per VBA und dem internen Blattschutz in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo, ich habe eine Datei mit 13 Arbeitsblättern. 1. Arbeitsblatt heißt "Stammdaten", die Folgenden tragen den Namen des Monats Januar, Februar, März... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von mglinka99, 19. Januar 2020.

  1. Problem mit aktivieren/deaktivieren Blattschutz per VBA und dem internen Blattschutz


    Hallo,

    ich habe eine Datei mit 13 Arbeitsblättern. 1. Arbeitsblatt heißt "Stammdaten", die Folgenden tragen den Namen des Monats Januar, Februar, März usw.

    Im Arbeitsblatt "Stammdaten" habe ich jeweils eine Schaltfläche um den Blattschutz für alle Arbeitsblätter gleichzeitig zu setzen und eine Schaltfläche um den Blattschutz wieder für alle gleichzeitig zu deaktivieren. Hier dazu die Codes der entsprechenden Makros:

    Code:
    Code:
    Das funktioniert auch. Aber ein blödes Problem gibt es. Wenn alle Arbeitsplätter per Macro geschütz sind und man klickt über "Überprüfen" ->"Blattschutz aufheben", dann wird der Schutz des aktuellen Arbeitsblattes abgeschaltet und zwar ohne Passwortabfrage!

    Was kann ich dagegen tun?

    Danke

    :)
     
    mglinka99, 19. Januar 2020
    #1
  2. Zum einen fragst Du zwar per Inputbox ein Kennwort ab, nutzt es aber nicht. Und "Test123" ist ohne Anführungszeichen eine Variable, kein Kennwort. Statt "Test123" musst Du "pwd" nehmen, also das Kennwort aus der Inputbox. Da Du "On Error Resume Next" einsetzt fällt Dir der Fehler nicht auf. Dadurch wird einfach kein Kennwort gesetzt.

     
  3. Hallo,
    Schon das kann ich nicht nachvollziehen - siehe nachfolgenden Code.

    Du liest das Pswd nach Pwd ein; allerdings nutzt Du in der Protect-Anweisung nicht Pwd, sondern die Variable Test123. Und was da drin steht, geht aus dem Code nicht hervor.

    Gruß
    Aloys

    Ich sehe gerade, mumpel war etwas schneller !

    Code:
     
    aloys78, 21. Januar 2020
    #3
  4. Problem mit aktivieren/deaktivieren Blattschutz per VBA und dem internen Blattschutz

    Super. Vielen Dank. Das funktioniert gut.

    Eine Sache ist mir nur aufgefallen.

    Wenn der Blattschutz für alle Arbeitsblätter abgeschaltet ist und man dan für ein einzelnes Arbeitsblatt den Schutz aktiviert und zwar mit einem anderen Passwort, dann funktioniert das Ganze nicht mehr fehlerfrei.
     
    mglinka99, 21. Januar 2020
    #4
  5. Hallo,
    Ich erlaube mir, Dich daran zu erinnern, dass wir in keinem Rätsel-Forum sind.

    Konkret: was genau funktioniert anschließend nicht mehr fehlerfrei und wie äußert sich das ?

    Gruß
    Aloys
     
    aloys78, 21. Januar 2020
    #5
  6. Natürlich tut es das nicht. Dein Code ist für ein Passwort ausgelegt, nicht für verschiedene.
     
    Zuletzt von einem Moderator bearbeitet: 12. Januar 2021
  7. Also sagen wir mal, dass mein Passwort für den Blattschutz im VBA-Code als "Test123" festgelegt wurde. Jetzt gehen wir davon aus, dass alle Arbeitsblätter ungeschützt sind. Nun klicke ich bei einem Arbeitsblatt auf Überprüfen -> Blatt schützen und denke mir ein anderes Passwort aus, z.B. "Test2020".
    So weit so gut.

    Jetzt klicke ich auf meine Schaltfäche Blattschutz deaktivieren und gebe das Passwort (aus dem VBA-Code) ein , also "Test123".

    Resultat ist, dass das Passwort falsch ist.

    Anbei ein Screenshot davon.

    Tut mir leid, wenn ich mich so blöd anstelle.
     
    mglinka99, 21. Januar 2020
    #7
  8. Problem mit aktivieren/deaktivieren Blattschutz per VBA und dem internen Blattschutz

    Hallo,

    warum trennst Du denn den Schutz nicht auf ?
    - die Monatsblätter per Password 1, und
    - die Stammdaten per Password 2 ?

    Die Frage wäre auch, warum Du den Pswd-Schutz in den Monatsblättern als auch für die Stammdaten überhaupt aufheben musst ?

    Gruß
    Aloys
     
    aloys78, 21. Januar 2020
    #8
  9. Der Hintergrund ist folgender:

    Meine Kollegen und ich arbeiten in einem Team. Ein anderer Kollege und ich dürfen in der Datei schreiben, die anderen dürfen nur den Inhalt lesen.
    Da wir alle gemein in Schichtarbeiten arbeiten, gemeinsam an einem PC mit einem gemeinsamen Benutzerkonto und ich nicht weiß, ob der andere Kollege sich daran halten wird, den Blattschutz über den Button zu nutzen und nicht den internen, muss ich alles etwas umständlicher machen.
     
    Zuletzt von einem Moderator bearbeitet: 12. Januar 2021
    mglinka99, 21. Januar 2020
    #9
  10. Ich denke, dass ich mit der Lösung zufrieden bin. Alles weitere würde vielleicht zu weit führen und ist möglicherweise nur mit (kostenpflichtigen) Addins lösbar.

    Ich werde in Excel das Menüband anpassen und den Bereich Schutz ausblenden, in der Hoffnung, dass der andere Kollege dann die Schaltflächen mit den Makros nutzt.

    Eine Sache ist mir jedoch noch aufgefallen und hoffe ihr könnt mir da noch behilflich sein, bevor ich das Thema als erledigt markiere.

    Wenn ich die Schaltflächen "Blattschutz aktivieren" oder "Blattschutz deaktiviere" anklicke, kann es vorkommen, dass Excel dann auf das Tabellenblatt "November" springt. Diese Situation ist jedoch nicht immer der Fall. Was dann doch immer der Fall ist, dass es der November ist. Ich habe mir den Code der einzelnen Tabellenblätter angeschaut, um eventuelle Unterschiede zu erkennen. Dieser ist jedoch überall identisch:

    Code:
     
    mglinka99, 21. Januar 2020
    #10
  11. Bin da leider immer noch nicht weitergekommen, warum beim Blattschutz deaktivieren ausgerechnet zum Arbeitsblatt "November" springt.
     
    mglinka99, 23. Januar 2020
    #11
Thema:

Problem mit aktivieren/deaktivieren Blattschutz per VBA und dem internen Blattschutz

Die Seite wird geladen...
  1. Problem mit aktivieren/deaktivieren Blattschutz per VBA und dem internen Blattschutz - Similar Threads - Problem aktivieren deaktivieren

  2. ZÄHLEWENN Problem

    in Microsoft Excel Hilfe
    ZÄHLEWENN Problem: Hallo zusammen. Ich möchte in einer Jahresübersicht pro Tag unterschiedliche Kürzel eintragen. Die sollen dann unten zusammen gerechnet werden. Solange pro Tag nur ein Kürzel steht, kann ich das...
  3. Problem mit Runden (round)

    in Microsoft Access Hilfe
    Problem mit Runden (round): Hallo allerseits, bisher bin ich mit der Runden-Anweisung, round(Zahl,Anzahl Nachkommastellen) immer gut gefahren. Die Anwendung behandelt Geldbeträge mit Berechnung von Brutto-, Netto- und...
  4. kleines Problem beim erstellen von serienbriefen per vba

    in Microsoft Excel Hilfe
    kleines Problem beim erstellen von serienbriefen per vba: Hallo Zusammen ich habe letztes Jahr mit Hilfe eines Forums einen VBA Code erstellt mit dem ich Serienbriefe aus einer Exceldatei erstellen kann. Jetzt habe ich das Sheet in Excel angepasst und...
  5. Anfänger Problem mit Tabelle

    in Microsoft Excel Hilfe
    Anfänger Problem mit Tabelle: Hallo an Alle. Ich hoffe es kann mir jemand Helfen. Mit null Ahnung von Excel versuche ich mir gerade eine Tabelle zu erstellen, um die tägliche und monatliche Menge meines Stromverbrauches, nach...
  6. Problem mit Zahlen

    in Microsoft Excel Hilfe
    Problem mit Zahlen: Liebe Community, Ich habe ein Problem mit der Zahleneingabe in Excel 2019 ! War früher (2016) nicht so und habe auch nichts verstellt, ist so seit der Installation. Ich gebe in die Zelle zB. 6...
  7. Seit O365 Problem mit Callback-Funktion

    in Microsoft Excel Hilfe
    Seit O365 Problem mit Callback-Funktion: Hallo Excel-Gemeinde, seit der Umstellung auf das aktuelle Excel 365 funktioniert unten angegebener Code nicht mehr, sobald die Callback-Funktion in ein eigenes Modul gepackt wird. Der Code (es...
  8. Problem mit Mails an Undisclosed recipients

    in Microsoft Outlook Hilfe
    Problem mit Mails an Undisclosed recipients: Hallo. Anbieter ist GMX. Die Empfänger Adresse ist immer Undisclosed recipients: von verschiedenen Absendern. Bei GMX habe ich eingestellt, das die Mails direkt in den Ordner gelöscht verschoben...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden