Dropdown Feld aus Befehl ausklammern
29.06.2016 15:43:59
Kai
Ich habe eine Datei, welche über ein Makro automatisch Tabellen erstellt.
Innerhalb dieser Tabelle sperre ich dann alle Zellen, bis auf den Eingabebereich.
Dieser wird über ein Makro gesperrt, sobald die Zelle beschrieben/geändert wird.
Nun möchte ich jedoch, dass die Dropdown-Felder nicht gesperrt werden.
Kann man über die Art der Zelle filtern, oder muss man das über die Spalte tun?
So habe ich die DropDown-Felder eingebunden:
Worksheets(BlattName).Cells(i + 8, 4).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:= _
"A, B, C, D, 2. Trainer"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Die Änderung des Schutzes wird automatisch per Makro im neuen Tabellenblatt erzeugt.
Dort steht dann:
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect ("Passwort")
Target.Locked = True
ActiveSheet.Protect ("Passwort")
MsgBox "Eingabe gespeichert, Zelle gesperrt!"
End Sub
Die Dropdown-Felder beginnen ab der 9. Zeile in Spalte 4 und sind variabel, was die Anzahl angeht.
Die Datei kann ich momentan leider nicht anhängen :(
Grüße Kai
Anzeige