如何得知 A.xls恰巧有別人在使用??? - Excel程式區

[發問] 如何得知 A.xls恰巧有別人在使用???

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2014-6-26 07:03 | 顯示全部帖子

本帖最後由 GBKEE 於 2014-6-26 10:53 編輯

回復 1# yangjie

可參考這裡

使 A.xls 為共用活頁簿

Option Explicit
Sub Ex()
Dim users, A
users = Workbooks("共用.xls").UserStatus
A = Application.WorksheetFunction.Index(Application.WorksheetFunction.Transpose(users), 1)
MsgBox "Users : " & UBound(users) & vbLf & Join(A, vbLf)
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2014-6-27 19:53 | 顯示全部帖子

回復 6# yangjie

共用人數(傳回人數n)?

3# 的程式碼,就是啊.

Option Explicit
Const ExFile = "D:\AA.XLS"
Private Sub 設為共用活頁簿()
Application.DisplayAlerts = False
With Workbooks.Open(ExFile)
If Not .ReadOnly And Not .MultiUserEditing Then
'ReadOnly 屬性如果物件是以唯讀模式開啟，則傳回 True。唯讀 Boolean
'MultiUserEditing 屬性如果活頁簿是以共用清單模式開啟的則為 True。唯讀 Boolean。
.SaveAs Filename:=.FullName, AccessMode:=xlShared '存檔為共用模式
.AutoUpdateFrequency = 5 'AutoUpdateFrequency 屬性設定以分鐘為單位傳回或設定對共用活頁簿進行自動更新的時間間隔。讀/寫 Long。
.ChangeHistoryDuration = 30 'ChangeHistoryDuration 屬性設定共用活頁簿的修訂記錄中所要顯示修訂資訊的天數。讀/寫 Long
End If
.Close True
End With
Application.DisplayAlerts = True
End Sub
Private Sub 取消設為共用活頁簿()
Application.DisplayAlerts = False
With Workbooks.Open(ExFile)
If Not .ReadOnly And .MultiUserEditing Then .ExclusiveAccess
'Not .ReadOnly:沒有人開啟這檔案
'.MultiUserEditing :是共用活頁簿
.Close True
End With
Application.DisplayAlerts = True
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。