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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-6-25 23:16 | 只看該作者

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

又有一嘗試，請教專家大大們協助突破
因情事需要，輸入者眾且不同地點
將資料夾(出缺勤獎懲登錄)置於  "網路芳鄰"中供眾導師們各自登錄
1.資料夾含(1登錄.xls,1資料庫.xls,2登錄.xls,2資料庫.xls,------,總管理.xls,總資料庫.xls)
2.平時(導師1) (開1登錄.xls 登錄後傳回1資料庫.xls )---1資料庫.xls 只在霎那open,close
         (導師2) (開2登錄.xls 登錄後傳回2資料庫.xls )---2資料庫.xls 只在霎那open,close----
3.主任開總管理.xls,欲作總資料庫.xls向1資料庫.2資料庫.---取回資料(也是極短時間5秒)
以上均完成VBA處理
問題如下
導師與主任若在  存取之間  霎那  恰巧同時就出現 error
就教於大大先進
1號人先開A.xls  尚未 .close前  2號人也要打開A.xls
2號人如何得知 A.xls恰巧有別人在使用???
此時如何叫電腦暫停20秒再動作??
如此說明  希望能了。
請求救援！謝謝

樓主熱帖

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。)
如此便可達到你所需之控管了。

TOP

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

TOP

yangjie

中學生 Rank: 2

帖子: 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成為共用活頁簿可供多人使用狀態

TOP

yangjie

中學生 Rank: 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
請教大大
可幫忙示範一下

TOP

yangjie

中學生 Rank: 2

帖子: 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即可繼續-----

TOP

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

TOP

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

TOP

yangjie

中學生 Rank: 2

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

9^#

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

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

TOP