Wie Schütze ich alle Arbeitsblatt in einer Excel-Arbeitsmappe mit einem Klick?

Habe ich rund 25 Arbeitsblätter, die in meiner Arbeitsmappe (Excel-Tabelle).
Gibt es eine Möglichkeit, kann ich schützen alle 25 Arbeitsblätter im einzelnen auf ? oder diese Funktion ist nicht verfügbar, und ich werde zu schreiben, ein VBA-code, um dies zu erreichen. Brauche ich sehr oft zum Schutz aller Blätter und hebt den Schutz für alle Blätter und dabei individuell zeitaufwändig ist

InformationsquelleAutor Dheer | 2008-10-10
  1. 14

    Ich glaube nicht, dass es einen Weg gibt, dies zu tun, ohne Verwendung von VBA. Wenn Sie interessiert sind, in eine VBA-Lösung, hier ist der code:

    Dim ws as Worksheet
Dim pwd as String

pwd = "" ' Put your password here
For Each ws In Worksheets
    ws.Protect Password:=pwd
Next ws

    Aufheben des Schutzes ist praktisch die gleiche:

    Dim ws as Worksheet
Dim pwd as String

pwd = "" ' Put your password here
For Each ws In Worksheets
    ws.Unprotect Password:=pwd
Next ws
    InformationsquelleAutor Ben Hoffstein
  2. 3

    Glaube nicht, dass es eine Schaltfläche, um es zu tun, aber es ist einfach genug-code:

    Für Jeden protSheet In Arbeitsblättern
    protSheet.Protect Password := "boo"
    Neben protSheet

    InformationsquelleAutor Steven Robbins
  3. 3

    Schützen Sie alle Arbeitsblätter von Benutzer ändert aber immer noch erlauben, VBA-Skripte, um änderungen mit "UserInterfaceOnly" - option. Diese Problemumgehung können Sie laufen alle VBA-Skripts, die auf den Arbeitsblättern, die zimmerreserviereung, ohne das Sie zu schützen und Schutz aufheben jedes mal:

    Dim ws as Worksheet
Dim pwd as String

pwd = "" ' Put your password here
or Each ws In Worksheets
   ws.Protect Password:=pwd, UserInterfaceOnly:=True
Next ws

    Aufheben des Schutzes ist das gleiche wie die Lösung von Ben Hoffstein:

    Dim ws as Worksheet
Dim pwd as String

pwd = "" ' Put your password here
For Each ws In Worksheets
    ws.Unprotect Password:=pwd
Next ws

    Können Sie auf dieser Makros mit einer Taste/Tastenkombination. In Excel 2010 Sie mit der rechten Maustaste auf die Symbolleiste für den Schnellzugriff und wählen Sie "Customize Quick Access Toolbar". In der drop-down-Menü wählen Sie "Befehle", wählen Sie "Makros". Klicken Sie auf das VBA-Skript, das Sie geschaffen, um zu schützen (oder aufheben). Schließlich klicken Sie auf die "Add > >" - Taste und dann "OK" um es zu speichern.

    InformationsquelleAutor ChrisB
  4. 1

    Schützen Sie die Arbeitsmappe, anstatt jedes Blatt und dies wird stop änderungen über die gesamte Arbeitsmappe

    • Dies ist eine sehr unterschiedliche Menge von Schutz, und lösen nicht die Frage. Der Schutz der Arbeitsmappe schützt nur bestimmte Funktionen über die Arbeitsmappe (wie das verschieben von tabs um) - es nicht zu tun-Blatt-Schutz auf allen Blättern als Menschen neigen dazu zu glauben - Sie brauchen, um die Blätter einzeln. Möglicherweise möchten Sie auch zu benutzen, den Schutz der Arbeitsmappe, wenn Sie wollen, schützen Sie diese Teile der Arbeitsmappe als gut, aber das ist einer gesonderten Betrachtung.
    InformationsquelleAutor
Schreibe einen Kommentar