申し訳ない
間違ってアップしてしまいました
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
確認が取れたのは、これです
当方、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
お礼
ありがとうございます。 できました! 感謝感激です~~。 もっとエクセルを勉強していろいろできるように なりたいと思います。