mehrere Passwörter aktivieren

Hallo zusammen,
habe ein Excelsheet mit ca. 20 Blättern (Kalendern), jedes einzelne Blatt wird mit einem anderen Passwort versehen, für jedes Blatt hat das Passwort eine eigene Variable, z.B. LW, MB, AR, usw.
Beispiel:
Worksheets("Landwald").Protect Password:=LW
Worksheets("Meinbaum").Protect Password:=MB
Gibt es eine Möglichkeit alle 20 Passwörter beim starten des Excelsheets neu zu aktivieren ?
Weitere INFO:
In Diese Arbeitmappe habe ich schon eine Code drin der die Abfrage von Feiertagen ferhindert.
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Feiertage" Or Sh.Name = "Zusammenfassung" Or Sh.Name = "Diagramme" Or Sh.Name = "Mitarbeiter" Then 'alle Blaetter ausser Feiertage .......
Else
Cells(4, Application.Match(CLng(Date), Rows(4), 0)).Select
End If
Kann mir vielleicht jemand weiterhelfen ?
Mit freundlichen Grüßen
Manfred

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_SheetActivate(ByVal Sh As Object) If Sh.Name = "Feiertage" Or Sh.Name = "Zusammenfassung" Or Sh.Name = "Diagramme" Or Sh.Name = " _ Mitarbeiter" Then 'alle Blaetter ausser Feiertage ....... Else Cells(4, Application.Match(CLng(Date), Rows(4), 0)).Select End If End Sub

Hallo Manfred,
das Problem ist die Art wie du die Variablen deklariert oder besser nicht deklariert hast.
Die Variablen LW bzw. BM usw. haben nur in der Prozedur
Landwald_Schutz_aus bzw. Meinbaum_Schutz_aus
den zugewiesenen Wert für das Passwort. In den anderen Prozeduren ist/bleibt die Variable leer.
Damit die Anwendung und der Vergleich der Passwörter funktioniert müssen die Variablen mit den den Passwörter in einem allgemeinen Modul als Public Const Konstanten deklariert werden.
Außerdem darfst du, wenn das Passwort für 1 Mitarbeiterblatt eingegeben wurde, nicht in einer Schleife versuchen mit diesem Kennwort den Schutz für alle Blätter aufzuheben, sondern immer nur den Schutz für das jeweilige Blatt.
Ich hab ein neues Modul angelegt mit den Variablenzuweisungen für die Passwörter und die Schutz_aus-Prozeduren angepasst in den Modulen der Mitarbeiter-Tabellenblätter.
Gruß
Franz
https://www.herber.de/bbs/user/85493.zip

Const naBlatt$ = "Landwald Meinbaum", pwBlatt$ = "LW MB" Dim bix As Long, axNaBlatt, axPwBlatt, sh As Worksheet axNaBlatt = Split(naBlatt): axPwBlatt = Split(pwBlatt) For Each sh In Me.Sheets With WorksheetFunction bix = 0: bix = .Match(sh.Name, axNaBlatt, 0) If CBool(bix) Then _ sh.Protect axPwBlatt(bix - 1), True, True, True, True End With Next sh

Private Sub Workbook_Open() On Error Resume Next Dim sh As Worksheet Application.ScreenUpdating = False For Each sh In ActiveWorkbook.Worksheets If sh.ProtectContents = False Then wks = sh.Name Select Case wks Case Is = "Meinbaum" PW = "meba" Case Is = "Landwald" PW = "lawa" 'Case Is = und nun die weiteren Blattnamen ' PW = hier das entprechende Passwort End Select sh.Protect Password:=PW End If Next sh Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread