• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:作業グループを設定した複数シートの保護につきまして)

作業グループを設定した複数シートの保護方法

このQ&Aのポイント
  • エクセル2007で複数シートの保護設定をする方法について調べました。
  • 特定のシートに保護をかけた状態でも作業グループの「+」「-」がいじれる設定にする方法は、マクロを使用することです。
  • 具体的なマクロのコードを記載しましたが、うまくできない場合は詳細な設定や他の方法を調べることをおすすめします。

質問者が選んだベストアンサー

  • ベストアンサー
  • hige_082
  • ベストアンサー率50% (379/747)
回答No.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 確認が取れたのは、これです

kiui-kiui-kiui
質問者

お礼

ありがとうございます。 できました! 感謝感激です~~。 もっとエクセルを勉強していろいろできるように なりたいと思います。

その他の回答 (1)

  • hige_082
  • ベストアンサー率50% (379/747)
回答No.1

当方、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

kiui-kiui-kiui
質問者

補足

ご回答ありがとうございます。 いただいた内容でやったのですが、 「実行時エラー424 オブジェクトが必要です」となり、 「Sheets(wst(i)).Select.EnableOutlining = True」がエラーとして あがってしまいました。 ご回答いただいたのに、すみません。。 ありがとうございました。

関連するQ&A