Frage : Kopien-„Blatt“ setttings zu allen Vorsprüngen in einem Arbeitsbuch schützen

Ich habe ein übertreffenarbeitsbuch 2007, in dem ich ein Blatt mit bestimmten Einstellungen geschützt habe:
Allow alle Benutzer dieses Blattes:
Select verriegelte cells
Select freigesetztes cells

How tun i-Kopie diese Schutzvorwähleren zu allen anderen Blättern im Arbeitsbuch (sie haben verschiedene Vorwähleren), ohne es eins nach dem anderen zu tun?
Thanks im Voraus,

Antwort : Kopien-„Blatt“ setttings zu allen Vorsprüngen in einem Arbeitsbuch schützen

Den Code unten in der ThisWorkbook Codescheibe versuchen. Sie läuft automatisch, wenn das Arbeitsbuch jedes Arbeitsblatt mit einem Kennwort öffnet und schützt. Dem Benutzer erlaubt, die verschlossenen und freigesetzten Zellen vorzuwählen.

Zu auf diese Codescheibe zurückgreifen, Alt + F11, zum des VBA Herausgebers zu öffnen. Im Projekt-Forscher auf dem links, doubleclick ThisWorkbook. Den Code dort kleben. Es funktioniert nicht an allen, wenn es irgendwoanders angebracht.

Brad

1: 2: 3: 4: 5: 6: 7: 8:

Privates VorWorkbook_Open () Schwaches WS als Arbeitsblatt Schwaches MyPassword als Schnur MyPassword = „ABC“ Für jedes WS in ActiveWorkbook.Worksheets WS. Kennwort schützen: =MyPassword, UserInterfaceOnly: =True, Inhalt: =True Zunächst Enden-Unterseeboot