|
今、ファイルオープン時に、
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
|
|