Habe jetzt schon Stunden daran verbracht und komm nicht weiter.
Folgende Aufgabenstellung:
Es soll einen Button mit "Start" geben, welches eine Passworteingabe öffnet. Passwort: wnsks
Erst danach soll man im File die grün hinterlegten Zahlen mittels drag and drop verschieben können.
Es handelt sich um eine fiktive Buszuordnung, schwarz geschrieben und fix -> dies sind die Buslinien und die Busse (grün hinterlegt) sollen mit drag and drop zugeordnet werden können.
Danach soll es einen button mit "Fertig" geben und die eine Seite soll als Vollansicht am Bildschirm dargestellt werden.
[
attachment=21187]
Geht es wirklich nur darum, dass die grünen Kästchen nicht verschoben werden dürfen? Soll der Rest (Zellen) bearbeitbar bleiben oder ebenfalls gesperrt?
Der Rest soll ebenfalls gesperrt werden -> Quasi das ganz Blatt
Vielleicht nochmals zur Erklärung:
Ich will nach dem Start des Programmes "Makro" die grün hinterlegten Zahlen einfach anklicken, "Klick halten" und verschieben.
Dabei soll nichts anderes verändert werden können.
Ist dies möglich?
Leg dir am besten einen Umschaltbutton (Togglebutton) auf dein Tabellenblatt und hinterlege folgenden Code:
Code:
Private Sub ToggleButton1_Click()
Dim PW As String
If ToggleButton1 = True Then
If InputBox("Bitte Passwort eingeben") = "wnsks" Then
ActiveSheet.Unprotect Password:="xxx"
ActiveSheet.Protect Password:="xxx", DrawingObjects:=False, Contents:=True, Scenarios:=True 'Objekte bearbeitbar
Else
MsgBox "Falsches Passwort eingegeben!"
ToggleButton1 = False
End
End If
Else
ActiveSheet.Unprotect Password:="xxx"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 'Objekte gesperrt
End If
End Sub
"xxx" (Achtung --> 3 x im Code!) tauschst du gegen das Passwort deiner Wahl für den Blattschutz. Dieses sollte anders lauten als das Passwort für das Bearbeiten der Kästchen.
Hallöchen Mümi, :17:
bitte entschuldige den kleinen Grinser ... aber die Kuscheldecke meiner Kleinen heißt auch Mümi ...
Zur Sache ... der Code von Berni sorgt zwar dafür, dass du das Blatt schützen und öffnen kannst, aber das Drag&Drop macht er auch nicht möglich.
Kein Code, den ich kenne, kann das, was du gerne machen möchtest ... zumindest, solange du Shapes verwendest ... die können das nicht.
Außer es reicht dir, Strg-Taste gedrückt halten ... Shape wird mit Klick selektiert ... Strg-Taste loslassen ... dann ganz genau zielen ... du musst mit einem Doppelklick genau den Rahmen erwischen, dann kannst du das Shape ziehen und an der gewünschten Stelle fallen lassen.
Wenn du ActiveX-Steuerelemente verwenden würdest, gäbe es eventuell eine Möglichkeit, diese per echtem Drag&Drop zu verschieben. Kommt aber auf deine Excel-Version an ... in Excel 2016 reagieren diese Controls nicht wirklich schön auf das Ziehen mit der Maus. Sie ruckeln da nur durch die Gegend.
@Sabina: Ich hatte es schon so verstanden, dass einfach die grünen Kästchen verschoben werden sollen. Dass man den Rahmen genau erwischen muss, ist schon klar, ein richtiges Drag&Drop gibt es natürlich nicht.
Und das sollte mein Code leisten.
Hallo Berni,
bitte entschuldige, wenn ich dich durch meine Schreiberei angegriffen habe ... das war nicht meine Absicht ... verzeih mir !
Ich wollte der/dem TO nur unmissverständlich klarmachen, was geht und was nicht.
Ich fühl mich nicht angegriffen, ich wollte nur meine Sichtweise bzw. mein Verständnis der Frage darlegen
Alles gut!
Viiielen Dank für eure Inputs und Überlegungen... Mega.
Das mit der Kuscheldecke find ich auch witzig
Fakt ist, ich fühle mich jetzt noch mehr als Würstchen, weil ich nicht mal das Makro bezüglich Blattschutz ins Laufen bekommen.
Habe die 3x "xxx" durch test ausgetauscht und funktioniert nicht ohne debuggen.
Könntet ihr mir das in das .excel einfügen und anhängen... Bitte und ein Shape und ein ActiveX-Steuerelemente hineinlegen, schaff i nämlich auch ned.
Sorry fühl mich schlecht...
(Ruckeln wäre kein Problem und es muss auch im Kästchen nicht einrasten, nur ca. hingeschoben werden.