Eingabe Prüfen und erst zullassen wenn...

Private Sub Worksheet_Change(ByVal Target As Range) Dim Wks As Worksheet Set Wks = ActiveSheet If Target.Address = "$A$1" Then Wks.Unprotect "123" If Target = "doof" Then 'Zelle auf $A$1 eingestellt Range("A1").Locked = True Else Range("A1").Locked = False End If Wks.Protect "123" End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ich werde nur nicht ganz schlau was sich mit Protect und Unprotect in diesem Kontext auf sich hat, da Sie selbst schreiben, dass man nur unter der Eingabe "doof" mehr Rechte erhält. Sie haben in dem geposteten Code genau das Gegenteil geschrieben. Des Weiteren macht die Sperrung einer Zelle keinen Sinn, da diese für gewöhnlich nicht mehr geändert werden kann. Unabhängig hiervon müssen Sie den Eingabewert in der Zelle A1 wieder entfernen. Dies geschieht am besten nach dem Freischalten der zusätzlichen Features. Die untenstehende Variante ist ungeprüft.
Ich habe eine solche Komponente in der Vergangenheit ebenfalls schon eingesetzt um zusätzliche Seiten in einer Multipage auf einem Userform freizuschalten, wenn in eine bestimmte Zelle in bestimmter Text eingegeben wurde.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Wks As Worksheet
Set Wks = Worksheets(ActiveSheet.name)
If Range("A1").Value= "123" Then
'im Prinzip ist der Stadardzugriff nicht durch ein Passwort zu schützen
Wks.unprotect ?
Range("A1").value=""
Elseif Range ("A1").value="Doof" then
'hier erfolgt die Freischaltung der zusätzlichen Features
Wks.Protect ?
Range("A1").value=""
End If
set wks=nothing
End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim pw As String If Target.Address(0, 0) = "A1" Then If Not Target Is Nothing Then If Target.Value = "doof" Then pw = InputBox("Passwort:", "Bitte Passwort eingeben..") If pw = vbNullString Then Application.EnableEvents = False Target = "" Application.EnableEvents = True Exit Sub End If If pw = "Dein Passwort" Then MsgBox "Hier der Code bei korrekter Passworteingabe" Application.EnableEvents = False Target = "" Application.EnableEvents = True Else MsgBox "Das Passwort ist falsch" Application.EnableEvents = False Target = "" Application.EnableEvents = True End If End If End If End If End Sub

Beliebteste Forumthreads (12 Monate)

Eingabe Prüfen und erst zullassen wenn...

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Eingabe Prüfen und erst zullassen wenn...

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread