habe folgende Formel in einer Arbeitsmappe
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
With Target
If Sh.Name <> "Auswahl" Then 'oder "Tabelle1" oder wie das Blatt halt heißt
If .Column = 1 Then
ActiveCell.Locked = False
Target.Interior.ColorIndex = IIf(.Interior.ColorIndex = xlNone, 4, xlNone)
End If
If .Column = 10 Then
ActiveCell.Locked = False
Target.Interior.ColorIndex = IIf(.Interior.ColorIndex = 6, 34, 6)
End If
End If
End With
'Cancel = True
End Sub
Das Problem ist das wenn ich einen Kopierschutz auf meine Blätter mache funktioniert dies nicht obwohl ich die betroffenden Spalten nicht geschütz habe.
Folgende Fehlermeldung erhalte ich den immer:
Die Locked-Eigenschaft de Range-Objektes kann nicht festgelegt werden.
Hoffe ihr könnt mir helfen da ich die Formel dringen in meiner liste brauche und auch einen Blattschutz benötige.
Gruß Alex B