jede X´te Zeile schützen

[stonemaus]

Hallo und Guten Tag

Ich suche eine einfache VBA Lösung um Zeilen ohne Blattschutz vom Überschreiben zu schützen.

Also wenn man im aktuellen Arbeitsblatt ab Zeile 100 auf jede 8 Zeile klickt sollte der Cursor zur Zelle A1 springen.

Ich bitte um Eure Hilfe

MfG Peter

[RPP63]

Moin Peter!
Wenn Du das mit mir als Anwender der Datei machen würdest, würde ich [selbst zensiert]!
Aber da Gottes Wille bekanntlich sein Himmelreich ist:

Microsoft Excel Objekt Tabelle1

Option Explicit 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
With Target 
  If .Row > 99 Then 
    If (.Row - 100) Mod 8 = 0 Then 
      Application.Goto Cells(1) 
    End If 
  End If 
End With 
End Sub 

Gruß Ralf

[Kuwer]

Hallo Peter,

folgender Code kommt in das schon vorhandene VBA-Modul des entsprechenden Tabellenblattes:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Row > 99 Then
    If Target.Row Mod 8 = 4 Then Range("A1").Select
  End If
End Sub

Gruß Uwe

[stonemaus]

Hallo Ralf

Vielen Dank für die schöne Lösung.

Ich muss die Zeilen in einer freigegebenen Arbeitsmappe schützen, und das glaubte ich währe die beste Lösung.

Also nochmal Danke :19:
Gruß Peter

[stonemaus]

Vielen Dank Uwe