Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Excel Copiare Celle da foglio protetto e nascosto

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Excel Copiare Celle da foglio protetto e nascosto

Postdi boman » 26/01/11 00:26

Utilizzo una macro per copiare un range di celle A4:A3003 da un foglio 1 (protetto e nascosto) ad un foglio 2. se il foglio 1 non è nascosto la macro che utilizzo funziona correttamente. i guai iniziano quando nascondo il foglio 1 perchè naturalmente l'istruzione della macro non riesce a selezionarlo.
questo è il codice:

Codice: Seleziona tutto
    Sheets("foglio1").Select
    Range("A4:R3003").Select
    Selection.Copy
    Sheets("foglio2").Select
    Range("A4").Select
    ActiveSheet.Paste
boman
Utente Junior
 
Post: 26
Iscritto il: 18/12/10 19:18

Sponsor
 

Re: Excel Copiare Celle da foglio protetto e nascosto

Postdi Anthony47 » 26/01/11 00:40

Devi rendere visibile il foglio nell' esecuzione della macro, e nasconderlo al termine.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Excel Copiare Celle da foglio protetto e nascosto

Postdi boman » 26/01/11 08:11

Non c'è altra soluzione? Perché alla fine dovrei creare più fogli nascosti e tutti che richiedono la password per scoprirli. Non vorrei che la macro ogni volta mi scopra un foglio alla volta e per ognuno debba digitare la password manualmente.
boman
Utente Junior
 
Post: 26
Iscritto il: 18/12/10 19:18

Re: Excel Copiare Celle da foglio protetto e nascosto

Postdi boman » 26/01/11 08:34

Una precisazione: la richiesta di password per scoprire il foglio l'ho creata con una macro trovata anch'essa in questo forum ed è questa:
Codice: Seleziona tutto
Private Sub Worksheet_Activate()
Application.EnableEvents = False
JJ = ActiveSheet.Name
Sheets(JJ).Visible = False
AskPsw = InputBox("Password per foglio " & JJ, "Check Password")
If AskPsw = "MIAPASSWORD" Then Sheets(JJ).Visible = True: Sheets(JJ).Select
Application.EnableEvents = True
End Sub


Nell'eventualità che non ci fosse altra soluzione non so come compilare la macro che mi esegua la digitazione della password e che poi mi nasconda il foglio1:

Public Sub scopri_foglio1()
With Worksheets("foglio1")
.Visible = xlSheetVisible
.Select
DIGITA LA PASSWORD <--------------- cosa ci devo scrivere?
Range("A4:R3003").Select
Selection.Copy
NASCONDI FOGLIO1 <--------------- cosa ci devo scrivere?
Sheets("foglio2").Select
Range("A4").Select
ActiveSheet.Paste
boman
Utente Junior
 
Post: 26
Iscritto il: 18/12/10 19:18

Re: Excel Copiare Celle da foglio protetto e nascosto

Postdi boman » 26/01/11 14:54

Ho risolto con questa macro che non va a selezionare (.select) il foglio nascosto (foglio1) e quindi non mi richiede nemmeno di digitare la password:

Codice: Seleziona tutto
    Sheets("folgio1").Range("A4:R3003").Copy
    Sheets("foglio2").Select
    Range("A4").Select
    ActiveSheet.Paste
boman
Utente Junior
 
Post: 26
Iscritto il: 18/12/10 19:18

Re: Excel Copiare Celle da foglio protetto e nascosto

Postdi Anthony47 » 26/01/11 22:10

E hai fatto bene.
Tieni presente che la stragrande maggioranza di ".Select" sono funzionalmente inutili (anche se hanno il pregio di consentire di seguire facilmente il debug di un codice).
Se vuoi strippare il tuo codice usa
Codice: Seleziona tutto
Sheets("folgio1").Range("A4:R3003").Copy Destination:= Sheets("foglio2"). Range("A4")

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Excel Copiare Celle da foglio protetto e nascosto":


Chi c’è in linea

Visitano il forum: Nessuno e 13 ospiti

cron