Blattschutz bei Worksheet_SelectionChange
Fritz_W
Im Modul der Tabelle1 befindet sich folgender Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [H3:K6]) Is Nothing Then
With Range("D3:D18")
If Application.CountBlank(Range(.Address)) > 0 Then
.SpecialCells(xlCellTypeBlanks)(1, 1).Value = Target.Value
Else
MsgBox "Keine weiteren leeren Zellen in Bereich " & .Address & " gefunden !"
End If
End With
End If
End Sub
Ich würde gerne das Blatt schützen. Bei geschütztem Blatt funktioniert aber das so nicht.
Gibt es eine Möglichkeit das Blatt zu schützen und dennoch den Code 'laufen' lassen zu können?
Für eure Hilfen im Voraus besten Dank.
mfg
Fritz