Blattschutz aktiviert sich ständig selbst

[mbruene]

Hallo

versuche vergeblich den Blattschutz wieder los zu werden den ich selber eingerichtet habe.
Der Kode ist bekannt.
Wenn ich auf Blattschutz aufheben gehe ist er deaktiviert.
Wenn ich irgendwo hin klicke ist er sofort wieder drin.

Makros habe ich alle entfernt.

Was könnte es es noch sein ?

[RPP63]

Makros habe ich alle entfernt.

Moin!
Auch die Ereignismakros in DieseArbeitsmappe und sämtlichen Tabellen?
Was passiert, wenn Du die Datei als .xlsx abspeicherst?

Gruß Ralf

[Ralf A]

Hi,

tja, wenn alle Makros entfernt wurden, dann müssen Außerirdische am Werk sein.... da hilft nur, alle Fenster schließen und Insektenspray...

[mbruene]

Schutz aufheben und dann als .xslm speichern, dann ist das Problem weg.

ich brauche aber diesen Kode : 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
    If Not Intersect(Target, Range("M3:M999")) Is Nothing Then
   
        Me.Unprotect
       
        If Target = "" Then
            Target = "X"
            Else
            Target = ""
        End If
        Me.Protect

        Cancel = True
    End If
    If Not Intersect(Target, Range("Q3:Q999")) Is Nothing Then
   
        Me.Unprotect
       
        If Target = "" Then
            Target = "X"
            Else
            Target = ""
        End If
        Me.Protect

        Cancel = True
    End If
    If Not Intersect(Target, Range("U3:U999")) Is Nothing Then
   
        Me.Unprotect
       
        If Target = "" Then
            Target = "X"
            Else
            Target = ""
        End If
        Me.Protect

        Cancel = True
    End If
    If Not Intersect(Target, Range("Y3:Y999")) Is Nothing Then
   
        Me.Unprotect
       
        If Target = "" Then
            Target = "X"
            Else
            Target = ""
        End If
        Me.Protect

        Cancel = True
    End If
End Sub


Und später auch noch ein paar makros.

Kann es an dem VBA Kode liegen ?
Den habe ich kopiert und mehrmals hintereinander laufen lassen.
Da ich nicht wusste wie ich bis End Sub drei Spalten mit rein bekomme.
Habe keinen Plan was da steht.

---

Hab´s mit SUPER RAID 2000 versucht.

Hat nicht geholfen.

[RPP63]

Was könntest Du Dir vorstellen, bewirkt diese Codezeile?

Code:

Me.Protect

[mbruene]

Me.protect entfernt

Jetzt geht alles wie gewohnt.


Danke

[RPP63]

Prima!
Zu Deinem Rattenschwanz-Code:
Überprüfe den gesamten Bereich und zusätzlich auf REST(SPALTE();4)=1
In VBA (und etwas vereinfacht):

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("M3:Y999")) Is Nothing And _
  Target.Column Mod 4 = 1 Then
    Target = IIf(Target = "", "X", "")
    Cancel = True
End If
End Sub

Gruß Ralf

[mbruene]

Funktioniert einwandfrei :)

Jetzt kann ich in Spalten m Q U & Y wunderbar durch klicken ein X setzen.

Jetzt wollte ich noch gerne, das man auf einen Knopf klickt und dann nur Zeilen angezeigt werden, die mindestens ein X 
in einer der Spalten haben. Oder halt 2 3 oder 4 mal X.

Geht das irgendwie ?