- ベストアンサー
作業グループを設定した複数シートの保護方法
- エクセル2007で複数シートの保護設定をする方法について調べました。
- 特定のシートに保護をかけた状態でも作業グループの「+」「-」がいじれる設定にする方法は、マクロを使用することです。
- 具体的なマクロのコードを記載しましたが、うまくできない場合は詳細な設定や他の方法を調べることをおすすめします。
- みんなの回答 (2)
- 専門家の回答
質問者が選んだベストアンサー
申し訳ない 間違ってアップしてしまいました Private Sub Workbook_Open() Dim wst As Variant wst = Array("あ行", "か行") For i = 0 To UBound(wst) Sheets(wst(i)).EnableOutlining = True Sheets(wst(i)).Protect Password:="****", DrawingObjects:=True, _ contents:=True, UserInterfaceonly:=True Next End Sub 確認が取れたのは、これです
その他の回答 (1)
- hige_082
- ベストアンサー率50% (379/747)
当方、excel2000で確認取りました これでよいでしょうか? Private Sub Workbook_Open() Dim wst As Variant wst = Array("あ行", "か行") For i = 0 To UBound(wst) Sheets(wst(i)).Select.EnableOutlining = True Sheets(wst(i)).Select.Protect Password:="****", DrawingObjects:=True, _ contents:=True, UserInterfaceonly:=True Next End Sub
補足
ご回答ありがとうございます。 いただいた内容でやったのですが、 「実行時エラー424 オブジェクトが必要です」となり、 「Sheets(wst(i)).Select.EnableOutlining = True」がエラーとして あがってしまいました。 ご回答いただいたのに、すみません。。 ありがとうございました。
お礼
ありがとうございます。 できました! 感謝感激です~~。 もっとエクセルを勉強していろいろできるように なりたいと思います。