Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1648to1652
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1648to1652
1648to1652
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen automatisch nach Datum sperren

Zellen automatisch nach Datum sperren
16.10.2018 19:03:50
Benedict
Hallo zusammen!
In meiner Zeiterfassungstabelle https://www.herber.de/bbs/user/124667.xlsx sind in A4:A369 die Daten, in E4:E369 die Abwesenheiten, in H4:K369 jeweils Beginn und Ende der Arbeit. Nun möchte ich die Zellen (Zeilen) früherer Daten automatisch sperren, idealerweise mit "Freiheit" zwei Arbeitstage zurück für die Uhrzeiten, 14 Tage für die Abwesenheiten. Der Rest der Tabelle ist gesperrt, das Blatt geschützt (jetzt natürlich nicht!).
Mit VBA kenne ich mich nicht aus, habe in div. Foren gesucht, konnte lediglich direkt nach Eingabe sperren - aber das liess auch unmittelbar nach Fehleingabe keine Korrektur zu. Und aus den Beispielen schaffe ich nicht, selbst einen Code zu erstellen. Kann mir jemand symbolisch gütig unter die Arme greifen?
Herzlichen Dank!
Benedict

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen automatisch nach Datum sperren
16.10.2018 19:40:57
Hajo_Zi
Hallo Benedict,
das geht nicht, da eine XLSX Datei kein Makro enthalten kann.
Ich sehe keinen Grund eine Datei 2x zu speichern. Ich führe keine Liste unter welchem Dateinamen ich die Datei gespeichert habe.

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
AW: Zellen automatisch nach Datum sperren
17.10.2018 11:34:50
UweD
Hallo
Da das Blatt geschützt werden soll, und das Makro trotzdem Änderungen vornehmen darf,
muss der Schutz mit der Option userinterfaceonly vorgenommen werden.
Das geht mit diesem Code
in ein Modul
Sub Sperren()
    Sheets("Zeiterfassung").Protect userinterfaceonly:=True
End Sub

das hier muss in DieseArbeitsmappe
Dann läuft das beim Starten automatisch ab
Microsoft Excel Objekt DieseArbeitsmappe 
Option Explicit 
 
Private Sub Workbook_Open() 
    Dim TB, RDaten As Range, RAbw As Range, RBegEnd As Range, TMP As Range 
    Dim iAbw As Integer, iBegEnd As Integer, iVon As Integer, iBis As Integer 
    Set TB = Sheets("Zeiterfassung") 
    Set RDaten = TB.Range("A4:A369") 
    Set RAbw = TB.Range("E4:E369") 
    Set RBegEnd = TB.Range("H4:K369") 
    iAbw = 14 
    iBegEnd = 2 
     
    'Reset 
    RAbw.Locked = True 
    RBegEnd.Locked = True 
     
    iVon = WorksheetFunction.Match(CDbl(Date - iAbw), RDaten, 1) 
    iBis = WorksheetFunction.Match(CDbl(Date), RDaten, 1) 
    RAbw.Offset(iVon - 1, 0).Resize(iBis - iVon + 1, 1).Locked = False 
     
    iVon = WorksheetFunction.Match(CDbl(Date - iBegEnd), RDaten, 1) 
    RBegEnd.Offset(iVon - 1, 0).Resize(iBis - iVon + 1, 1).Locked = False 
     
End Sub

LG UweD
Anzeige
AW: Zellen automatisch nach Datum sperren
17.10.2018 20:46:10
Benedict
Hallo UweD
Herzlichen Dank für Deine Antwort - ich bin am Blut lecken, VBA zu lernen :-) !
Benedict
Danke für die Rückmeldung owT
17.10.2018 20:58:19
UweD
AW: Danke für die Rückmeldung owT
18.10.2018 14:28:02
Benedict
Hallo UweD
Mein erster Code läuft - juhu! Vielleicht habe ich ein wenig umständlich programmiert, aber es läuft nun richtig prima. Ich hätt dennoch zwei Fragen an den Experten:
1) gibt es eine Möglichkeit, den Code verlässlich zu schützen? Im Forum und sonstwo tönts ja ziemlich witzlos, da ein PW nichts tauge... echt?
2) Wozu ist das Modul 
Sub Sperren()
Sheets("Zeiterfassung").Protect UserInterfaceOnly:=True
End Sub
? Wenn ich es lösche, scheint nichts zu passieren, ich kann gleichwohl die Mappe öffnen, ändern etc.
Nochmal herzlichen Dank, ohne Deinen Anschub wäre ich nicht so weit gekommen!
Benedict
Anzeige
AW: Danke für die Rückmeldung owT
18.10.2018 15:07:26
UweD
1)
- ja, stimmt. Die bestehenden Mittel schrecken nur die Standarduser ab
2)
- Das Sperren von Zellen ist nur wirksam, wenn das Blatt selbst danach gesperrt wird.
- Wenn das so ist, kann den Benutzer, aber AUCH kein VBA- code diese Veränderungen vorzunehmen
- Du hast also 2 Möglichkeiten
= im Code am Anfang das Blatt entsperren, den Code abarbeiten und am Ende wieder sperren
= oder beim Sperren des Blattes die Option "UserInterfaceOnly:=True" zu benutzen
= damit ist der User gesperrt, VBA kann aber ändern
ich kann gleichwohl die Mappe öffnen, ändern etc.
dann hast du beim ersten Sperren des Blattes zu viele Optionen zugelassen
LG UweD
Anzeige
AW: Danke für die Rückmeldung owT
18.10.2018 15:27:49
Benedict
Option Explicit
Private Sub Workbook_Open()
ActiveSheet.Unprotect Password:="1234"
If Sheets("Zeiterfassung").Cells(370, 13) = "0" Then
ActiveSheet.Protect Password:="1234"
Else:
End If
End Sub
So sperrt es mir das Blatt, wenn ich die Anfangsangaben eingetragen habe (Kontrolle in M370), vorher bleibts offen. Echt cool, so Spielereien mit Bezug zum richtigen Leben. Nochmal und abschliessend Danke!
AW: Danke für die Rückmeldung owT
18.10.2018 15:58:53
UweD
Hallo
dann aber bitte so..
Falls du mal auf einem anderen Blatt bist und die Datei schließt
Private Sub Workbook_Open()
    With Sheets("Zeiterfassung")
        .Unprotect Password:="1234"
    
        If .Cells(370, 13) = "0" Then
    
        '.... 
    
        .Protect Password:="1234"
        Else:
    
        End If
    End With
