Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 586
Default Why is Referenced Workbook Saved When ActiveWorkbook is Saved?

I have a workbook saved as an Add-In that I use as a Reference for a Data
workbook. I have this code in the Data workbooks Before Save Event. For
some reason , when I save the Data workbook the Reference Add-In workbook is
saved also, why? I noticed the last modified date changes to the Data
workbooks last modified date. I do not want the Add-In saved when the Data
workbook is saved. Any ideas on fixing this?

' save a copy in public Power Vault folder
strBackUpPath = "\\Powervault\Global Schedule BU\"
ThisWorkbook.SaveCopyAs (strBackUpPath & ThisWorkbook.Name)

' ' get computer network user name
Set objNetwork = CreateObject("Wscript.network")
myUserName = objNetwork.UserName

' save a copy in Ryan's My Documents if ryanh is signed in
If myUserName = "ryanh" Then
strBackUpPath = "C:\Documents and Settings\ryanh\My Documents\Ryan's
BackUp Programs\Global Schedule BackUps\"
ThisWorkbook.SaveCopyAs (strBackUpPath & ThisWorkbook.Name)
End If
--
Cheers,
Ryan
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 58
Default Why is Referenced Workbook Saved When ActiveWorkbook is Saved?

On Oct 29, 3:36 pm, RyanH wrote:
I have a workbook saved as an Add-In that I use as a Reference for a Data
workbook. I have this code in the Data workbooks Before Save Event. For
some reason , when I save the Data workbook the Reference Add-In workbook is
saved also, why? I noticed the last modified date changes to the Data
workbooks last modified date. I do not want the Add-In saved when the Data
workbook is saved. Any ideas on fixing this?

' save a copy in public Power Vault folder
strBackUpPath = "\\Powervault\Global Schedule BU\"
ThisWorkbook.SaveCopyAs (strBackUpPath & ThisWorkbook.Name)

' ' get computer network user name
Set objNetwork = CreateObject("Wscript.network")
myUserName = objNetwork.UserName

' save a copy in Ryan's My Documents if ryanh is signed in
If myUserName = "ryanh" Then
strBackUpPath = "C:\Documents and Settings\ryanh\My Documents\Ryan's
BackUp Programs\Global Schedule BackUps\"
ThisWorkbook.SaveCopyAs (strBackUpPath & ThisWorkbook.Name)
End If
--
Cheers,
Ryan


Are you sure that the addin has been saved?
When an addin is open the Date Modified is when it was opened for use
(at least on my computer).

I don't see where you interacted with the addin. Do you change
anything in the addin when it is being accessed by your code?
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
How do I recover an Excel document saved not saved as Darryl Excel Discussion (Misc queries) 6 January 5th 10 03:39 AM
How can I see a copy of a saved workbook before I saved it again? Norma Excel Worksheet Functions 2 May 11th 05 10:31 AM
How to get saved old saved work that was saved over? Maral Excel Discussion (Misc queries) 1 February 20th 05 08:59 PM
Activeworkbook.Saved Jack Clift Excel Programming 4 February 5th 04 08:42 AM
internet explorer (ie) issue with activeworkbook.saved (save prompt) AAARGH. Darren Lord Excel Programming 0 September 17th 03 09:27 AM


All times are GMT +1. The time now is 09:27 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"