salve
vedi le modifiche alla macro:
Sub Macro1()
ActiveSheet.Unprotect Password:="Pippo"
Range("AD11:AH11").Select
ActiveSheet.OLEObjects.Add(ClassType:="Acrobat.Document.11", Link:=False, _
DisplayAsIcon:=True, IconFileName:= _
"C:\Windows\Installer\{AC76BA86-1033-FFFF-7760-000000000006}\_PDFFile.ico", _
IconIndex:=0, IconLabel:="Documento Adobe Acrobat").Select
nome = Selection.Name
With Range("d10")
Selection.ShapeRange.Left = .Left
Selection.ShapeRange.Top = .Top
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 15
Selection.ShapeRange.Width = 50
End With
ActiveSheet.Shapes(nome).Locked = False
x = MsgBox("Hai scelto il file?", vbOKCancel, "Scelta File")
If x = vbCancel Then
ActiveSheet.Shapes(nome).Delete
End If
ActiveSheet.Protect Password:="Pippo", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
NB. ho indicato come password di protezione il nome "Pippo" che dovrai cambiare secondo tue esigenze.
Ho inoltre apportato la modifica relativa allo sblocco dell'oggetto che la macro inserisce, quindi con il foglio bloccato
l'oggetto rimane sbloccato.
saluti
Giap
