Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
932to936
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
932to936
932to936
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Auswahl UNgeschützter Zelle verhindern

Auswahl UNgeschützter Zelle verhindern
13.12.2007 10:56:00
Dirk
Hallo liebes Forum!
Leider bin ich im Forum nicht fündig geworden, was meine Herausforderung anbetrifft, deshalb hier die Frage:
Kann ich in einem Tabellenblatt, welches sowohl geschützte als auch ungeschützte Zellen enthält die Auswahl einer bestimmten UNgeschützten Zelle verhindern?
Mit EnableSelection komme ich dann ja nicht weiter, leider.
Hintergrund: aus einer User-Form wird ein Wert per Button in diese bestimmte Zelle geschrieben. Der Anwender soll nun aber keine Möglichkeit haben, diese Zelle auszuwählen, um noch Änderungen daran vorzunehmen.
Die Variante "Sheet (und damit Zelle) entschützen - Wert hineinschreiben - Sheet wieder schützen" scheidet aus, da dann das Passwort im Klartext ausgelesen werden könnte. Ein Schutz des VBA-Codes mittels der Projekteigenschaften scheidet ebenfalls aus, da dann vorgelagerte Prozessschritte nicht mehr funktionieren.
Für jeden Tipp schon einmal ein herzliches Dankeschön!
Mit freundlichen Grüßen,
Dirk

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Auswahl UNgeschützter Zelle verhindern
13.12.2007 11:08:07
Renee
Hi Dirk,
Die Variante "Sheet (und damit Zelle) entschützen - Wert hineinschreiben - Sheet wieder schützen" scheidet aus.... ist ein schwaches Argument, da:
a) Der VB-Code Passwort-Geschützt und nicht sichtbar gemacht werden kann
b) Das VB-Passwort schwieriger zu knacken ist, als der Blattschutz.
da dann vorgelagerte Prozessschritte nicht mehr funktionieren. Wieso nicht ?
Dann gäbe es vielleicht noch:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const tNotThisCell = "E10"
If Intersect(Target, Range(tNotThisCell)) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.Cells(1, 1).Offset(0, -1).Activate
Application.EnableEvents = True
End Sub


GreetZ Renee

Anzeige
AW: Auswahl UNgeschützter Zelle verhindern
13.12.2007 11:15:00
Dirk
Hallo Renee,
danke für den Tipp, werde es gleich mal ausprobieren.
Zu Deiner Frage, warum dann vorgelagerte Prozessschritte nicht mehr funktionieren, wenn ich den Codeschutz verwende: es handelt sich um eine Excel-Datei, die über ein Excel-Inplace innerhalb von SAP R/3 aufgerufen wird und dort sind die Funktionalitäten etwas anders als beim "normalen" Excel-Aufruf. D.h. konkret, dass durch den Code-Schutz (also über die Projekteigenschaften) im Excel-Inplace kein Code mehr ausgeführt wird (habe ich bereits getestet).
Viele Grüße,
Dirk

SAP = Suche anderes Programm ! owT
13.12.2007 11:21:00
Renee

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige