Herbers Excel-Forum - das Archiv
Kennwortschutz auf mehreren Tabellen

|
Betrifft: Kennwortschutz auf mehreren Tabellen
von: Dagmar
Geschrieben am: 11.11.2003 23:59:35
Hallo ihr hilfsbereiten Geister,
ich habe eine Exceldatei mit 14 Arbeitsblättern, die fast gleich aufgebaut sind.
Da die enthaltenen Formeln viele schlaflose Nächte (Kaffee und Zigaretten) gekostet haben, möchte diese fast alle durch ein Kennwort vor Änderungen schützen.
Gibt es eine Möglichkeit, dies für alle Blätter gleichzeitig zu tun?
Bisher vergebe ich für jedes Blatt Blattschutz mit dem Kennwort.
Leider kommen immer noch Änderungen vor, so dass ständig der Schutz einzeln aufgehoben und neu vergeben werden muss.
Dank und Gruß
Dagmar
Betrifft: AW: Kennwortschutz auf mehreren Tabellen
von: andreas e
Geschrieben am: 12.11.2003 00:05:03
Hallo dagmar,
das ist über vba lösbar, aber,...... willst Du alle Blätter schützen ??? , einzelne (wenn ja welche ? ) ....
Gruß
Andreas E
http://www.skripteundaufgaben.de
viele kostenlose Downloads und Links zu EXCEL und mehr
http://www.fachforen.de
eine Linksammlung zu diversen fachforen
Betrifft: AW: Kennwortschutz auf mehreren Tabellen
von: Dagmar
Geschrieben am: 12.11.2003 00:11:07
Hallo Andreas,
Geschützt werden sollen alle Blätter und auch Zellen an gleicher Position.
Daran hatte ich bereits bei Erstellung der Datei gedacht.
vba - das treibt mir doch gleich wieder den Angstschweiß auf die Stirn. Ha, ha.
Wenn ich doch blos mal kappieren würden, was darin steht.
Gruß
Dagmar
Betrifft: AW: Kennwortschutz auf mehreren Tabellen
von: K.Rola
Geschrieben am: 12.11.2003 00:19:11
Hallo,
der Code gehört in ein Standardmodul:
Option Explicit
Sub alle_Schutz()
Dim sh As Object
For Each sh In Sheets
sh.Protect contents:=True, Password:="xxx"
Next
End Sub
Sub alle_entschützen()
Dim sh As Object
For Each sh In Sheets
sh.Unprotect , Password:="xxx"
Next
End Sub
Gruß K.Rola
Betrifft: Moin und Gute Nacht K.Rola ! --...
von: andreas e
Geschrieben am: 12.11.2003 00:31:37
bevor ich es suche oder finde sind die "Nachtschwärmer" unterwegs !
Mit freunlichen Grüßen,
Gruß
Andreas E
http://www.skripteundaufgaben.de
viele kostenlose Downloads und Links zu EXCEL und mehr
http://www.fachforen.de
eine Linksammlung zu diversen fachforen
Betrifft: AW: Kennwortschutz auf mehreren Tabellen
von: Dagmar
Geschrieben am: 12.11.2003 00:47:18
Hallo K.Rola,
habe dein Makto kopiert, eingefügt und "xxx" durch Kennwort ersetzt.
Der Blattschutz funktioniert.
Bei Aufruf des Makros alle_entschützen erfolgt leider eine Fehlermeldung
Laufzeitfehler 450
Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft
Weist Du nochmals Rat.
Dagmar
Betrifft: AW: Kennwortschutz auf mehreren Tabellen
von: K.Rola
Geschrieben am: 12.11.2003 01:05:23
Hallo,
Flüchtigkeitsfehler Komma zuviel:
Sub alle_entschützen()
Dim sh As Object
For Each sh In Sheets
sh.Unprotect Password:="xxx"
Next
End Sub
Gruß K.Rola
Betrifft: AW: Kennwortschutz auf mehreren Tabellen
von: Dagmar
Geschrieben am: 12.11.2003 01:12:40
Hallo K.Rola,
danke, jetzt klappt es.
Dagmar
Betrifft: AW: Kennwortschutz auf mehreren Tabellen
von: andreas e
Geschrieben am: 12.11.2003 00:27:50
hallo dagmar,
vielleicht hilft Dir das Skript von andrea etwas den Schweiß von der Stirn zu wischen ?
http://www.herzog.ch/vba.pdf
Mit Deiner Angabe "Kaum Excel/VBA-Kenntnisse" ist das ein "problemchen " !!!
Aber nun zu deinem Prob -
Was meinst Du mit "Geschützt werden sollen alle Blätter und auch Zellen an gleicher Position.
" ???
Jedes sheet deiner mappe ? an einer bestimmten Zelle ?
Beschreib das einfach mal bitte näher !
Ich hoffe, es sieht ein "Nachtschwärmer" noch mal über deinen Beitrag drüber !
Ich mache für heute schicht und bin erst ab morgen früh wieder da -
bis denne ,
Gruß
Andreas E
http://www.skripteundaufgaben.de
viele kostenlose Downloads und Links zu EXCEL und mehr
http://www.fachforen.de
eine Linksammlung zu diversen fachforen