Hallo,

bin verzweifelt dabei, ein Excel-Makro richtig zum laufen zu bekommen.
Ich habe eine Excel-Datei mit vielen Tabellenblätter. Die ganze Arbeitsmappe (d.h. alle Tabellenblätter) soll via Makro geschützt werden, aber die Gruppierung in den einzelnen Tabellenblättern muss möglich sein. Habe mir mal einen Makro zusammengebastelt nach Angaben in anderen Foren... Naja, es hätte funktionieren können...
Nun, vielleicht hat jemand einen heißen Tipp, wie der Code richtig wäre :-)

Hier der Code

Option Explicit

Sub Blätter_schützen()
'
' Blätter_schützen Makro
' Makro am 16.05.2007 von P aufgezeichnet
'

'
Dim wks As Worksheet
Dim i As Long
Dim Passwort As String
Application.ScreenUpdating = False
Passwort = InputBox("Please enter password", "Password")
If Passwort = "XXX" Then
i = Sheets("DataInput").Index
For Each wks In ThisWorkbook.Worksheets
If wks.Index > i Then
With wks
.Protect
End With
End If
ActiveSheet.EnableOutlining = True
Next wks
MsgBox "Your workbook is fully protected now!"
Else
MsgBox "Please enter correct password and try again"
End If
Sheets("DataInput").Select
Range("A1").Select
Application.ScreenUpdating = True
End Sub