Kann mir jemand helfen? Wie kann ich Zellen mit einem bestimmten Passwort schützen, welches nachgefragt wird sobald ich in eine Zelle etwas schreiben will?
Wär klasse wenn mir jemand helfen könnte!
Lieben Gruß Benny
Option Explicit
Private Sub worksheet_change(ByVal target As Range)
Dim w
If Not Intersect(target, Range("B3")) Is Nothing Then
Application.EnableEvents = False
w = InputBox("Passwort?")
If w "pass" Then Application.Undo
End If
Application.EnableEvents = True
End Sub
Die Abfrage wäre jetzt für Zelle B3, das musst du auf deine Tabelle anpassen. Den Code müsste man dann im VBA-Editor noch per Kennwort schützen, da ja das Passwort offen drin steht.
Das Ganze ist für einen sehr guten Excel-Kenner leicht zu 'knacken', für einen DAU sollte es aber reichen.
Rückmeldung wäre nett.
Gruß
David
Private Sub worksheet_change(ByVal target As Range)
Dim w
If Not Intersect(target, Range("B3")) Is Nothing Then
Application.EnableEvents = False
w = InputBox("Passwort?")
If w "pass" Then Application.Undo
End If
Application.EnableEvents = True
End Sub
Private Sub worksheet_change(ByVal target As Range)
Dim w
If Not Intersect(target, Range("A1:A12")) Is Nothing Then
Application.EnableEvents = False
w = InputBox("Passwort?")
If w "Horst" Then Application.Undo
End If
Application.EnableEvents = True
End Sub
Grüße,
Klaus M.vdT.