You can use the following code on command click event ....

If MsgBox("Your Message.....", vbYesNo) = vbYes Then
Columns("A:A").Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If

:) have fun!!!!!!!

Gaurav Kothari



"FARAZ QURESHI" wrote:

Dear friends your expertise is required for a piece of code that would be
attached with a button which upon being clicked shall ask in a msgbox:
"You sure the information is complete and correct?"
and upon clicking the "YES" all the entries would be frozen / cells locked,
except for a column A:A.

Thanx Guys!!!