Formatting cells on unlocked range on protected sheet

krissibacon

New Member
Joined
Sep 29, 2006
Messages
1
Hi I am creating a spreadsheet, that hides certain rows when a radio button is pressed. Also certain rows need to be protected, and some rows still available for the user to update (text, Checkboxes, borders). I have used a macro attached to do the protection and row hiding and have used the Range option are under the protection menu to allow the rows I need to be available for edit.

My problem lies is in the area available for editing, as I cannot place a check box, or format the cells, I however do not want these actions to be available in the protected area of the worksheet.

Sub Contractor()
'
' Contractor Macro
'

Sheets("Day 1").Select
ActiveSheet.Protect Password:="checklist", Contents:=True, Scenarios:=True, DrawingObjects:=True
Sheets("Week 1").Select
ActiveSheet.Unprotect Password:="checklist"
Rows("11:11").Select
Range("B11").Activate
Selection.EntireRow.Hidden = True
Rows("42:44").Select
Range("B42").Activate
Selection.EntireRow.Hidden = Tru
ActiveSheet.Protect Password:="checklist", Contents:=True, Scenarios:=True, DrawingObjects:=True
Sheets("Month 1").Select
ActiveSheet.Unprotect Password:="checklist"
Rows("12:12").Select
Selection.EntireRow.Hidden = True
Rows("18:22").Select
Selection.EntireRow.Hidden = True
Rows("28:28").Select
Selection.EntireRow.Hidden = True
ActiveSheet.Protect Password:="checklist", Contents:=True, Scenarios:=True, DrawingObjects:=True
Sheets("Demographics").Select

End Sub

Sub Staff()
'
' Staff Macro
'
'
Sheets("Week 1").Select
ActiveSheet.Unprotect Password:="checklist"
Rows("11:11").Select
Range("B11").Activate
Selection.EntireRow.Hidden = False
Rows("42:44").Select
Range("B42").Activate
Selection.EntireRow.Hidden = False
ActiveSheet.Protect Password:="checklist", Contents:=True, Scenarios:=True
Sheets("Month 1").Select
ActiveSheet.Unprotect Password:="checklist"
Rows("12:12").Select
Selection.EntireRow.Hidden = False
Rows("18:22").Select
Selection.EntireRow.Hidden = False
Rows("28:28").Select
Selection.EntireRow.Hidden = False
ActiveSheet.Protect Password:="checklist", Contents:=True, Scenarios:=True
Sheets("Day 1").Select
ActiveSheet.Protect Password:="checklist", Contents:=True, Scenarios:=True
Sheets("Demographics").Select
End Sub
 

Excel Facts

Excel motto
Not everything I do at work revolves around Excel. Only the fun parts.

Forum statistics

Threads
1,140,937
Messages
5,703,256
Members
421,289
Latest member
fbohlandt

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top