Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Multiple tabs
I would like to run a macro to unprotect several worksheets. I would like
the user to select the worksheets that need to be unprotected and run the macro to unprotect them. Sub test() ' ' test Macro ' ActiveSheet.Unprotect End Sub How do I make ActiveSheet the selected sheets? Thank you !!!!!! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Multiple tabs
Try this:
Sub UnprotectSelectedSheets() Dim sh As Worksheet, shts On Error Resume Next Set shts = ThisWorkbook.Windows(1).SelectedSheets For Each sh In shts sh.Select ActiveSheet.Unprotect Next Set shts = Nothing End Sub You will have to modify the Unprotect statement if the sheets are password protected. Hope this helps, Hutch "EMN" wrote: I would like to run a macro to unprotect several worksheets. I would like the user to select the worksheets that need to be unprotected and run the macro to unprotect them. Sub test() ' ' test Macro ' ActiveSheet.Unprotect End Sub How do I make ActiveSheet the selected sheets? Thank you !!!!!! |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Multiple tabs
Thank you for responding, Tom. This did not work for me. When multiple
sheets are selected, it does not unprotect any of them. When the macro is run with only one sheet selected, it unprotects the one sheet. There is no password protection. Any thoughts? "Tom Hutchins" wrote: Try this: Sub UnprotectSelectedSheets() Dim sh As Worksheet, shts On Error Resume Next Set shts = ThisWorkbook.Windows(1).SelectedSheets For Each sh In shts sh.Select ActiveSheet.Unprotect Next Set shts = Nothing End Sub You will have to modify the Unprotect statement if the sheets are password protected. Hope this helps, Hutch "EMN" wrote: I would like to run a macro to unprotect several worksheets. I would like the user to select the worksheets that need to be unprotected and run the macro to unprotect them. Sub test() ' ' test Macro ' ActiveSheet.Unprotect End Sub How do I make ActiveSheet the selected sheets? Thank you !!!!!! |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Multiple tabs
Are you trying to unprotect the sheets in a different workbook? The macro, as
written, works only on selected sheets in the same workbook where the macro is stored. It would also unprotect the active sheet in another workbook because of the ActiveSheet.Unprotect statement. Try changing this line: Set shts = ThisWorkbook.Windows(1).SelectedSheets to this: Set shts = ActiveWorkbook.Windows(1).SelectedSheets Hutch "EMN" wrote: Thank you for responding, Tom. This did not work for me. When multiple sheets are selected, it does not unprotect any of them. When the macro is run with only one sheet selected, it unprotects the one sheet. There is no password protection. Any thoughts? "Tom Hutchins" wrote: Try this: Sub UnprotectSelectedSheets() Dim sh As Worksheet, shts On Error Resume Next Set shts = ThisWorkbook.Windows(1).SelectedSheets For Each sh In shts sh.Select ActiveSheet.Unprotect Next Set shts = Nothing End Sub You will have to modify the Unprotect statement if the sheets are password protected. Hope this helps, Hutch "EMN" wrote: I would like to run a macro to unprotect several worksheets. I would like the user to select the worksheets that need to be unprotected and run the macro to unprotect them. Sub test() ' ' test Macro ' ActiveSheet.Unprotect End Sub How do I make ActiveSheet the selected sheets? Thank you !!!!!! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I move multiple tabs in multiple workbooks to a master? | Excel Worksheet Functions | |||
Average Over Multiple Sheet Tabs with Multiple Values | Excel Worksheet Functions | |||
Create multiple sheet tabs from multiple cells. | Excel Worksheet Functions | |||
macro: copy multiple workbooks to multiple tabs in single book | Excel Programming | |||
How do I use VLOOKUP to ref multiple workbooks with multiple tabs? | Excel Discussion (Misc queries) |