VBA-Blattschutz
16.05.2003 09:45:32
Ernst Dunkel
Mit dem unten stehenden Code möchte ich, wenn auf eine Zelle geklickt wird, automatisch den Blattschutz einsetzen. Etwas im Code stimmt nicht, den er funktioniert nicht!
Kann mir jemand den Code korrigieren?
Gruss Ernst
In diese ArbeitsMappe
Option Explicit
Private Sub Workbook_SheetSelection_Change(ByVal sh As Object, ByVal target As Excel.Range)
Dim i As Integer
For i = 1 To Worksheets.Count
Sheets(i).Protect "test"
Next i
End Sub