Zellbereiche schützen durch Abfrage

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: Zellbereiche schützen durch Abfrage
von: icke
Geschrieben am: 22.05.2002 - 12:35:47

hi,
habe folgendes Problem: 1.ich hab ein Wort gegeben in bestimmten Zelle -> Zellbereich wird geschützt
2. anderes Wort wird eingegeben-> Zellbereich wird freigegeben
nach oben   nach unten

Re: Zellbereiche schützen durch Abfrage
von: Martin Beck
Geschrieben am: 22.05.2002 - 16:53:49

Hallo Icke,

weise dem Tabellenblatt folgenden Code für das Change-Ereignis zu:


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then
    If Target = "Schutz" Then
        ActiveSheet.Protect
    ElseIf Target = "Frei" Then
        ActiveSheet.Unprotect
    Else
        MsgBox "Falsches Codewort"
    End If
End If
End Sub

Wird in A1 "Schutz" eingetragen, wird das Blatt geschützt, bei "Frei" wird der Schutz aufgehoben und bei anderen Eintragungen in A1 erscheint eine Fehlermeldung. Die Zelle A1 muß ungeschützt sein.

Gruß
Martin Beck

P.S. Lies mal die FAQ zu Nicknames.

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Zellbereiche schützen durch Abfrage"