How do I protect this cells when an user clicks the commandbutton?


Private Sub Commandbutton_Click()
If Range("E7") < "" And Range("F7") < "" And Range("G7) "" Then
ActiveWorkbook.Save
Else
MsgBox "Unable to book! Complete ALL Fields"
End If
End Sub


I Tried... Range("E7").Locked = True.... but I'm not getting th
expected outcome. Any ideas?

- Larry -
VBA Amateu

--
Message posted from http://www.ExcelForum.com

Nevermind! I Got it

ActiveSheet.Unprotect
Range("E7").Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True
Scenarios:=True

- Larry -
VBA Amateu

--
Message posted from http://www.ExcelForum.com