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

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

9^#

發表於 2014-6-29 12:19 | 只看該作者

回復 8# GBKEE
感謝GBKEE版大學習頗多也解決嘞困惑

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

8^#

發表於 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元的贊助,人人有能力.

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

7^#

發表於 2014-6-27 08:12 | 只看該作者

回復 5# yangjie
這篇文章對你應該會有所幫助的：
Who open VBA Excel 2003/WinXP

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

6^#

發表於 2014-6-27 00:10 | 只看該作者

回復 3# GBKEE
請教GBKEE
可否傳回共用人數(傳回人數n)?
這樣可利用n<2即可繼續-----

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

5^#

發表於 2014-6-27 00:06 | 只看該作者

回復 2# c_c_lai
請教大大
可幫忙示範一下

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

4^#

發表於 2014-6-26 23:44 | 只看該作者

回復 3# GBKEE
請教GBKEE
有無辦法在A.xls內用VBA 使 B.xls成為共用活頁簿可供多人使用狀態

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

3^#

發表於 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元的贊助,人人有能力.

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2014-6-26 04:16 | 只看該作者

回復 1# yangjie
你可以另外增加一個小檔案 (文字檔、亦或是資料庫)，
作為開啟關閉的控制與管理 (Key File) (置於執行區)。
於開啟 EXCEL 檔案時，在一進入同時先交由
Private Sub Workbook_Open() 判斷上述之小檔案
內容為何？
(譬如： 1 - 為真，表示已有人開啟，隨即跳離關閉 EXCEL。
         或出示訊息告知『別人在使用中』等提示。
      0 - 為否，表示無人進入，順手將它修正為 1 並隨即
         予以存檔關閉(Key File)，以供他人再開啟檢視。
         在關閉 EXCEL 離開前，則再將它的內容修正為 0。)
如此便可達到你所需之控管了。