Sure record a macro when you unprotect the sheet, do some things,
and then protect the sheet again. You will be able to extract
at the very least the code for unprotecting (which you already have)
and the code for protecting again. (yes you include the password in the
code) -- An alternative is to protect the sheet without the password.
Sometimes the password is entered solely to prevent others from accidentally
supplying a password in reprotecting the sheet.
---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm
> I suspect that (since I didn't get any response on my previous request for
> assistance) I may need to approach this in stages ...
[quoted text clipped - 33 lines]
> Any help in setting me straight on this would be greately appreciated --
> thanks in advance.
doctorjones_md@yahoo.com - 06 Jul 2006 14:44 GMT
Thanks David -- I'm ALMOST there ...
Do you see anything that I may be missing? Here's the MOST important thing
I need this code to do (assuming there are no further modifications needed)
...
This code (Macro) needs to perform this same task on approximately 200
different Workbooks (all residing in the same Network Directory), but ONLY
when a Command Button is pressed. I'm assuming that I'll need to create a
Form (in ACCESS perhaps) and call this Macro -- correct? How would I do
this, and how would I get this Macro to perform this Link Update on all 200
or so Workbooks?
Private Sub Workbook_Open()
Dim vLinkSources
Dim iLinkSource As Integer
Dim AnySheet As Worksheet
For Each AnySheet In ActiveWorkbook.Worksheets
ActiveWorkbook.Worksheets(AnySheet.Name).Unprotect
Password:="mypassword"
Next
vLinkSources = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(vLinkSources) Then
For iLinkSource = LBound(vLinkSources) To
UBound(vLinkSources)
ActiveWorkbook.UpdateLink vLinkSources(iLinkSource), xlExcelLinks
Next
End If
For Each AnySheet In ActiveWorkbook.Worksheets
ActiveWorkbook.Worksheets(AnySheet.Name).Protect
Password:="mypassword"
Next
End Sub
======================================================
> Sure record a macro when you unprotect the sheet, do some things,
> and then protect the sheet again. You will be able to extract
[quoted text clipped - 54 lines]
>> Any help in setting me straight on this would be greately appreciated --
>> thanks in advance.