Schleife fuzt nicht
20.11.2002 17:55:26
Steffen
Ich habe nochmal was anderes probiert,ich will ein bestimmtes Blatt in allen Mappen ausblenden
~~Begin~~
Sub leer_aublenden()
Dim PSWD As String
'Passwort für Blatt und Arbeitsmappenschutz
PSWD = Workbooks(ThisWorkbook.Name).Sheets("aeinstellung").Range("C7").Value
Dim wkb As Workbook
Set wkb = ActiveWorkbook
For Each wkb In Workbooks
If wkb.Name <> ThisWorkbook.Name Then
'Arbeitsmappen schutz wird aufgehoben nicht Blattschutz!!!
wkb.Unprotect (PSWD)
Sheets("Leer").Visible = xlVeryHidden
'Arbeitsmappe wird geschützt nicht Blatt!!!
wkb.Protect Structure:=True, Windows:=False, Password:=PSWD
End If
Next wkb
End Sub
~~EnD~
Excel fehler:
die Visible eigenschaft des Worksheet Objekts kann nicht festegelegt werden?!
--> Habe die letzte Frage so gelöst, aber
Würde dieses Mako auch gern mit:
~~Begin~~
Dim PSWD As String
'Passwort für Blatt und Arbeitsmappenschutz
PSWD = Workbooks(ThisWorkbook.Name).Sheets("aeinstellung").Range("C7").Value
Dim wkb As Workbook
Dim wks As Worksheet
For Each wkb In Workbooks
For Each wks In wkb.Worksheets
'Arbeitsmappen schutz wird aufgehoben nicht Blattschutz!!!
wkb.Unprotect (PSWD)
If wkb.Name <> ThisWorkbook.Name And wks.Name <> "Leer" Then
wks.Visible = xlSheetVeryHidden
End If
'Arbeitsmappe wird geschützt nicht Blatt!!!
wkb.Protect Structure:=True, Windows:=False, Password:=PSWD
Next wks
Next wkb
~~End~~
verbinden
danke schonmal
Steffen