Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Can I protect all excel tabs in a file with one password entry
Your code worked fine for me.
Did you create another sub or function and name it Unprotect? If you did, then change the name of that sub/function to something else. Jen@ccbcc wrote: Sub Protect_All_Sheets() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Protect Password:="123" Next ws End Sub Sub Unprotect_All_Sheets() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Unprotect Password:="123" Next ws End Sub Each time I attempt to run the unprotect macro, I receive an error which points to the line "ws.Unprotect Password:="123" "Dave Peterson" wrote: If you protect the sheets without supplying a password, then the code won't need to use a password, either. But if you use a password manually, you'll need it in code, too. I think you made a typo when you made that suggested change. Post your current code and indicate the line that caused the error. Jen@ccbcc wrote: If I simply replace the protect with unprotect, I receive the following error message: Compile error: Expected function or variable Also...is there a way to perform these macros without requiring a password? "Dave Peterson" wrote: Just use ws.unprotect password:="123" to unprotect the sheets. They all share the same password, right? Jen@ccbcc wrote: Does anyone know how to do the reverse (i.e. unprotect all sheets at once)? "Paul B" wrote: Indiana, you can use a macro like this, Sub protect_sheets() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Protect password:="123" Next ws End Sub -- Paul B Always backup your data before trying something new Please post any response to the newsgroups so others can benefit from it Feedback on answers is always appreciated! Using Excel 2002 & 2003 "Indiana born" <Indiana wrote in message ... I have spreadsheets with multiple tabs - I presently have to password protect each tab separately. I'm looking for a way to protect all tabs with one password entry. i am not share the files, but others do view them and I don't want changes made. -- Dave Peterson -- Dave Peterson -- Dave Peterson |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Can I protect all excel tabs in a file with one password entry
Does anyone know how to incorporate the allow-users-to-edit-certain-ranges
part into this protection macro? Thank you! "Dave Peterson" wrote: Your code worked fine for me. Did you create another sub or function and name it Unprotect? If you did, then change the name of that sub/function to something else. Jen@ccbcc wrote: Sub Protect_All_Sheets() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Protect Password:="123" Next ws End Sub Sub Unprotect_All_Sheets() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Unprotect Password:="123" Next ws End Sub Each time I attempt to run the unprotect macro, I receive an error which points to the line "ws.Unprotect Password:="123" "Dave Peterson" wrote: If you protect the sheets without supplying a password, then the code won't need to use a password, either. But if you use a password manually, you'll need it in code, too. I think you made a typo when you made that suggested change. Post your current code and indicate the line that caused the error. Jen@ccbcc wrote: If I simply replace the protect with unprotect, I receive the following error message: Compile error: Expected function or variable Also...is there a way to perform these macros without requiring a password? "Dave Peterson" wrote: Just use ws.unprotect password:="123" to unprotect the sheets. They all share the same password, right? Jen@ccbcc wrote: Does anyone know how to do the reverse (i.e. unprotect all sheets at once)? "Paul B" wrote: Indiana, you can use a macro like this, Sub protect_sheets() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Protect password:="123" Next ws End Sub -- Paul B Always backup your data before trying something new Please post any response to the newsgroups so others can benefit from it Feedback on answers is always appreciated! Using Excel 2002 & 2003 "Indiana born" <Indiana wrote in message ... I have spreadsheets with multiple tabs - I presently have to password protect each tab separately. I'm looking for a way to protect all tabs with one password entry. i am not share the files, but others do view them and I don't want changes made. -- Dave Peterson -- Dave Peterson -- Dave Peterson |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Can I protect all excel tabs in a file with one password entry
I am looking to be able to do this as well. I was able to use the coding
above to lock all worksheets at one time but I haven't been able to add the allow-users-to-edit-ranges. Can someone please help me? "EugeniaP" wrote: Does anyone know how to incorporate the allow-users-to-edit-certain-ranges part into this protection macro? Thank you! "Dave Peterson" wrote: Your code worked fine for me. Did you create another sub or function and name it Unprotect? If you did, then change the name of that sub/function to something else. Jen@ccbcc wrote: Sub Protect_All_Sheets() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Protect Password:="123" Next ws End Sub Sub Unprotect_All_Sheets() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Unprotect Password:="123" Next ws End Sub Each time I attempt to run the unprotect macro, I receive an error which points to the line "ws.Unprotect Password:="123" "Dave Peterson" wrote: If you protect the sheets without supplying a password, then the code won't need to use a password, either. But if you use a password manually, you'll need it in code, too. I think you made a typo when you made that suggested change. Post your current code and indicate the line that caused the error. Jen@ccbcc wrote: If I simply replace the protect with unprotect, I receive the following error message: Compile error: Expected function or variable Also...is there a way to perform these macros without requiring a password? "Dave Peterson" wrote: Just use ws.unprotect password:="123" to unprotect the sheets. They all share the same password, right? Jen@ccbcc wrote: Does anyone know how to do the reverse (i.e. unprotect all sheets at once)? "Paul B" wrote: Indiana, you can use a macro like this, Sub protect_sheets() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Protect password:="123" Next ws End Sub -- Paul B Always backup your data before trying something new Please post any response to the newsgroups so others can benefit from it Feedback on answers is always appreciated! Using Excel 2002 & 2003 "Indiana born" <Indiana wrote in message ... I have spreadsheets with multiple tabs - I presently have to password protect each tab separately. I'm looking for a way to protect all tabs with one password entry. i am not share the files, but others do view them and I don't want changes made. -- Dave Peterson -- Dave Peterson -- Dave Peterson |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Can I protect all excel tabs in a file with one password entry
Does the address of the range change for each sheet?
ladytiger7481 wrote: I am looking to be able to do this as well. I was able to use the coding above to lock all worksheets at one time but I haven't been able to add the allow-users-to-edit-ranges. Can someone please help me? "EugeniaP" wrote: Does anyone know how to incorporate the allow-users-to-edit-certain-ranges part into this protection macro? Thank you! "Dave Peterson" wrote: Your code worked fine for me. Did you create another sub or function and name it Unprotect? If you did, then change the name of that sub/function to something else. Jen@ccbcc wrote: Sub Protect_All_Sheets() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Protect Password:="123" Next ws End Sub Sub Unprotect_All_Sheets() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Unprotect Password:="123" Next ws End Sub Each time I attempt to run the unprotect macro, I receive an error which points to the line "ws.Unprotect Password:="123" "Dave Peterson" wrote: If you protect the sheets without supplying a password, then the code won't need to use a password, either. But if you use a password manually, you'll need it in code, too. I think you made a typo when you made that suggested change. Post your current code and indicate the line that caused the error. Jen@ccbcc wrote: If I simply replace the protect with unprotect, I receive the following error message: Compile error: Expected function or variable Also...is there a way to perform these macros without requiring a password? "Dave Peterson" wrote: Just use ws.unprotect password:="123" to unprotect the sheets. They all share the same password, right? Jen@ccbcc wrote: Does anyone know how to do the reverse (i.e. unprotect all sheets at once)? "Paul B" wrote: Indiana, you can use a macro like this, Sub protect_sheets() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Protect password:="123" Next ws End Sub -- Paul B Always backup your data before trying something new Please post any response to the newsgroups so others can benefit from it Feedback on answers is always appreciated! Using Excel 2002 & 2003 "Indiana born" <Indiana wrote in message ... I have spreadsheets with multiple tabs - I presently have to password protect each tab separately. I'm looking for a way to protect all tabs with one password entry. i am not share the files, but others do view them and I don't want changes made. -- Dave Peterson -- Dave Peterson -- Dave Peterson -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
I have a excel file and forgot the password | Excel Discussion (Misc queries) | |||
Excel file automatically opens | Excel Discussion (Misc queries) | |||
Remove or change password protected excel file | Excel Discussion (Misc queries) | |||
password protection of an MHTML Excel file | Excel Discussion (Misc queries) | |||
How Do I open an excel file without Excel Viewer support | Excel Discussion (Misc queries) |