マクロで保護をかけているけど、幅の変更ができない

質問

マクロ初心者です。
複数のシートに下記の様なマクロで保護をかけています。
Sub シートの保護()
Dim myWS As Worksheet
For Each myWS In Worksheets
With myWS
.EnableSelection = xlUnlockedCells
.Protect Password:="****"
End With
Next myWS
End Sub

マクロで保護がかかっている状態で、高さや幅を変更したいのですが、
どのようにマクロを変更すれば良いのかわかりません。

教えていただけますでしょうか？

回答No.1

kybo · ベストアンサー

高さや幅の変更はマクロで行うのでしょうか？
そうであれば、

Sub シートの保護()
Dim myWS As Worksheet
For Each myWS In Worksheets
With myWS
.EnableSelection = xlUnlockedCells
.Protect Password:="****", UserInterfaceOnly:=True
End With
Next myWS
End Sub

と「UserInterfaceOnly:=True」すれば、マクロからの変更はできます。

補足

回答頂きありがとうございます。
説明不足ですみません・・・。

マクロで変更するのではなく、入力が可能・不可能の保護をかけているのですが、他の方が使う際、保護をはずすことなく幅を変更することができたら～と思ったのですが・・・。

できるのでしょうか？

今使用しているマクロは、上記とこの保護を解除するマクロです。
よろしくお願いいたします。

回答No.3

kybo

許可しても問題ないのであれば、列や、行の書式設定を許可すれば出来ます

Sub シートの保護()
Dim myWS As Worksheet
For Each myWS In Worksheets
With myWS
.EnableSelection = xlUnlockedCells
.Protect Password:="****", AllowFormattingColumns:=True, AllowFormattingRows:=True
End With
Next myWS
End Sub

お礼

できました～(^o^)丿
ありがとうございます。

とっても助かりました。

回答No.2

Sinogi

マクロ記録はとってみましたか?

記録で得られるコードです。

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingColumns:=True, AllowFormattingRows:=True

補足

すみません・・・
意味を理解できないのですが、コードを見るってことですか?