Microsoft Excel

Herbers Excel/VBA-Archiv

Formel Problem

Betrifft: Formel Problem von: Alex B.
Geschrieben am: 12.08.2004 13:35:39

Hi Liebes Excelforum.

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
  


Betrifft: AW: Formel Problem von: Ulf
Geschrieben am: 12.08.2004 14:01:03

Du musst das Blatt mit VBA schützen und dabei die Option UserInterfaceOnly wählen, dann
können Makros trotz Schutz ausgeführt werden.

Ulf


  


Betrifft: AW: Formel Problem von: Alex B.
Geschrieben am: 12.08.2004 14:12:26

Hi Ulf,
danke für Deine hilfe hast Du vielleicht gerade eine VBA parat für einen schutz ???
Selber eine Formel erstellen, also so gut bin ich dann auch noch nicht.

Gruß Alex B.


  


Betrifft: AW: Formel Problem von: Ulf
Geschrieben am: 12.08.2004 14:18:05

Das ist keine Formel, sondern VBA- Code:

Option Explicit
Private Sub Workbook_Open()
With Sheets("Tabelle1")
  .Unprotect Password:="xxx"
  .Protect contents:=True, userinterfaceonly:=True, Password:="xxx"
End With
End Sub


Ulf


  


Betrifft: Danke Ulf. o.T von: Alex B.
Geschrieben am: 12.08.2004 14:20:10

Sorry dann eben VBA Code.

Gruß Alex B


 

Beiträge aus den Excel-Beispielen zum Thema "Formel Problem"