Excel VBA質問箱 IV

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

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


2465 / 13645 ツリー ←次へ | 前へ→

【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 お礼[未読]

【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

【67860】Re:シート保護のエラーについて
発言  Jaka  - 11/1/13(木) 16:38 -

引用なし
パスワード
   共有ってやらないけど、ここ読んでみてください。

ht tp://office.microsoft.com/ja-jp/assistance/HP052010801041.aspx

【67865】Re:シート保護のエラーについて
発言  まい  - 11/1/14(金) 8:35 -

引用なし
パスワード
   ▼Jaka さん:

ありがとうございます
教えていただいたサイトを観てみました
やはり、共有で、シートの保護は駄目なようですね

何か、代わりといってはなんですが、
いい方法はないものでしょうか?
テキストボックスを透明にして、
エクセル全体に貼り付けさせて、
データを触れないようにするのが、精一杯の解決策なのかなーー?


>共有ってやらないけど、ここ読んでみてください。
>
>ht tp://office.microsoft.com/ja-jp/assistance/HP052010801041.aspx

【67869】Re:シート保護のエラーについて
発言  Jaka  - 11/1/14(金) 9:33 -

引用なし
パスワード
   すみません。
共有ってやった事がないので、案も何もありません。

>テキストボックスを透明にして、
>エクセル全体に貼り付けさせて、
>データを触れないようにするのが、精一杯の解決策なのかなーー?

もう少し具体的にどういうものを保護したいのか、またそれはどこにあって
どのような状態なのかも記載されていると、解決策と言うか妥協案でしょうが、
他の方から案が出てくるかもしれませんね。

【67878】Re:シート保護のエラーについて
お礼  まい  - 11/1/14(金) 15:58 -

引用なし
パスワード
   ▼Jaka さん:

いろいろとありがとうございます
とりあえず、今の図形で隠す方法でやっていきたいと思います

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