複数シートのグループ化ができるマクロについて 削除
| 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 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