End Sub
LG UweD
Anzeige

304 Forumthreads zu ähnlichen Themen

Felder mit Datum und Uhrzeit vergleichen?
Lauren

Hallo zusammen,
neues Thema neues Glück :)
Nachdem mir bei meinem letzten Projekt tatkräftig geholfen wurde und ich auch das Projekt erfolgreich beenden konnte hier eine neue Problematik an der ich hängengeblieben bin.
Es sind folgende Saplten vorhanden
Spalte A = Datumanfang in...
16.09.2008 16:24:00
Thread-ID: 1010159
6 Beiträge
Anzeige
Sortieren nach Datum
Carolina

Hallo alle zusammen,
will ne Tabelle nach Datum sortieren, leider sortiert er nur Daten zwischen dem 1.1.1900 und dem 31.12.2029
Kann man das irgendwie änden? Es stehen auch Daten aus dem 19. Jahrhundert drin.
Schöne Grüße aus Rom
Carolina
24.09.2008 09:37:02
Thread-ID: 1011947
2 Beiträge
Tabelle nach Anzahl sortieren
Pascal

Hallo,
wie kann ich eine Tablle nach der Anzahl der Wörter in einer Spalte sortieren?
Die Tabelle sieht etwa so aus:
Spalte1 | Spalte2 | Spalte 3
1 | der die | ...
2 | der | ...
3 | der die das | ...
und aussehen soll...
25.09.2008 11:50:39
Thread-ID: 1012284
6 Beiträge
Anzeige
Datum sortieren ohne Berücksichtigung Jahreszahl
fraubi

Hi,
ich versuche mir einen Geburtstagskalender zu bauen. Dabei habe ich Probleme mit der Sortierung des Geburtsdatums, da das Geburtsjahr bei der Sortierung nicht berücksichtigt werden soll. Wenn ich die Geburtstage sortiere dann sieht das immer so aus :
30.04.1964 Andreas Müller
22...
03.11.2008 17:38:32
Thread-ID: 1021394
2 Beiträge
NAch Jahrgängen sortieren
Baywatch

HI Ecxelexperten,
habe eine kleine Frage, ich habe bis jetzt ein Proramm gehabt, indem Teilnehmer nach ihrem ALter sortert wurden, jetzt muß ich das aber umschreiben, da unser VErein nun nach Jahrgängen sortieren möchte, weiß jemand wie cih die existierende Formel umschreiben muß?
=WENN...
11.11.2008 12:53:00
Thread-ID: 1023520
3 Beiträge
Formel mit Text Datum und wert in Zeitreihe
Karel

Hallo Forum,
Habe ein bezahl blatt mit betragen in eine Spalte wird eingetragen als Text Bezahlt oder Offen wie kann ich an hand von Datum und Text (bezalt oder Offen) diese wert in eine Zeitreihe darstellen ab Zelle i11 und i12
Tabelle1

 BCDEFGHIJKLMN11   &...
19.11.2008 20:37:00
Thread-ID: 1026214
5 Beiträge
Aktuelles Datum und aktuelle Uhrzeit
Herbert

Hallo Experten,
ich möchte gern in Zelle A1 das aktuelle Datum und die aktuelle Uhrzeit ausgegeben habe. So soll es aussehen: "20.11.2008 11:40:04".
Bin als Laie schon ziemlich überfordert und für jede Hilfe dankbar.
Gruß Herbert
20.11.2008 11:38:00
Thread-ID: 1026354
2 Beiträge
Datum und Uhrzeit mit einem Tastendruck
P.

Hallo.
ich möchte eine Art Zeiterfassung einrichten. Hierbei soll mit einem Tastendruck Datum und Uhrzeit in einer Zelle erscheinen. Das für Start, Pausenanfang, Pauseneendeund Ende. Anschließend will ich die verbrauchte Zeit ausrechnen.
Kann mir jemand helfen? Im Archiv habe ich nicht...
06.12.2008 13:05:21
Thread-ID: 1030655
13 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
4
1
5
14
1
2
4
1
12
4
3
1
2
2
4
3
2
1
3
5
16
2
10
13