Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1032to1036
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Excel2003 Dropdown Schreibschutzproblem

Excel2003 Dropdown Schreibschutzproblem
20.12.2008 11:05:36
Zoff
Hallo Experten,
habe eine komplexe Exceltabelle mit Makros unter Office97 geschrieben. Diese enthält u.a. Zellen Dropdowns (mittels Gültigkeit/Liste) mit z.B. Jan/Nein Auswahlmöglichkeiten usw. Die komplette Tabelle habe ich schreibgeschützt, die Tabelle funktionierte unter Office97 einwandfrei.
Leider funktioniert diese Tabelle unter Excel2003 nicht richtig. Wenn ich eines der Dropdowns betätige, um einen anderen der hinterlegten Werte einzustellen, hat dies eine Fehlermeldung "Tabelle schreibgeschützt" zur Folge. Auf den Schreibschutz der Dropdownzellen möchte ich aber ungern verzichten, da deren Beschriftung/Funtion dann ungewollt verändert werden könnte.
Wie kann ich dies lösen?
Danke vorab
Zoff

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel2003 Dropdown Schreibschutzproblem
22.12.2008 18:04:00
Luschi
Hallo Zoff,
ab Excel 2000 darf bei Dropdown-Feldern (Gültigkeitslisten) nicht der Zellschutz gesetzt sein, _
wenn die Tabelle einen Blattschutz hat. Wenn in der Zelle 'C4' die Gültigkeitsliste definiert _ ist, so kann man mit den folgenden 2 Makros das Gröbste verhindern:

Private Sub Worksheet_Change(ByVal Target As Range)
'dieses Makro macht die Überschreibung der Zelle C4 rückgängig, _
wenn die Zelle C4 keine Gültigkeitsliste mehr ist
Dim i As Integer
If Target.Address(False, False) = "C4" Then
i = -100
On Error Resume Next
i = Target.Validation.Type
If i = -100 Then
Application.Undo
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (Application.Intersect(Target, ActiveSheet.Range("C4")) Is Nothing) Then
'hebt den Kopier- und Einfügemodus auf
Application.CutCopyMode = False
'deaktiviert die Enfernen-Taste
Application.OnKey "{DEL}", ""
'deaktiviert die Rückstell-Taste
Application.OnKey "{BS}", ""
Else
Application.OnKey "{DEL}"
Application.OnKey "{BS}"
End If
End Sub

Gruß von Luschi
aus klein-Paris

Anzeige
AW: Excel2003 Dropdown Schreibschutzproblem
22.12.2008 18:38:00
Zoff
Hallo Luschi,
Danke für den Lösungsansatz !
Zoff

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige