VBA assistance needed, Grouping and Tables
 

I'm brand new to Macros, so bear with me. I have a workbook that will have some protected and unprotected sheets. One sheet is in a table format, where columns are grouped. Upon protecting the sheet, and attempting to expand the columns provides an error. Thus the following logic was added.

Sub Auto_Open()

Application.ScreenUpdating = False

For Each ws In Sheets
With ws
.Unprotect Password:="XXXXadmin"
.Protect Password:="XXXXadmin", UserInterfaceOnly:=True
.EnableOutlining = True
End With

Next ws

Application.ScreenUpdating = True

End Sub

Allowing me to collapse and expand columns, until I started tinkering with protected sheets and changing passwords (outside of the Macro). Now I consistently get a Run-time error '1004'. Password you supplied is not correct... Two questions - 1) does the XXXXadmin password in the Macro above have to match the sheet or workbook protection password YYYYadmin? - I've tried both and neither work 2) Can I run this subroutine just on one sheet? I don't have grouping any where else.

Any help greatly appreciated and needed!

VBA assistance needed, Grouping and Tables
 

I'm brand new to Macros, so bear with me. I have a workbook that will
have some protected and unprotected sheets. One sheet is in a table
format, where columns are grouped. Upon protecting the sheet, and
attempting to expand the columns provides an error. Thus the
following logic was added.

Sub Auto_Open()

Application.ScreenUpdating = False

For Each ws In Sheets
With ws
.Unprotect Password = "XXXXadmin"
.Protect Password:="XXXXadmin", UserInterfaceOnly:=True
.EnableOutlining = True
End With

Next ws

Application.ScreenUpdating = True

End Sub

Allowing me to collapse and expand columns, until I started tinkering
with protected sheets and changing passwords (outside of the Macro).
Now I consistently get a Run-time error '1004'. Password you supplied
is not correct... Two questions - 1) does the XXXXadmin password in
the Macro above have to match the sheet or workbook protection
password YYYYadmin? - I've tried both and neither work 2) Can I run
this subroutine just on one sheet? I don't have grouping any where
else.

Any help greatly appreciated and needed!

The password used by code must be the password used to apply
protection. Also, you must reset protection each time the file is
opened because the *UserInterfaceOnly* option is not persistent.

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion

VBA assistance needed, Grouping and Tables
 

FWIW
You may want to look at my 1st reply to the topic 'VBA error 1004...'
on 3/18/2016!

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion