Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


20502 / 76732 ←次へ | 前へ→

【61648】Re:ブックの共有を設定してもセルの結合・解除が出来るようには出来ないか
回答  りん E-MAIL  - 09/5/24(日) 15:15 -

引用なし
パスワード
   カンジ さん、こんにちわ。

>また、上記が出来ないとしたら、マクロで「ブックの共有」の設定・解除を
>簡単に行う方法はあるのでしょうか。

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

マクロで共有を切り替えるならこんな感じです。
ただし、このマクロは共有ブックとは別のブックに書かないとだめですが。

>なお、セルの結合・解除をする人、及びシートは特定の人・シートという設定
>ですが。
これはユーザー名で判断するか固有パス入力等で分岐するしかないですね。
0 hits

【61646】ブックの共有を設定してもセルの結合・解除が出来るようには出来ないか カンジ 09/5/24(日) 13:13 質問
【61648】Re:ブックの共有を設定してもセルの結合・解... りん 09/5/24(日) 15:15 回答
【61651】Re:ブックの共有を設定してもセルの結合・解... カンジ 09/5/24(日) 16:45 発言
【61649】Re:ブックの共有を設定してもセルの結合・解... yoshi 09/5/24(日) 15:48 回答
【61652】Re:ブックの共有を設定してもセルの結合・解... カンジ 09/5/24(日) 16:49 お礼

20502 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free