Schreibgeschütztes Layout

[Steven123]

Hallo,

ich habe folgendes Problem: Ich muss ein Layout erstellen bei dem bestimmte Felder schreibgeschützt sein sollen. Das Problem ist, dass dieses Layout aus knapp 100 Tabellenblättern besteht. Wenn ich nun jede einzelne Seite einzeln sperren würde, hätte ich danach eine viel zu große Datei, mit der mein System nicht mehr umgehen könnte. Ich habe gehört da gibt es eine etwas aufwendigere Lösung über Makros... könnte mir da jemand behilflich sein?

Vielen Dank schonmal im Vorraus

Mit freundlichen Grüßen

Steven Reich

[mumpel]

Hallo!

Wenn Du nur die Tabellenblätter sperren möchtest ist das nicht aufwendig. Das wären dann nur ein paar Zeilen.

Code: Visual Basic

1. Public Sub EnableSheetProtect()
2.  
3. Dim Blatt As Object
4.  
5.    For Each Blatt In ActiveWorkbook.Worksheets
6.             Blatt.Protect "Kennwort"
7.    Next Blatt
8.    
9. End Sub
10.  
11. Public Sub DisableSheetProtect()
12.  
13. Dim Blatt As Object
14.  
15.    For Each Blatt In ActiveWorkbook.Worksheets
16.             Blatt.Unprotect "Kennwort"
17.    Next Blatt
18.    
19. End Sub
20.  

Oder Du nutzt mein Tool Kennwortsetzer (xlTool3) . Bei diesem kannst Du die zu schützenden Blätter auswählen und die aus dem Standarddialog bekannten Optionen wählen. Das Tool ist so ähnlich wie der Standarddialog, nur erweitert für alle Tabellen der aktiven Datei. Und Du kannst die Kennwörter in einer INI-Datei speichern. Das erleichtert Dir später die Verwaltung Deiner Kennwörter für Deine Dateien. Mehr Informationen darüber findest Du auf meiner Toolseite im Abschnitt "Kennwörter verwalten".


Wenn Du mehr möchtest musst Du etwas genauer erläutern was Du mit dem Code erreichen möchtest. Dann können wir Dir ein paar Grundzüge zeigen. (Für professionelle Programmierung wende Dich bitte an den Administrator (Alois Eckl), er wird Dir dann ein Angebot unterbreiten  ).

Gruß, René