[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『マクロが動かない』(ひで)
以下のような記録マクロを作成し実行したのですが,シート保護をかけるとマクロが動きません。C5~L44はセルロックを解除しています。
保護をかけないと動くのですが,理由がわかりません
よろしくお願いします。
***********************************
Sub ●などを直すマクロ()
'
' ●などを直すマクロ Macro
'
Range("C5:L44").Select ActiveWindow.SmallScroll Down:=-36 Selection.Replace What:="追○", Replacement:="○", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:="追△", Replacement:="△", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:="●", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:="▲", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub
< 使用 Excel:Excel2013、使用 OS:Windows8 >
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingRows:=True, UserInterfaceOnly:=True
UserInterfaceOnly:=Trueでマクロでの変更を有効にしてみて下さい。
ActiveSheet以下の他の部分の指定は適宜変更して下さい。
(ウッシ) 2016/04/25(月) 07:57
上記を最初に記入すればよいのでしょうか?
初心者なのでよろしくお願いします。ひで
(ひで) 2016/04/25(月) 08:11
検索する癖を付けた方がいいですよ。
「UserInterfaceOnly:=True」で検索するだけでも色々なコードが見られると思います。
対象シートをアクティブにして保護を外しておいて、イミディエイトウィンドウで
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingRows:=True, UserInterfaceOnly:=True
を実行するとか、
Sub test()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingRows:=True, UserInterfaceOnly:=True End Sub
として実行してもいいです。
(ウッシ) 2016/04/25(月) 08:28
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.