3
Zelle nach erster Eingabe schreibschützen
Zelle soll nur einmal beschreibbar sein
Hallo!
Wieder mal eine Frage...
Ich habe mittlerweile eine sehr große Excel Liste (die eigentlich schon Datenbank-würdig wäre) mit der mehrere Leute arbeiten.
Die Datei hat mehrere Spalten, aber eine davon soll nur einmal beschreibbar sein und dann schreibgeschützt werden.
Optimal wäre es, wenn man durch ein Passwort erst die Zelle wieder bearbeiten kann - optional würde ich Makros beim Öffnen einfach nicht aktivieren.
Besten Dank schon im Voraus für eure Hilfe!
Wieder mal eine Frage...
Ich habe mittlerweile eine sehr große Excel Liste (die eigentlich schon Datenbank-würdig wäre) mit der mehrere Leute arbeiten.
Die Datei hat mehrere Spalten, aber eine davon soll nur einmal beschreibbar sein und dann schreibgeschützt werden.
Optimal wäre es, wenn man durch ein Passwort erst die Zelle wieder bearbeiten kann - optional würde ich Makros beim Öffnen einfach nicht aktivieren.
Besten Dank schon im Voraus für eure Hilfe!
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 66833
Url: https://administrator.de/contentid/66833
Printed on: April 19, 2024 at 15:04 o'clock
3 Comments
Latest comment
Hallo viewpoint!
Ein Beispiel für die gesamte Spalte B:
Der Code muss dem Blatt zugewiesen werden, was Du am einfachsten über einen Rechtsklick auf das Blattregister und "Code anzeigen" erreichst.
Damit das Programm die Zelle sperren kann, muss vorübergehend der Blattschutz aufgehoben werden, wozu das entsprechende Passwort (im Beispiel oben: "Pass") im Programm als Klartext hinterlegt werden muss.
Wie Dir sicher bekannt ist (aber zu beachten wäre): In der Standardeinstellung sind alle Zellen einer Tabelle geschützt und daher muss zunächst für die übrigen Zellen (Spalten) über "Format / Zellen... / Schutz" der Haken bei "Gesperrt" entfernt werden.
Grüße
bastla
Ein Beispiel für die gesamte Spalte B:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then 'Spalte B
If Target.Value <> "" Then
ActiveSheet.Unprotect "Pass"
Target.Locked = True
ActiveSheet.Protect Password:="Pass", DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True
End If
End If
End SubDamit das Programm die Zelle sperren kann, muss vorübergehend der Blattschutz aufgehoben werden, wozu das entsprechende Passwort (im Beispiel oben: "Pass") im Programm als Klartext hinterlegt werden muss.
Wie Dir sicher bekannt ist (aber zu beachten wäre): In der Standardeinstellung sind alle Zellen einer Tabelle geschützt und daher muss zunächst für die übrigen Zellen (Spalten) über "Format / Zellen... / Schutz" der Haken bei "Gesperrt" entfernt werden.
Grüße
bastla
Das funktioniert perfekt! Besten Dank!
Will man die Zelle nun ändern, kommt ein Hinweis.. Lässt sich statt diesem Hinweis eine definierte Meldung einbauen?
Oder noch besser... Die Passwortabfrage zum Ändern der Zelle?
Danke!
Will man die Zelle nun ändern, kommt ein Hinweis.. Lässt sich statt diesem Hinweis eine definierte Meldung einbauen?
Oder noch besser... Die Passwortabfrage zum Ändern der Zelle?
Danke!
Hallo viewpoint!
Grüße
bastla
Will man die Zelle nun ändern, kommt ein Hinweis.. Lässt sich statt diesem Hinweis eine definierte Meldung einbauen? Oder noch besser... Die Passwortabfrage zum Ändern der Zelle?
An sich müsstest Du nur den "gewöhnlichen" Excel-Blattschutz aufheben ("Extras / Schutz > Blattschutz aufheben...") - allerdings wird nach einer Eingabe in Spalte B dieser wieder gesetzt, sodass Du für größere Änderungen in der geschützten Splate vorübergehend im Code die "ActiveSheet.Protect ..."-Zeile mit einem vorangestellten "Rem" (oder Apostroph) deaktivieren könntest.Grüße
bastla
