Excel Copiare Celle da foglio protetto e nascosto

[boman]

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

[Anthony47]

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

Ciao

[boman]

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]

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]

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

[Anthony47]

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