|Ok, what I need seems to be easy but I cant get to the correct code.|
All I need is to "lock" cell G33.
The form is password protected and i alerady have the the unprotect at the beginning and protect at the end. I Just need to LOCK Cell G33 after running the macro.
G33 is a merged cell if that makes a difference... it is "G33:I33" the cell I want to lock
What am I doing wrong?
Dim attachmateapp As Object
Dim currsession As Object
Dim myscreen As Object
Dim screenname As String
Dim locationCode As String
Set attachmateapp = CreateObject("Extra.System")
Set currsession = attachmateapp.Activesession
Set myscreen = currsession.Screen
'Dont allow checks to be added after running the macro
ActiveSheet.Cells.Locked = False
ActiveSheet.Range("G33").Locked = True
Thanks for the help everyone