Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Excel / New Users / July 2006

Tip: Looking for answers? Try searching our database.

Simplifying my previous question ...

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
doctorjones_md@yahoo.com - 05 Jul 2006 23:08 GMT
I suspect that (since I didn't get any response on my previous request for
assistance) I may need to approach this in stages ...

Assuming that Information Rights Management (IRM) won't give me the detailed
permissions I need, basically, here's what I need:

1.  A Macro that will unprotect a series of Workbooks (approximately 200 of
them) so that the Auto Update function in Linked Data can update without
user intervention.

2.  I copied this Macro from a previous post -- how can I modify the
following code to achieve what I need from it:

Can I use something like this?
    I assume that I'll need something like this to unprotect the affected
worksheets:
           ActiveSheet.Unprotect Password:="" '<===I assume that I'll enter
my worksheet password between the ""

Private Sub Workbook_Open()
 Dim vLinkSources
 Dim iLinkSource As Integer
 vLinkSources = ThisWorkbook.LinkSources(xlExcelLinks)
 If Not IsEmpty(vLinkSources) Then
   For iLinkSource = LBound(vLinkSources) To UBound(vLinkSources)
     ThisWorkbook.UpdateLink vLinkSources(iLinkSource), xlExcelLinks
   Next
 End If
End Sub

I'll need to re-protect the affected worksheets upon closing:
    ActiveSheet.Protect Password:="" '<===I assume that I'll enter my
worksheet password between the ""
End Sub

Any help in setting me straight on this would be greately appreciated --  
thanks in advance.
David McRitchie - 06 Jul 2006 02:13 GMT
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.
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.