Hi all,
I want to protect or unprotect a number of sheets by using a Macro. I don't want to unprotect ALL sheets, but only certain sheets within my workbook. Below is the code that I have come up with. It does not seem to work yet, can someone help me fix it?
Private Sub Workbook_Open() Dim SHEETList As String SHEETList = " TTL APAC Japan Korea HK Hub China HMT SEA ANZ " 'unlock all sheets in array' For Each sht In SHEETList sht.Unprotect Password:="xxxxx" Next sht End Sub
This method also does not seem to work...
With Sheets(Array("TTL APAC", "Japan", "Korea", "HK Hub", "China", "HMT", "ANZ", "SEA")) .Protect Password:="xxxxx" End With
This should do it.
Private Sub Workbook_Open() SHEETList = Array("TTL APAC", "Japan", "Korea", "HK Hub", "China", "HMT", "ANZ", "SEA") For Each sht In SHEETList Sheets(sht).Protect Password:="xxxxx" Next sht End Sub
Avoid using Select, Selection and Activate in your code. Use With ... End With instead.
You can show your appreciation for those that have helped you by clicking the * at the bottom left of any of their posts.
Now it says "variable not defined". What do I need to defined it as?
Does not seem to work...Dim SHEETList As Worksheet
I never use Option Explicit so not used defining variables.
Private Sub Workbook_Open() Dim SHEETList, sht SHEETList = Array("TTL APAC", "Japan", "Korea", "HK Hub", "China", "HMT", "ANZ", "SEA") For Each sht In SHEETList Sheets(sht).Protect Password:="xxxxx" Next sht End Sub
It's working now! had a tiny spelling error... Thanks!!
now it says: "Object doesn't support this property or method..."
You're welcome and thanks for rep+.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks