Schutz vor Zellverschiebung

Bild

Betrifft: Schutz vor Zellverschiebung von: Lars
Geschrieben am: 19.02.2005 17:43:51

Hallo NG,

wie kann ich ein Blatt, in dem ein Eingabebereich(B2 bis H31) nicht geschützt sein soll, davor schützen, dass innerhalb dieses Bereiches Zellen verschoben werden?
Hierdurch würden Verknüpfungen und Hyperlinks durch die User, die jeweils ein solches Sheet füllen sollen, durcheinandergeraten. (eigentlich handelt es sich um einen User-Schutz :-)

Beispieldatei:
https://www.herber.de/bbs/user/18343.xls

Danke für eure Hilfe im Voraus

Lars

Bild


Betrifft: AW: Schutz vor Zellverschiebung von: Josef Ehrensberger
Geschrieben am: 19.02.2005 17:57:31

Hallo Lars!

Wenn du das Verschieben mit Drag and Drop meinst, dann unter
Extras > Optionen > Bearbeiten > Haken bei "Drag&Drop bei Zelle aktivieren" rausnehmen!


Gruß Sepp

P.S.: Rückmeldung nicht vergessen!


Bild


Betrifft: AW: Schutz vor Zellverschiebung von: Lars
Geschrieben am: 19.02.2005 18:09:15

Hallo Sepp,

danke erstmal für die schnelle Antwort!

Korrekt ich meine D+D; mir geht es darum, dass user, die das Blatt später nutzen sollen keine Möglichkeit zum D+D, selbst innerhalb des Eingabebereiches haben sollen.
Wenn ich dich richtig verstehe, müsste ich an deren Rechnern, die Extras > Optionen > Bearbeiten > Haken bei "Drag&Drop bei Zelle aktivieren" deaktivieren , oder geht das per VBA?

Grüße
Lars


Bild


Betrifft: AW: Schutz vor Zellverschiebung von: Josef Ehrensberger
Geschrieben am: 19.02.2005 18:21:23

Hallo Lars!

Geht auch mit VBA!
    Application.CellDragAndDrop = False
    Application.CellDragAndDrop = True



Gruß Sepp

P.S.: Rückmeldung nicht vergessen!


Bild


Betrifft: Danke, klappt! von: Lars
Geschrieben am: 19.02.2005 19:08:22

.


Bild


Betrifft: AW: Schutz vor Zellverschiebung von: Tim
Geschrieben am: 19.02.2005 18:22:03

Option Explicit
Dim oldDragDrop As Boolean
Private Sub Workbook_Activate()
oldDragDrop = Application.CellDragAndDrop
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_Deactivate()
Application.CellDragAndDrop = oldDragDrop
End Sub


Tim


Bild


Betrifft: Super - Danke! von: Lars
Geschrieben am: 19.02.2005 19:07:27

.


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Schutz vor Zellverschiebung"