Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Zelle nach erster Eingabe schreibschützen

Frage Microsoft Microsoft Office

Mitglied: viewpoint

viewpoint (Level 1) - Jetzt verbinden

22.08.2007, aktualisiert 16:29 Uhr, 14421 Aufrufe, 3 Kommentare

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!
Mitglied: bastla
22.08.2007 um 16:12 Uhr
Hallo viewpoint!

Ein Beispiel für die gesamte Spalte B:
01.
Private Sub Worksheet_Change(ByVal Target As Range) 
02.
If Target.Column = 2 Then 'Spalte B 
03.
    If Target.Value <> "" Then 
04.
        ActiveSheet.Unprotect "Pass" 
05.
        Target.Locked = True 
06.
        ActiveSheet.Protect Password:="Pass", DrawingObjects:=True, Contents:=True, Scenarios:=True, _ 
07.
            AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True 
08.
 
09.
    End If 
10.
End If 
11.
End Sub
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
Bitte warten ..
Mitglied: viewpoint
22.08.2007 um 16:18 Uhr
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!
Bitte warten ..
Mitglied: bastla
22.08.2007 um 16:29 Uhr
Hallo viewpoint!

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
Bitte warten ..
Ähnliche Inhalte
Windows 10
Windows 10 Wilkommensbildschirm bei erster Anmeldung deaktiveren (12)

Frage von alemanne21 zum Thema Windows 10 ...

Batch & Shell
gelöst PowerShell: Umbenennung erster 2 Zahlen (1)

Frage von janelsaesser zum Thema Batch & Shell ...

Microsoft Office
gelöst Excel VBA In Userform Maske Text nach Eingabe löschen (1)

Frage von kluthi69 zum Thema Microsoft Office ...

JavaScript
PDF Formularfelder schützen nach Eingabe und Speichern (1)

Frage von Ohh33s zum Thema JavaScript ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Windows Systemdateien
NTFS und die Defragmentierung (23)

Frage von WinLiCLI zum Thema Windows Systemdateien ...

LAN, WAN, Wireless
Zwei Subnetze mit je eigenem Router und Internetzugang verbinden (17)

Frage von hannsgmaulwurf zum Thema LAN, WAN, Wireless ...

Windows Server
WIndows Server 2016 core auf dem Intel NUC NUC5i5RYK i5 5250U (17)

Frage von IxxZett zum Thema Windows Server ...