HunterN
Active Member
- Joined
- Mar 19, 2002
- Messages
- 479
I have to do this in VBA code because I am using UserForms to allow the option of MODIFY.
Once the user chooses to modify the list I want the to be able to modify everything but the first column. I have a total of four columns.
This is what I coded. It worked on a stand alone worksheet, but not within my Excel system that I have built. The user does not have access to the taskbar or formula bar until they press the MODIFY button.
Sub Modify_click()
Worksheets("MCAR Project List").Unprotect
Range("A3").Select
Range(ActiveCell, ActiveCell.End (xlDown)).Select
Selection.Locked = True
Selection.FormulaHidden = True
bottomRw = Application.CountA (ActiveSheet.Range("A:A"))
ActiveSheet.Range(Cells(2, 2), Cells(bottomRw, 4)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("A1:D1").Select
ActiveSheet.Protect Contents:=True, Scenarios:=True
End Sub
Thanks for looking at it! Nancy
Once the user chooses to modify the list I want the to be able to modify everything but the first column. I have a total of four columns.
This is what I coded. It worked on a stand alone worksheet, but not within my Excel system that I have built. The user does not have access to the taskbar or formula bar until they press the MODIFY button.
Sub Modify_click()
Worksheets("MCAR Project List").Unprotect
Range("A3").Select
Range(ActiveCell, ActiveCell.End (xlDown)).Select
Selection.Locked = True
Selection.FormulaHidden = True
bottomRw = Application.CountA (ActiveSheet.Range("A:A"))
ActiveSheet.Range(Cells(2, 2), Cells(bottomRw, 4)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("A1:D1").Select
ActiveSheet.Protect Contents:=True, Scenarios:=True
End Sub
Thanks for looking at it! Nancy