Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 08:59:38
Bedingte Formatierung
23.04.2024 08:56:21
Mehrzeilige Zellen in einzelne Zeilen aufteilen & auswer
23.04.2024 08:26:15
Rückgabewert mehrere Suchkriterien Datumsbereich
23.04.2024 08:20:37
VBA: Blatt als pdf per Mail. Blatt mit anderen pdfs vereinen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1020to1024
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
1020to1024
1020to1024
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schreibschutz

Schreibschutz
02.11.2008 16:34:18
Ralf
Hallo Leute!
Würde mich freuen wenn mir jemand helfen könnte. Ich möchte erreichen, dass einzelne datierte Tabelle nur zum jeweils eingetragenen Datum beschreibbar sind. Vorher und nachher darf das gesamte Arbeitsblatt nicht beschreibbar sein. Bin über jeden Hinweis dankbar.
MFG
Ralf

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Per VBA : Sheets("Blatt").Protect "passwort"
02.11.2008 16:44:00
NoNet
Hallo Ralf,
das könnte man per VBA lösen. Kopiere dazu die folgenden Makros in das Klassenmodul "DieseArbeitsmappe" im VBA-Editor(Alt+F11) :
VBA-Code:
Private Const strPasswort As String = "XMAS"         'Passwort "XMAS" bitte hier anpassen !
Private Const strBlattname As String = "HeiligAbend" 'Name des Blattes bitte hier anpassen
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'Beim Schliessen der Mappe wird das Blatt immer geschützt !
    Worksheets(strBlattname).Protect strPasswort
End Sub
Private Sub Workbook_Open()
    'Beim Öffnen der Mappe wird das Datum geprüft und das Blatt nur an einem bestimmten Datum entschützt
    With Worksheets(strBlattname)
        If Date = DateSerial(2008, 12, 24) Then 'Datum 24.12.2008 bitte hier anpassen
            .Unprotect strPasswort
        Else
            .Protect strPasswort
        End If
    End With
End Sub
Das Blatt "HeiligAbend" wird nur am 24.12.2008 mit dem Passwort "XMAS" freigegeben, ansonsten immer mit diesem PAsswort geschützt !
Voraussetzung für die Funktionalität ist natürlich, dass beim Öffnen der Mappe die Makros aktiviert werden !
Gruß, NoNet
AW: Schreibschutz
Daniel

Hi
schreibe das Datum, an dem das Tabellenblatt bearbeitet werden darf, in eine Zelle (z.B. A1) und füge dieses Makro ins Modul der Tabelle ein:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Cells(1, 1).Value = Date Then Application.Undo
Application.EnableEvents = True
End Sub


Gruß, Daniel

AW: Schreibschutz
Daniel

Hi
schreibe das Datum, an dem das Tabellenblatt bearbeitet werden darf, in eine Zelle (z.B. A1) und füge dieses Makro ins Modul der Tabelle ein:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Cells(1, 1).Value = Date Then Application.Undo
Application.EnableEvents = True
End Sub


Gruß, Daniel

AW: Schreibschutz
Ralf

Danke Leute, funktioniert bestens.
Anzeige
AW: Schreibschutz
02.11.2008 16:46:00
Daniel
Hi
schreibe das Datum, an dem das Tabellenblatt bearbeitet werden darf, in eine Zelle (z.B. A1) und füge dieses Makro ins Modul der Tabelle ein:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Cells(1, 1).Value = Date Then Application.Undo
Application.EnableEvents = True
End Sub


Gruß, Daniel

AW: Schreibschutz
02.11.2008 16:47:00
Daniel
Hi
schreibe das Datum, an dem das Tabellenblatt bearbeitet werden darf, in eine Zelle (z.B. A1) und füge dieses Makro ins Modul der Tabelle ein:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Cells(1, 1).Value = Date Then Application.Undo
Application.EnableEvents = True
End Sub


Gruß, Daniel

Anzeige
AW: Schreibschutz
02.11.2008 17:10:33
Ralf
Danke Leute, funktioniert bestens.

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige