Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Schutz vor Zellverschiebung"
Kennwort für Blattschutz Blattschutz aufheben
Kommentare in geschützte Tabellen einfügen Tabelle vor der Bearbeitung schützen
Blattschutzdialog über VBA aufrufen In geschützter Zelle in geschütztem Blatt Werterhöhung
Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen Blattschutz für eine Serie von Tabellen setzen und aufheben
Blattschutz beim Speichern setzen Zellschutz nur für Formeln