|
分類:[VB.NET/VB2005 以降]
下記のの参考用マクロについて質問です。
画像ファイルをセルに貼り付けた後、別の画像ファイルに変更しようとすると、
シートが保護されています。と表示されてしまいます。
ツール>保護の解除を行なわなければいけません。
このシート保護を無くすためにはどうすればよいのでしょうか？
EXCEL2003
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
ActiveSheet.Unprotect
Dim C As Range, cm As Range
Application.ScreenUpdating = False
For Each C In Selection
Set cm = C.MergeArea
If C.Address = cm.Item(1).Address Then
If Application.Dialogs(xlDialogInsertPicture).Show = False Then Exit Sub
With Selection
.Left = cm.Left
.Top = cm.Top
.Height = cm.Height
.Width = cm.Width
End With
End If
Next
Set cm = Nothing
Application.ScreenUpdating = True
Range("a1").Select
ActiveSheet.Protect
End Sub
|