|
カンジ さん、こんにちわ。
>また、上記が出来ないとしたら、マクロで「ブックの共有」の設定・解除を
>簡単に行う方法はあるのでしょうか。
Sub Test()
With Application.ActiveSheet
If .Parent.MultiUserEditing = True Then
'他のユーザーが開いていないかチェック
Users = .Parent.UserStatus
If UBound(Users, 1) > 1 Then
MsgBox "他のユーザーを確認してください", vbExclamation, .Parent.Name, "念のため中断"
Else
Application.DisplayAlerts = False
.Parent.ExclusiveAccess
'結合セルを全部分解
.UsedRange.UnMerge
'再び共有に戻す
.Parent.SaveAs Filename:=.Parent.FullName, AccessMode:=xlShared
Application.DisplayAlerts = True
End If
Else
MsgBox "共有ブックではありません", vbInformation, .Parent.Name
End If
End With
End Sub
マクロで共有を切り替えるならこんな感じです。
ただし、このマクロは共有ブックとは別のブックに書かないとだめですが。
>なお、セルの結合・解除をする人、及びシートは特定の人・シートという設定
>ですが。
これはユーザー名で判断するか固有パス入力等で分岐するしかないですね。
|
|