|
Keinさん、お世話になります。
提示されたマクロを試してみましたが、
『(ファイル名)は読取専用です。アクセスできません。』
と出てきて、デバックしてみると・・・
>Private Sub Workbook_Open()
> Dim users As Variant
> Dim i As Integer
> Dim St As String
>
> St = "他の方が作業中ですので開けません。" & _
> vbLf & "[現在の使用者]" & vbLf
> Application.DisplayAlerts = False
> With ThisWorkbook
> If .ReadOnly Then
→users = .UserStatus
> For i = 1 To UBound(users, 1)
> St = St & users(i, 1) & vbLf
> Next i
> St = Left$(St, Len(St) - 1)
> MsgBox St
> Application.DisplayAlerts = True
> .Close False
> End If
> End With
> Application.DisplayAlerts = True
>End Sub
矢印の部分でエラーになってしまいます。
それと、やはりこれだと最初に『〜は編集の為ロックされています。使用者は〜です。』
が、出てきてしまいます。
これを回避する方法は他にありますでしょうか?
お手数ですが、よろしくお願いします。
|
|