Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Steven123 am November 05, 2014, 10:47:04 Vormittag

Titel: Schreibgeschütztes Layout
Beitrag von: Steven123 am November 05, 2014, 10:47:04 Vormittag
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
Titel: Antw: Schreibgeschütztes Layout
Beitrag von: mumpel am November 05, 2014, 12:53:52 Nachmittag
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)  (http://www.rholtz-office.de/counters/getfile.php?id=28). 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 (http://www.rholtz-office.de/index.php?index=adds) 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) (http://www.excel-inside.de/imprint), er wird Dir dann ein Angebot unterbreiten  ;) ).

Gruß, René