Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Change passwords Multiple sheets
I have a workbook containing 20 sheets each is password protected with the
same password, I would like to change this password on each sheet without having to open each sheet and do it individually |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Change passwords Multiple sheets
Insert your current password into the UnProtectAllSheets sub and run it
Sub UnprotectAllSheets() Application.ScreenUpdating = False Dim n As Single For n = 1 To Sheets.Count Sheets(n).Unprotect Password:="current password" Next n Application.ScreenUpdating = True End Sub Then run this one with your new password inserted Sub ProtectAllSheets() Application.ScreenUpdating = False Dim n As Single For n = 1 To Sheets.Count Sheets(n).Protect Password:="new password" Next n Application.ScreenUpdating = True End Sub Gord Dibben Excel MVP On Fri, 23 Dec 2005 17:50:01 -0800, "bbc1" wrote: I have a workbook containing 20 sheets each is password protected with the same password, I would like to change this password on each sheet without having to open each sheet and do it individually |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do i auto create multiple files from 1 with multiple sheets | Excel Worksheet Functions | |||
how can i open multiple excel sheets separately | Excel Discussion (Misc queries) | |||
how do i change footer settings on multiple sheets at the same ti. | Excel Worksheet Functions | |||
Copying multiple sheets from one book 2 another and undertake spec | Excel Discussion (Misc queries) | |||
How do I unhide multiple sheets? | Excel Worksheet Functions |