Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
16.10.2025 13:18:36
Übersicht von Excel Konstanten
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1552to1556
1552to1556
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Passwort für mehrere Subs

Forumthread: Passwort für mehrere Subs

Passwort für mehrere Subs
03.05.2017 10:24:49
Philipp
Hallo zusammen,
ich habe passwortgeschützte Tabellenblätter, in denen nur gewisse Zeilen und Spalten zur Bearbeitung freigegeben sind. Es gibt verschieden Buttons mit VBA Quelltext dahinter, die zum Beispiel den Inhalt der zu bearbeitenden löschen. Da die Blätter Passwortgeschützt sind, muss ich immer folgenden Code um den Quellcode schreiben.
Sheets("Quality).unprotect ("123")
Quellcode
Sheets("Quality").Protect ("123")
Das Passwort wäre in diesem Fall 123. Mein Problem ist, wenn ich das Passwort ändern möchte, muss ich das an über 30 Stellen machen. Kann man das einfacher gestalten mit einer Variable oder so?
Vielen Dank für Eure Hilfe!
Viele Grüße
Philipp
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
schau Dir mal UserInterfaceOnly an ... owT
03.05.2017 10:52:53
Matthias
AW: Passwort für mehrere Subs
03.05.2017 10:52:54
Nepumuk
Hallo,
leg in einem Standardmodul eine öffentliche Konstante mit dem Kennwort an.
Gruß
Nepumuk
AW: Passwort für mehrere Subs
03.05.2017 11:09:57
Philipp
Danke für die Antworten!
Nepumuk könntest du mir sagen wie das dann aussieht?
Vielen Dank!
Anzeige
AW: Passwort für mehrere Subs
03.05.2017 11:17:12
EtoPHG
Hallo Phillip,
in ein Modul (z.B): 
Const BlattPW as String = "123"

Dann kannst du BlattPW anstelle deiner "123" verwenden.
Wenn du das Passwort ändern willst:
1. hebe zuerst in allen Blättern den Schutz auf.
2. Ändere den Const...="neues PW" Code
3. schütze alle Blätter mit neu
Gruess Hansueli
Anzeige
AW: Passwort für mehrere Subs
03.05.2017 11:21:28
Philipp
Hallo Hansueli,
danke für die schnelle HIlfe, so werde ich es machen.
Eine letzte Frage: Gibt es einen Weg alle Blätter auf einmal zu schützen? Ich habe Arbeitsmappe schützen gefunden, man kann dann jedoch immer noch in alle Felder schreiben.
Vielen Dank für Eure Hilfe!
gruß Philipp
Anzeige
Mit 2 kleinen Sub SchutzAusEin ...
03.05.2017 11:32:26
EtoPHG
Hallo Philipp,
Const blattPW As String = "123"
Sub SchutzAus()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Unprotect blattPW
Next ws
End Sub
Sub SchutzEin()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Protect blattPW
Next ws
End Sub
Gruess Hansueli
Anzeige
AW: Mit 2 kleinen Sub SchutzAusEin ...
03.05.2017 11:35:40
Philipp
Super vielen Dank nochmal!!!
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige