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 ?
(09.05.2022, 17:06)mbruene schrieb: [ -> ]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
Hi,
tja, wenn alle Makros entfernt wurden, dann müssen Außerirdische am Werk sein.... da hilft nur, alle Fenster schließen und Insektenspray...
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.
Was könntest Du Dir vorstellen, bewirkt diese Codezeile?
Me.protect entfernt
Jetzt geht alles wie gewohnt.
Danke
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
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 ?