| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
protect multiple sheets at one time with options
i have 50+ pages to protect. i have the code to protect and unprotect all the
pages at once. my question is: How can i add code so the user to change font, color, etc.. in these protected sheets? any and all help would greatly be appreciated Many thanks in advance. Greg |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
protect multiple sheets at one time with options
If you are using Excel 2003 use the following statement:
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True This is not allowed in lower Excel Versions. -- If this posting was helpful, please click on the Yes button. Regards, Michael Arch. "Greg" wrote: i have 50+ pages to protect. i have the code to protect and unprotect all the pages at once. my question is: How can i add code so the user to change font, color, etc.. in these protected sheets? any and all help would greatly be appreciated Many thanks in advance. Greg |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
protect multiple sheets at one time with options
Thanks for the fast response!
i'm using Office 07 but users are 03 when i inserted your code i was not able to change any formatting. i may have put it in the wrong place. here is the code i'm using now: Sub protect_sheets() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Protect Password:="" Next ws "Michael" wrote: If you are using Excel 2003 use the following statement: ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True This is not allowed in lower Excel Versions. -- If this posting was helpful, please click on the Yes button. Regards, Michael Arch. "Greg" wrote: i have 50+ pages to protect. i have the code to protect and unprotect all the pages at once. my question is: How can i add code so the user to change font, color, etc.. in these protected sheets? any and all help would greatly be appreciated Many thanks in advance. Greg |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
protect multiple sheets at one time with options
Try this:
Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Protect Password:="" ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True Next ws -- If this posting was helpful, please click on the Yes button. Regards, Michael Arch. "Greg" wrote: Thanks for the fast response! i'm using Office 07 but users are 03 when i inserted your code i was not able to change any formatting. i may have put it in the wrong place. here is the code i'm using now: Sub protect_sheets() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Protect Password:="" Next ws "Michael" wrote: If you are using Excel 2003 use the following statement: ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True This is not allowed in lower Excel Versions. -- If this posting was helpful, please click on the Yes button. Regards, Michael Arch. "Greg" wrote: i have 50+ pages to protect. i have the code to protect and unprotect all the pages at once. my question is: How can i add code so the user to change font, color, etc.. in these protected sheets? any and all help would greatly be appreciated Many thanks in advance. Greg |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
protect multiple sheets at one time with options
THANK YOU! that worked great on the unlocked cells can i apply this to locked
cells as well? i have some cells locked so they can not alter the formulas Once again Michael i appreciate all your time. "Michael" wrote: Try this: Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Protect Password:="" ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True Next ws -- If this posting was helpful, please click on the Yes button. Regards, Michael Arch. "Greg" wrote: Thanks for the fast response! i'm using Office 07 but users are 03 when i inserted your code i was not able to change any formatting. i may have put it in the wrong place. here is the code i'm using now: Sub protect_sheets() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Protect Password:="" Next ws "Michael" wrote: If you are using Excel 2003 use the following statement: ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True This is not allowed in lower Excel Versions. -- If this posting was helpful, please click on the Yes button. Regards, Michael Arch. "Greg" wrote: i have 50+ pages to protect. i have the code to protect and unprotect all the pages at once. my question is: How can i add code so the user to change font, color, etc.. in these protected sheets? any and all help would greatly be appreciated Many thanks in advance. Greg |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
protect multiple sheets at one time with options
I tested the code in my Excel 2003 and it works with both locked and unlocked
cells, If you cannot confirm, try getting one of the Excel 2003 users to test it for you. -- If this posting was helpful, please click on the Yes button. Regards, Michael Arch. "Greg" wrote: THANK YOU! that worked great on the unlocked cells can i apply this to locked cells as well? i have some cells locked so they can not alter the formulas Once again Michael i appreciate all your time. "Michael" wrote: Try this: Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Protect Password:="" ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True Next ws -- If this posting was helpful, please click on the Yes button. Regards, Michael Arch. "Greg" wrote: Thanks for the fast response! i'm using Office 07 but users are 03 when i inserted your code i was not able to change any formatting. i may have put it in the wrong place. here is the code i'm using now: Sub protect_sheets() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Protect Password:="" Next ws "Michael" wrote: If you are using Excel 2003 use the following statement: ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True This is not allowed in lower Excel Versions. -- If this posting was helpful, please click on the Yes button. Regards, Michael Arch. "Greg" wrote: i have 50+ pages to protect. i have the code to protect and unprotect all the pages at once. my question is: How can i add code so the user to change font, color, etc.. in these protected sheets? any and all help would greatly be appreciated Many thanks in advance. Greg |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Protect/Unprotect Multiple Sheets With Full Options | Excel Discussion (Misc queries) | |||
| Are there ways to protect multiple sheets at once? | New Users to Excel | |||
| Macro to protect multiple sheets? | Excel Worksheet Functions | |||
| How do I protect multiple sheets at one time? | Excel Worksheet Functions | |||
| Protect multiple sheets in one time | Excel Programming | |||
Hybrid Mode
