いつもお世話になります。
OSはwin11、エクセルはoffice365です。
17のシートがある内、
シート名の 1~12 のみにシートの保護及び解除
を設定したいです
下記の参考コードはシート「1」ですが
1~12にするにはどうすればいいでしょうか
参考
Sub シートの保護()
Dim sheet1 As Worksheet
Set sheet1 = Worksheets(“1”)
sheet1.Protect Password:=”1111″
End Sub
Sub シートの保護を解除()
Worksheets(“1”).Unprotect Password:=”1111″
End Sub
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
以下のようにしてください。
Sub シートの保護()
Dim i As Long
Dim sheet1 As Worksheet
Dim sname As String
For i = 1 To 12
sname = i
Set sheet1 = Worksheets(sname)
sheet1.Protect Password:="1111"
Next
End Sub
Sub シートの保護を解除()
Dim i As Long
Dim sheet1 As Worksheet
Dim sname As String
For i = 1 To 12
sname = i
Set sheet1 = Worksheets(sname)
sheet1.Unprotect Password:="1111"
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA countif について 3 2021/12/16 20:13
- Visual Basic(VBA) 空のシートに関数を入れたい 2 2021/12/03 15:08
- Visual Basic(VBA) 転記先VBA 一致しているセルがコピーされない 5 2021/11/15 17:23
- Excel(エクセル) マクロを修正できないものか、統合シートについて 3 2021/12/07 09:26
- Excel(エクセル) マクロ作成で困っています。お教え頂けませんか。 1 2021/12/12 17:02
- Visual Basic(VBA) フォルダの作成 3 2021/11/10 11:05
- Excel(エクセル) vba シート名の一覧を2列に分けるには 5 2023/04/24 08:56
- Visual Basic(VBA) EXCEL VBA シート比較し〇×判定 1 2021/11/19 11:49
- Visual Basic(VBA) シート名をフォルダ名に変更 1 2021/12/01 15:59
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELで複数のシートを一度に「...
-
エクセルでブック内の倍率がバ...
-
特定のシートのみ再計算させな...
-
【ExcelVBA】マクロの入ったシ...
-
【Excel VBA】データ貼り付け先...
-
ハイパーリンクでジャンプした...
-
エクセルで複数のシートに画像...
-
Wordで差し込み印刷時に表示す...
-
ワークシートそのものの色を変...
-
エクセルでリンク貼り付けした...
-
エクセルのシート連番の振り直し
-
特定の複数のシートに同じ処理...
-
エクセル、特定のシートにパス...
-
Accessのテーブルを既存のExcel...
-
エクセル、別のシートの表をポ...
-
EXCELの「シートの見出し」のフ...
-
EXCELの図形(テキストボックス)...
-
エクセルの2つのシートを並び...
-
エクセルシートのタブの階層化表示
-
アクセスからエクセルのシート...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで複数のシートを一度に「...
-
エクセルで複数のシートに画像...
-
エクセルでブック内の倍率がバ...
-
特定のシートのみ再計算させな...
-
ワークシートそのものの色を変...
-
【ExcelVBA】マクロの入ったシ...
-
ハイパーリンクでジャンプした...
-
エクセルのシート連番の振り直し
-
エクセル、特定のシートにパス...
-
エクセルの2つのシートを並び...
-
エクセルのシー名を二段表示に...
-
Wordで差し込み印刷時に表示す...
-
Accessのテーブルを既存のExcel...
-
【Excel VBA】データ貼り付け先...
-
EXCELの「シートの見出し」のフ...
-
EXCELの図形(テキストボックス)...
-
accessへエクセルの複数のシー...
-
アクセスからエクセルのシート...
-
特定の複数のシートに同じ処理...
-
エクセルで、シートの名前を変...
おすすめ情報