Thema Datum  Von Nutzer Rating
Antwort
19.05.2020 07:39:36 Einblatt
NotSolved
Blau Tabellen nach festgelegtem Datum sperren
19.05.2020 18:47:58 xlKing
NotSolved
20.05.2020 06:48:40 Einblatt
NotSolved
20.05.2020 15:14:13 Gast64700
NotSolved
25.05.2020 07:32:02 Einblatt
NotSolved
25.05.2020 17:44:58 xlKing
NotSolved
26.05.2020 07:04:29 Einblatt
NotSolved
26.05.2020 20:56:59 xlKing
NotSolved
26.05.2020 21:11:31 xlKing
NotSolved
27.05.2020 07:06:04 Einblatt
NotSolved
02.06.2020 06:42:39 Einblatt
NotSolved
25.05.2020 07:47:39 Gast65649
NotSolved

Ansicht des Beitrags:
Von:
xlKing
Datum:
19.05.2020 18:47:58
Views:
833
Rating: Antwort:
  Ja
Thema:
Tabellen nach festgelegtem Datum sperren

Hallo Einblatt,

der Code dazu könnte z.B. wie folgt aussehen. Er gehört in das Modul "Diese Arbeitsmappe"

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   
  Dim Datum As Range
  Set Datum = Sh.Range("D5")
   
  If IsDate(Datum) And Datum < Date Then
    If Datum.Locked = False Then
      Sh.Unprotect "Passwort"
      Sh.Cells.Locked = True
    End If
    Sh.Protect password:="Passwort"
     
    If Sh.ProtectContents Then
      Do
        Passwort = InputBox("Diese Tabelle ist älter als heute und somit vor Eingabe geschützt. " _
                          & "Geben Sie das Passwort ein, um die Tabelle zu entschützen.")
       
        If Passwort <> "" Then
          On Error GoTo Fehler
            Sh.Unprotect Passwort
          On Error GoTo 0
        End If
      Loop Until Not Sh.ProtectContents Or Passwort = ""
    End If
  End If
   
Exit Sub
 
Fehler:
  MsgBox "Das eingegebene Passwort ist ungültig"
  Resume Next
   
End Sub

Gruß Mr. K.


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
19.05.2020 07:39:36 Einblatt
NotSolved
Blau Tabellen nach festgelegtem Datum sperren
19.05.2020 18:47:58 xlKing
NotSolved
20.05.2020 06:48:40 Einblatt
NotSolved
20.05.2020 15:14:13 Gast64700
NotSolved
25.05.2020 07:32:02 Einblatt
NotSolved
25.05.2020 17:44:58 xlKing
NotSolved
26.05.2020 07:04:29 Einblatt
NotSolved
26.05.2020 20:56:59 xlKing
NotSolved
26.05.2020 21:11:31 xlKing
NotSolved
27.05.2020 07:06:04 Einblatt
NotSolved
02.06.2020 06:42:39 Einblatt
NotSolved
25.05.2020 07:47:39 Gast65649
NotSolved