Can my book activate book2 on computer2?

[adnakarivach]

Hello, is it possible to have my active workbook open a second workbook in my computer number 2 (in the same network) with the MACROS ALREADY ACTIVE?)
I am trying to control computer usage and i have a workbook with a timer that I scavanged from old post, wich after a set time it would activate a sheet in computer #2 telling my kid is quitting time.
any comments or help?
i have the code for everything, except the link to open 2nd book with macros active.
thanks ray:

 

[SydneyGeek]

As far as I know, there is no way to bypass the macro question in code -- otherwise, it would be too easy for malicious code to run anywhere without intervention.
I think you're stuck with having to enable code manually as the workbook is opened.

Denis

 

[adnakarivach]

Ok, thanks.
by the way is it possible to open a book in another computer?
Thanks

 

[SydneyGeek]

Depends what you mean by "another computer". If the file is in a shares folder / shared drive, you can switch directories and open the file. If not, it may still be possible but that's beyond my skills.

Denis

 

[adnakarivach]

ohhhhhh so if i leave it in a shared folder i can active it from anycomputer and activate the timer from there?
Thanks, i hadn´t thought of that.

 

[Nimrod]

:wink: RUNNING MACROS THAT ARE LOCATED IN A DIFFERENT WORKBOOK ..... IS A SNAP !!!! :wink:

To run a macro that is located in another workbook, use Application.Run. The name of the workbook and the macro should be enclosed in double quotes. If the file name contains spaces, the file name must be enclosed in single quotes. Also, an exclamation point is needed between the workbook name and the macro name.

EXAMPLE:
Application.Run "'My Workbook.xls'!SomeRoutine"


If you need to run a function that is in another workbook, then you can use a statement like the following:
EXAMPLE:
RetValue = Application.Run("MyAddin.xla!MyFunction")


If the function has arguments, then you would use the following approach:

RetValue = Application.Run("MyAddin.xla!NeatFunction", 5)

The same approach would work with procedures that take arguments. :wink:

 

[adnakarivach]

i have a problem.
first, i got confused by the code that is kindly been given to me.
second, if i access the workbook on computer2 FROM computer1, it opens on computer 1 NOT computer 2.
is the code above going to fix that?
and if it is, doesn't it need to know the address of computer 2
i.e. //pc02/c:/?
thanks in advance for any suggestions.

 

[SydneyGeek]

If you're opening a remote file, it does open on the PC that made the call. Also, if the shared folder has a different drive letter from the place where you called it, you need to change directories to access the file. Example --

Sub CallAnother()
    Dim fPath As String
    
    ChDir "M:"
    fPath = "Folder1\Folder2\MyFile.xls"
    Application.Run (fPath & "!MyMacro")
    
End Sub

Hope that helps

Denis

 

[Nimrod]

adnakarivach

PC's are not servers ... they are designed to run the file that is activated on the local CPU not on the remote one.
To accomplish what you want to do you must either ...
1. Look at the MS utility kit for a app that will run as a service waiting to be called
2. Run what you want to do thru the scheduler

Either way excel is not designed to do what you hoping it will do.

If you call a macro in another excel sheet it is going to run locally .

 

[RoyHarper]

There is a way you could control excel on another computer through excel VBA on a seperate computer, but it would involve either shared workbooks and or random access files through VBA.