PC Review


Reply
Thread Tools Rate Thread

Check if Workbook is shared

 
 
Ladymuck
Guest
Posts: n/a
 
      16th Apr 2008
I would like an alert to pop up if someone tries to run a macro while the
workbook is in shared rather than exclusive mode. How would I do this?

Many thanks
Louise
 
Reply With Quote
 
 
 
 
Dan R.
Guest
Posts: n/a
 
      16th Apr 2008
Try this:

If ThisWorkbook.MultiUserEditing Then
MsgBox "Shared"
End If

--
Dan


On Apr 16, 10:05*am, Ladymuck <Ladym...@discussions.microsoft.com>
wrote:
> I would like an alert to pop up if someone tries to run a macro while the
> workbook is in shared rather than exclusive mode. How would I do this?
>
> Many thanks
> Louise

 
Reply With Quote
 
Ladymuck
Guest
Posts: n/a
 
      16th Apr 2008
How simple is that! Thank you very much.

"Dan R." wrote:

> Try this:
>
> If ThisWorkbook.MultiUserEditing Then
> MsgBox "Shared"
> End If
>
> --
> Dan
>
>
> On Apr 16, 10:05 am, Ladymuck <Ladym...@discussions.microsoft.com>
> wrote:
> > I would like an alert to pop up if someone tries to run a macro while the
> > workbook is in shared rather than exclusive mode. How would I do this?
> >
> > Many thanks
> > Louise

>

 
Reply With Quote
 
 
 
Reply

Thread Tools
Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

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


Similar Threads
Thread Thread Starter Forum Replies Last Post
Shared Workbook - Slow opening of shared workbook. raul_madrigal@smbcgroup.com Microsoft Excel Programming 2 29th Aug 2007 05:14 PM
VBA Code needs to check for Shared Workbook =?Utf-8?B?TmV3Ynk=?= Microsoft Excel Programming 0 26th Jul 2007 10:02 PM
Check Box - are they possible with a shared workbook? =?Utf-8?B?TGlzYQ==?= Microsoft Excel Misc 4 13th Feb 2007 02:42 PM
Spell Check in Protected Worksheet & Shared Workbook =?Utf-8?B?RGF2ZXlDNFM=?= Microsoft Excel Misc 6 28th Oct 2005 12:50 PM
Spell Check in Protected Worksheet & Shared Workbook continued =?Utf-8?B?RGF2ZXlDNFM=?= Microsoft Excel Misc 1 25th Oct 2005 06:15 PM


Features
 

Advertising
 

Newsgroups
 


All times are GMT +1. The time now is 03:33 AM.