Assigning range passwords using a macro

SlinkRN · Mar 30th, 2004, 05:24 AM

Hi! I want to assign a range password (using Excel XP) to each range to the right of a list of names. I want to do it with a macro so that each range's password is the actual name. The code to assign a range password is something like this:

dim strName as string
strName = activecell
Range("B10:J10").select
activesheet.protection.allowEditRanges.Add Title:="Range1", Range:= _
Range("B10:J10"), Password:=strName

Can I do this in some sort of loop that will go through the whole list and assign each name as the password for that range? I have a worksheet example but I can't figure out how to post it using Colo's HTML download. It works on my screen, but I can't figure out how to get it to show up in this post

Anyway, the list of names is in column A starting in row 10.
Can anyone help?

Mar 30th, 2004, 05:24 AM	#1
SlinkRN Join Date: Oct 2002 Location: Illinois Posts: 543	Assigning range passwords using a macro Hi! I want to assign a range password (using Excel XP) to each range to the right of a list of names. I want to do it with a macro so that each range's password is the actual name. The code to assign a range password is something like this: dim strName as string strName = activecell Range("B10:J10").select activesheet.protection.allowEditRanges.Add Title:="Range1", Range:= _ Range("B10:J10"), Password:=strName Can I do this in some sort of loop that will go through the whole list and assign each name as the password for that range? I have a worksheet example but I can't figure out how to post it using Colo's HTML download. It works on my screen, but I can't figure out how to get it to show up in this post Anyway, the list of names is in column A starting in row 10. Can anyone help?

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode