複数シートのグループ化ができるマクロについて
未読分：2件
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応
近田 伸矢, 植木 悠二, 上田 寛
IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。
| Message#2 2015年2月5日(木)17時25分 From: sakura | 返事 削除 変更 |
| 以下は、ThisWorkbook モジュール貼り付けます。 このマクロは、Sheet12 以上であっても、Sheet11のみを除外して保護設定します。 '// Const PSWD As String = "****" '私の場合は、いつも外に置きます。 Private Sub Workbook_Open() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets Select Case ws.Name Case "Sheet11" '除外するシート名 Case Else ws.EnableOutlining = True ws.Protect Password:=PSWD, DrawingObjects:=True, _ Contents:=True, UserInterfaceOnly:=True End Select Next ws End Sub '// 'おまけ(同じモジュールで使ってください。） Sub OpenProtect() '解除用 Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Unprotect Password:=PSWD Next End Sub |
| Message#1 2015年2月5日(木)17時18分 From: ちくさっく | 返事 削除 変更 |
| EXCELのVBA初心者です。 現在、sheet数11（sheet1から10が各担当の月別、商品別売上げ、sheet11が各担当のsheetから月別に商品毎、売上合計を集計）のEXCELを作成しました。 各担当毎の行数、列数も比較的多いことから、列と行をグループ化しています。 また、いくつかのセルで計算式（例えば売上個数と単価）を設定しています。 ※各担当毎の書式や計算式を設定したセルはすべて同じ このEXCELファイルを共有化して、複数人で処理すること、また、コピペなどにより計算式を削除されないようにシートに保護をかたところ、グループ化のコマンドが操作できなくなってしまいました。 いろいろ調べたところ、以下のVBA（マクロ）で解決できると知ったのですが、このマクロでは、設定したsheetのみにしか対応できません。 複数のsheet（今回はSheet１からsheet10まで、sheet11は不要）に対応させるにはどうすればよいのでしょうか？ どなたかご教授いただけると助かります。 調べたマクロ ************************* Private Sub Workbook_Open() Sheets("Sheet1").EnableOutlining = True Sheets("Sheet1").Protect Password:="****", DrawingObjects:=True, _ contents:=True, UserInterfaceonly:=True End Sub ************************ |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
