ingevoerde lijn goedkeuren dmv password

[Nilsh]

hallo iedereen,

Ik heb het volgend probleem:

Ik heb een log sheet gemaakt via vba, waarin alle veranderingen binnen een project kunnen worden bijgehouden. Iedereen binnen de organisatie kan deze lijst vullen, maar de project manager zou zijn goedkeuring achteraf moeten geven.

Het idee was, ik maak een knop (approve) en deze is password protected (pw = Password). Daarna moet de project manager de lijn selecteren en heeft een keuze uit approve of reject.

Kiest de project manager voor approve, dan moet er op dezelfde lijn in kolom E, zijn username komen. Kiest hij reject, moet er op dezelfde lijn in kolom E er rejected komen te staan.

Ik ben al een aantal dagen aan het zoeken naar een oplossing, maar kan dit nergens vinden. Kan iemand van jullie hier bij helpen?

Alvast bedankt


Bekijk bijlage voorbeeld.xlsm

 

[Nilsh]

Ik zie net dat het voorbeeld niet werkt. Hier staat het juiste voorbeeld

 

[VenA]

Probeer het zo eens.

Private Sub CommandButton1_Click()
If OBapprove + OBreject = -1 And ComboBox1.ListIndex <> -1 Then
    Sheets("log sheet").[E9].Offset(ComboBox1.ListIndex) = IIf(OBapprove, Environ("Username"), "rejected")
    Unload Me
  Else
    MsgBox "Vul wat in"
End If
End Sub

 

[Nilsh]

werkt perfect. Bedankt