title image


Smiley Re: poste doch mal was du angepasst hast!__ot
bin net so der freak:



Public lastStrPrivate

Sub Worksheet_Change(ByVal Target As Range)

Dim mesIn

ActiveSheet.Protect UserInterfaceOnly:=True



If Target.Count > 1 Then Exit Sub



If Not Intersect(Target, Range("D11:D18")) Is Nothing Then



If Target.Value "" And lastStr "" Then



mesIn = InputBox("in dieser Zelle ist ein Wert" & Chr(10) _

& "um diesen zu ändern müssen sie ein PW eingeben", "Passwortabfrage")



If mesIn "pass" Then

MsgBox "nenenenene"

Application.EnableEvents = False

Target.Value = lastStr

Application.EnableEvents = True

End If

End If

End If

End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)



If Not Intersect(Target, Range("D11:D18")) Is Nothing Then



lastStr = Target.Value

End If



End Sub









geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: