Hi there
Another alternative, (not as sophisticated), which only allows a value change in a specific cell. Works on the doubleclick event macro (after pasting into the vb editor for the sheet, the password prompt is activated by doubleclicking any cell.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
answer = InputBox("Enter Password", "PASSWORD PROTECTED")
If answer = "password1" Then
ActiveSheet.Unprotect "password3"
[G4].Value = InputBox("enter new value for cell G4", "CHANGE VALUE IN G4")
ActiveSheet.Protect "password3"
Else
If answer = "password2" Then
ActiveSheet.Unprotect "password3"
[G4].Value = InputBox("enter new value for cell G4", "CHANGE VALUE IN G4")
ActiveSheet.Protect "password3"
Else
ActiveSheet.Protect "password3"
Exit Sub
End If
End If
End Sub
regards
Derek