Top-Themen

Aktuelle Themen (A bis Z)

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

Excel: Zelle nach Eintrag sperren und beim schliessen sichern

Mitglied: clutcher

clutcher (Level 1) - Jetzt verbinden

31.08.2014 um 16:36 Uhr, 2495 Aufrufe, 3 Kommentare

Hallo ihr wissenden

Ich möchte gerne in der Zelle C2 eine dreistellige Zahl eintragen und diese mit der Entertaste sperren. Anschliessend soll beim schliessen des Arbeitsblattes es gesichert werden.
Beim nächsten öffnen des Arbeitsblattes wird Zelle C3 gleich wie oben bearbeitet.
Anschliessend Zell C5 und C6
Anschliessend Zell C8 und C9
Anschliessend Zell C11 und C12
Anschliessend Zell C14 und C15
Im weitern möchte ich dieses Arbeitsblatt kopieren, d.h die VBA müssen auch der "Kopie" funktionieren.
Danke für Eure Hilfe
Mitglied: emeriks
31.08.2014 um 19:26 Uhr
Hi,
zeichne einfach ein Makro auf und gut ist. Dabei werden die Befehle generiert und Du musst das dann ggf. nur etwas anpassen möchten.
Doch da Du ja nicht verrätst, wass Du hast, kann ich Dir auch nicht sagen, was Du jetzt brauchst.

E.
Bitte warten ..
Mitglied: colinardo
31.08.2014, aktualisiert um 20:02 Uhr
Hallo clutcher, Willkommen auf Administrator.de!
Schau es dir in diesem Demo-Sheet ab :Demo_Lock_Cells_247920.xlsm.
Achtung: Die Events sind sofort aktiv, d.h. es wird das Sheet in dem Zustand ohne Nachfrage gespeichert wenn du es schließt! Wenn du das für die Entwurfsphase des Sheets verhindern willst, schalte im Makro-Editor den Entwurfsmodus ein (das Icon mit dem Geodreieck und dem Stift).
Die Zellen die im jeweiligen Sheet anfänglich bearbeitet werden dürfen müssen in den Eigenschaften der Zelle auf dem Tab Schutz freigegben werden. Die Funktion ist im jetzigen Zustand für jedes Arbeitsblatt in der Arbeitsmappe aktiv und versieht die gewünschten Zellen mit einem Schreibschutz sobald die Zelle den Bearbeitungsmodus verlässt.

01.
Private Sub Workbook_BeforeClose(Cancel As Boolean) 
02.
    'Als gespeichert festlegen damit keine Nachfrage von Excel kommt 
03.
    ActiveWorkbook.Saved = True 
04.
    'Speichere das Sheet automatisch bevor es geschlossen wird 
05.
    ActiveWorkbook.Save 
06.
End Sub 
07.
 
08.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 
09.
    Dim ws As Worksheet, changeRange As Range 
10.
    'Arbeitsblatt auf dem die Änderung vorgenommen wird 
11.
    Set ws = Sh 
12.
    'Bereich der überwacht wird 
13.
    Set changeRange = ws.Range("C2,C3,C5,C6,C8,C9,C11,C12,C14,C15") 
14.
    'Wenn eine Änderung an einer Zelle vorgenommen wird die in der Liste steht ... 
15.
    If Not Application.Intersect(changeRange, Target) Is Nothing Then 
16.
        If ws.ProtectContents = True Then 
17.
            'Wenn das Sheet geschützt ist entferne kurzfristig den Schutz um die Zelle als gesperrt festzulegen. 
18.
            ws.Unprotect "" 
19.
            Target.Locked = True 
20.
        Else    'Sheet ist ungeschützt 
21.
            Target.Locked = True 
22.
        End If 
23.
        'aktiviere den Blattschutz mit leerem Kennwort 
24.
        ws.Protect "", Contents:=True 
25.
    End If 
26.
End Sub
Grüße Uwe
Bitte warten ..
Mitglied: clutcher
02.09.2014 um 19:49 Uhr
Hallo Uwe

Ich habe dein Code verwendet und ich denke es funktioniert. Ich werde übers Wochende die Tabelle vervollständigen. Voresrt vielen Dank für die Hilfe, wenn Tabelle komplett, werde ich Vollzug vermelden.
LG Walter
Bitte warten ..
Ähnliche Inhalte
Windows 7

VBA in Excel, Einträge von diversen Zellen löschen

gelöst Frage von 116408Windows 72 Kommentare

Hallo Bin neu im Forum und habe gleich eine (für mich) happige Aufgabe :-) Ich habe ein Aufnahmeblatt geschaffen, ...

Microsoft Office

Excel Tabellenblattname in Zelle schreiben

gelöst Frage von abuelitoMicrosoft Office8 Kommentare

Hallo an Alle, ich habe folgendes Problem: Ich habe eine Exceltabelle immer mit unterschiedlichen Zeilen und möchte gerne den ...

Microsoft Office

Excel Zellen übernehmen

gelöst Frage von Florian86Microsoft Office3 Kommentare

Hallo, ich möchte Daten von einem Tabellenblatt per Makro auf ein anderes übernehmen. Jetzt habe ich folgendes gemacht Sub ...

Microsoft Office

Excel formatierte Zellen summieren

gelöst Frage von Florian86Microsoft Office1 Kommentar

Hallo, ich möchte das Excel anhand der Schriftfarbe gewisse Werte summiert. Folgendes habe ich schon getan. Public Function summerot(ByVal ...

Neue Wissensbeiträge
Windows 10

USB Maus und Tastatur versagen Dienst unter Windows 10

Erfahrungsbericht von hardykopff vor 1 StundeWindows 10

Da steht man ziemlich dumm da, wenn der PC sich wegen fehlender USB Tastatur und Maus nicht bedienen lässt. ...

Administrator.de Feedback
Update der Seite: Alles zentriert
Information von Frank vor 4 StundenAdministrator.de Feedback8 Kommentare

Hallo User, die größte Änderung von Release 5.8 ist das Zentrieren der Webseite (auf großen Bildschirmen) und ein "Welcome"-Teaser ...

Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 21 StundenHumor (lol)4 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 1 TagGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Heiß diskutierte Inhalte
Server-Hardware
Welche Rolle spielt Design bei Enterprise IT Hardware?
Frage von ApolloXServer-Hardware17 Kommentare

Ich arbeite für einen internationalen Elektronikhersteller in der Forschung und meine Aufgabe ist es, Feedback von Nutzern in Hinsicht ...

Windows Netzwerk
WSUS4 und Windows 10 Updates automatisch installieren
Frage von sammy65Windows Netzwerk15 Kommentare

Hallo miteinander, ich habe mit einen neuen WSUS Server aufgesetzt Server 2016 darauf einen aktuellen WSUS. Grund, wir stellen ...

Switche und Hubs
Cisco SG350X-48 AdminIP in anderes VLAN
Frage von lcer00Switche und Hubs14 Kommentare

Hallo zusammen, ich habe ein Problem mir einem Cisco SG350X-48 bei der Erstinstallation wurde eine IP 192.168.0.254 (Default VLAN ...

Speicherkarten
Vergessliche USB-Sticks?
Frage von hanheikSpeicherkarten14 Kommentare

Ich habe in den letzten Tagen 500 USB-Sticks mit Bilddateien bespielt. Obwohl ich die Dateien mit größter Sorgfalt kopiert ...