Grazie anthony avevo già dato un'occhiata ai tuoi suggerimenti. Il discorso si fà sempre più interessante. Come vedi la macro che ho aggiornato mi permette di sbloccare i fogli temporaneamente, eseguire le istruzioni e riproteggerli con password alla fine. Ora (tanto per cambiare) il mio problema e questo: Se avessi 100 articoli in elenco e volessi modificare la password, come noterai sarei costretto ad effettuare 400 modifiche (ad ogni articolo corrisponde una macro che gli permette di essere copiato da un foglio all'altro). Esiste uno stratagemma che mi permetta di sproteggere un foglio a prescindere dalla password che inserisco? (una sorta di sblocco forzato insomma)Al posto di:
ActiveSheet.Unprotect Password:="pippo" '<<<< impostare password
posso inserire un'altro tipo di codice che mi sblocchi il foglio senza specificare la password?
Leggevo qualcosa sull'istruzione Userinterface che permette l'esecuzione in VBA anche se il foglio è protetto; qualcuno ha qualche esperienza da condividere?
Grazie a tutti e a presto
Sub Copiaeincolla()
Dim Reponse As String
Reponse = MsgBox("Volete inserire l'articolo?", vbYesNo)
If Reponse = vbYes Then
Else
Exit Sub
End If
Sheets("1").Activate
ActiveSheet.Unprotect Password:="pippo" '<<<< impostare password
DEST = "K"
ActiveSheet.Shapes("Immagine").Select '<<<< impostare immagine da copiare
Selection.Copy
Range(DEST & "65536").End(xlUp).Offset(1, 2).Select
ActiveSheet.Paste
Range("A5:F5").Copy '<<<< impostare range
Range(DEST & "65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("2").Activate
ActiveSheet.Unprotect Password:="pippo" '<<<< impostare password
DEST = "A"
Sheets("1").Shapes("Immagine").Copy '<<<< impostare immagine da copiare
Range(DEST & "65536").End(xlUp).Offset(1, 2).Select
ActiveSheet.Paste
Sheets("1").Range("A5:F5").Copy '<<<< impostare range
Range(DEST & "65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True, Password:="pippo" '<<<< impostare password
Sheets("1").Activate
Range("K5").Select
ActiveSheet.Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True, Password:="pippo" '<<<< impostare password
End Sub