ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   protecting sheets (https://www.excelbanter.com/excel-discussion-misc-queries/232333-protecting-sheets.html)

Christina

protecting sheets
 
i have multiple sheets in my workbook. i need to allow certain cells to be
allowed to edit and protect the rest. i need to do the same cells in all the
sheets. is there any quicker way to do this besides going through each
worksheet and clicking on the cells allowed to edit then protecting it... i
need to know if there is some what to do like one and apply to the rest...

Luke M

protecting sheets
 
Sure thing. Select the first sheet, and then, holding SHIFT, click that last
sheet tab. You now have all the sheets selected. (alternatively, you can use
CTRL to individually select worksheets) Now, select the cells in the current
visible worksheet, format, uncheck the locked option.

Unfortunately, this still requires you to go to each sheet and activate the
protection, unless you want to setup a macro to do it for you. You could then
assign a keyboard shortcut(Alt+F8, options) to the macro to make the whole
process slightly faster.
Basic protection macro:

Sub ProtectMe()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
--
Best Regards,

Luke M
*Remember to click "yes" if this post helped you!*


"christina" wrote:

i have multiple sheets in my workbook. i need to allow certain cells to be
allowed to edit and protect the rest. i need to do the same cells in all the
sheets. is there any quicker way to do this besides going through each
worksheet and clicking on the cells allowed to edit then protecting it... i
need to know if there is some what to do like one and apply to the rest...


Gord Dibben

protecting sheets
 
All sheets protection macro with password.

Sub ProtectAllSheets()
Application.ScreenUpdating = False
Dim N As Single
For N = 1 To Sheets.Count
Sheets(N).Protect Password:="justme"
Next N
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP

On Fri, 29 May 2009 11:31:01 -0700, Luke M
wrote:

Sure thing. Select the first sheet, and then, holding SHIFT, click that last
sheet tab. You now have all the sheets selected. (alternatively, you can use
CTRL to individually select worksheets) Now, select the cells in the current
visible worksheet, format, uncheck the locked option.

Unfortunately, this still requires you to go to each sheet and activate the
protection, unless you want to setup a macro to do it for you. You could then
assign a keyboard shortcut(Alt+F8, options) to the macro to make the whole
process slightly faster.
Basic protection macro:

Sub ProtectMe()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub




All times are GMT +1. The time now is 04:26 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com