Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Protezione Foglio con Macro Excel

Problemi di HTML? Di PHP, ASP, .NET, JSP, Perl, SQL, JavaScript, Visual Basic..?
Vuoi realizzare programmi in C, C++, Java, Ruby o Smalltalk, e non sai da che parte cominciare?
Entra qui e troverai le risposte!

Moderatori: Triumph Of Steel, archimede

Protezione Foglio con Macro Excel

Postdi michelaro » 14/10/05 14:43

Nel file Excel che sto creando dovrei fare una serie di copia e incolla all'apertura del foglio. Ma questo foglio è un foglio protetto ad eccezione di 2 celle. Non riesco a fare il copia su queste due celle anche togliendo la protezione non riesco a capire perchè, anzi sto impazzendo!!!!!

Allego il Codice:
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Scheda_di_Budget").Unprotect Password:="Demo"
Application.CalculateFull
Application.ScreenUpdating = True
Sheets("Appoggio").Select
ActiveSheet.Range("O20:P20").Select
Selection.Copy
Sheets("Appoggio").Select
ActiveSheet.Range("O27:P27").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Appoggio").Select
ActiveSheet.Range("O27:P27").Select
Selection.Copy
Sheets("Scheda_di_Budget").Select
Sheets("Scheda_di_Budget").Unprotect Password:="Demo"
ActiveSheet.Range("E10:F10").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CalculateFull
End Sub

Tale codice sta nel This Workbook
Nel foglio su indicato c'è invece:

Private Sub Worksheet_Activate()

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, Password:="Demo"
ActiveSheet.EnableSelection = xlUnlockedCells

End Sub

Spero che qualcuno riesca ad aiutarmi, ma sopratutto spero di essere
stata chiara.

Grazie a tutti
Michela :x
michelaro
Newbie
 
Post: 1
Iscritto il: 14/10/05 14:34

Sponsor
 

Torna a Programmazione


Topic correlati a "Protezione Foglio con Macro Excel":


Chi c’è in linea

Visitano il forum: Nessuno e 4 ospiti