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"