Anzahl Tabellenblätter in Workbook
12.04.2006 15:01:16
henning
Möchte alle Tabellenblätter meiner Arbeitsmappe durchzählen. Das Makro läuft iregndwie nicht vernünftig:
Sub PasswortFürAlleBlätterEinstellen()
Dim Tabz As Integer
Dim i As Integer
Tabz = ActiveWorkbook.Worksheets.Count
For i = 1 To Tabz
Sheets(i).Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True, Password:="xxxxx"
Next i
End Sub
Konkret gibt 'tabz' mir einen zu kleinen Wert an. Liegt das an den Einstellungen der zu zählenden Arbeitsbläter?
Vielen Dank
Henning
Anzeige