Excel VBA質問箱 IV

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

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


14371 / 76734 ←次へ | 前へ→

【67859】シート保護のエラーについて
質問  まい  - 11/1/13(木) 16:14 -

引用なし
パスワード
   今、ファイルオープン時に、
unprotectメソッドで、二つのシートを保護させています

それから、いろいろなデータ変更等の処理を
ユーザーフォームから、マクロで実行させるようにしていたのですが、
ファイルをブックの共有にすると、下記のようなエラーがでてしまいます

worksheetクラスのUnprotectメソッドが失敗しました

共有にすると、駄目なのでしょうか?
しかし、共有にして使うことが前提となるファイルの為、
シートの保護もしたいし、マクロからの指示は実行できるようにしたいのですが、
なにか、よい方法はないものでしょうか?
どうか、ご教授願います

現在は下記のコードとなってます・・・

Private Sub Workbook_Open()

'オートフィルタのショートカットメニュー
With Application.CommandBars("Cell").Controls.Add( _
           Type:=msoControlButton, Before:=1, temporary:=True)
    .Caption = "AutoFilter"
    .OnAction = "ThisWorkbook.filter"
  End With
 
  With ThisWorkbook.Worksheets("シート1")
    .Unprotect Password:="AKA"
    .EnableAutoFilter = True
    .Protect UserInterfaceOnly:=True, Password:="AKA"
  End With
  
  With ThisWorkbook.Worksheets("シート2")
    .Unprotect Password:="AKA"
    .EnableAutoFilter = True
    .Protect UserInterfaceOnly:=True, Password:="AKA"
  End With


  Call フォーム表示


End Sub
5 hits

【67859】シート保護のエラーについて まい 11/1/13(木) 16:14 質問
【67860】Re:シート保護のエラーについて Jaka 11/1/13(木) 16:38 発言
【67865】Re:シート保護のエラーについて まい 11/1/14(金) 8:35 発言
【67869】Re:シート保護のエラーについて Jaka 11/1/14(金) 9:33 発言
【67878】Re:シート保護のエラーについて まい 11/1/14(金) 15:58 お礼

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