Solved: Unprotect with input box

[sujittalukde]

I am using the following two codes for protecting and unprotecting sheets. The protecting code is working well but for unprotecting the sheet, I am facing problem:
The problem is that even if the user clicks cancel, the sheet gets unprotected. I want that unprotection shall not happen on clicking cancel.


Sub save()
ActiveSheet.Protect Password:="qwe"
End Sub



Sub modify()
InputBox "YOur code", "Modify"
ActiveSheet.Unprotect Password:="qwe"
End Sub

[Bob Phillips]

Sub modify()
Dim ans
ans = InputBox("YOur code", "Modify")
If ans <> "" Then ActiveSheet.Unprotect Password:="qwe"
End Sub

[sujittalukde]

Thanks xld, its fully working

[sujittalukde]

One error found, if the password doesnot match with the password set to protect the sheet, it is unprotecting the sheet. ie Putting any value to the input box unprotecting the sheet. It is not unprotecting if the inoput box is kept blank.

How this can be fixed?

[Bob Phillips]

[vba]
Sub modify()
Const myPwd as String = "qwe"
Dim ans
ans = InputBox("YOur code", "Modify")
If ans <> "" Then
If ans = myPwd Then ActiveSheet.Unprotect Password:=myPwd

End Sub

[Bob Phillips]

Sub modify()
Const myPwd as String = "qwe"
Dim ans
ans = InputBox("YOur code", "Modify")
If ans <> "" Then
If ans = myPwd Then ActiveSheet.Unprotect Password:=myPwd
End If
End Sub

[sujittalukde]

Thanks. I rectified the End If before your last final code. Anyway Thanks