Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[Excel 2013] Macro aggiorna fogli nascosti

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 2013] Macro aggiorna fogli nascosti

Postdi fastbike73 » 31/07/14 14:53

Buongiorno a tutto il forum, nel file excel Riclassificati.xlsm ho, nel foglio "Editor", un pulsante che esegue l'importazione e l'elaborazione di dati in fogli, dello stesso file, che per motivi di sicurezza devo tenere nascosti. Il problema è che se mando in esecuzione la macro, tramite il pulsante, mentre i fogli sono nascosti mi esce il seguente errore:
'errore 1004 Metodo select dell'oggetto Worksheet non riuscito'. I dati comunque vengono poi scritti ed elaborati. Mi sono accorto che con i fogli visibili l'errore non si presenta.
Dovendo consentire l'utilizzo del file ad altre persone, ma essendo obbligato a non mostrare i fogli nascosti vorrei trovare una soluzione per non far apparire quest'errore.
Spero nel vostro aiuto.

P.s.: Ricky ti ricorda niente?? :D
fastbike73
Win 7 & Office 2013
Filemaker Pro v. 13
fastbike73
Utente Senior
 
Post: 220
Iscritto il: 23/04/14 10:54

Sponsor
 

Re: [Excel 2013] Macro aggiorna fogli nascosti

Postdi ricky53 » 31/07/14 15:19

Ciao,
certo che mi ricorda qualcosa, anzi, tanto!

Devi sproteggere i foglio, elaborare, riproteggere. Ovviamente l'utente non vedrà nulla durante l'elaborazione.

C'è anche la possibilità di proteggere con
Codice: Seleziona tutto
Sheets("Foglio1").Protect Password:="LaTuaPassword", UserInterFaceOnly:=True
... vedi la guida sulle modalità di utilizzo ... da inserire in "Private Sub Workbook_Open()"

Ne avevamo già parlato forse ma qui dico: non ricordo!
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: [Excel 2013] Macro aggiorna fogli nascosti

Postdi fastbike73 » 05/08/14 16:26

Ciao Ricky, scusami se non ti ho risposto subito ma ho avuto problemi di salute...
Forse non sono stato chiaro nella spiegazione. Quando faccio partire la macro di aggiornamento dei dati, se il foglio "Db" è nascosto, mi viene proposto l'errore "Errore 1004 . Metodo select dell'oggetto 'worksheet' non riuscito" . Se il foglio lo scopro, l'errore non si presenta. Credo che faccia riferimento ai comandi Select che sono inseriti nelle macro di aggiornamento.
fastbike73
Win 7 & Office 2013
Filemaker Pro v. 13
fastbike73
Utente Senior
 
Post: 220
Iscritto il: 23/04/14 10:54

Re: [Excel 2013] Macro aggiorna fogli nascosti

Postdi Anthony47 » 06/08/14 02:53

Nella stragrande maggioranza dei casi si puo' fare a meno di selezionare un foglio o un range; in questo caso le istruzioni devono sempre fare riferimento esplicito al foglio + intervallo.
Avendo il listing della macro si potrebbe suggerire una variante che lavora come detto.

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: 13885
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [Excel 2013] Macro aggiorna fogli nascosti

Postdi fastbike73 » 06/08/14 07:38

Anthony47 ha scritto:.....Avendo il listing della macro si potrebbe suggerire una variante che lavora come detto....

Buongiorno Anthony, sarei particolarmente grato a te e a tutto il forum se poteste aiutarmi. Le macro che aggiornano il foglio in questione sono sei... intanto ti posto la prima che è quella con cui importo i dati da un altra cartella di excel. Se tu ritieni che per aiutarmi ti sia necessario avere i file fammelo sapere che provvedo a inviare il link.

Codice: Seleziona tutto
Sub Import()
'
' Import Macro
'
' Scelta rapida da tastiera: CTRL+i
'
    Dim Percorso As String, Nome As String, Ur As Long
    Dim SH_In As Worksheet, SH_Out As Worksheet, WB_Out As Workbook, Rng_In As Range
   
    Set SH_In = Sheets("Editor")
    Set SH_Out = Sheets("Db")
    Set WB_Out = ActiveWorkbook
   
    Application.ScreenUpdating = False
    SH_Out.Cells.ClearContents
    Percorso = ActiveWorkbook.Path
    Nome = Worksheets("Editor").Range("E15")
    On Error GoTo Errore
    Workbooks.Open Filename:=Percorso & "\" & Nome
    Ur = Range("A" & Rows.Count).End(xlUp).Row
    Set Rng_In = Range("A1:I" & Ur)
    WB_Out.Activate
    Rng_In.Copy Destination:=SH_Out.Range("A1")
    SH_Out.Cells.EntireColumn.AutoFit
    SH_Out.Select
    SH_Out.Range("A1").Select
    SH_In.Select
   
    Application.DisplayAlerts = False
    Windows(Nome).Close SaveChanges:=False
    Application.DisplayAlerts = True
   
    MsgBox "Import di   '" & Ur - 1 & "'   dati correttamente effettuato", vbInformation
   
Fine:
    Application.ScreenUpdating = True
    Set SH_In = Nothing
    Set SH_Out = Nothing
    Set WB_Out = Nothing
    Set Rng_In = Nothing
    Exit Sub

'...............................................................
Errore:
    MsgBox "errore:  '" & Err & "'" & vbCrLf & Err.Description
    GoTo Fine:
End Sub
fastbike73
Win 7 & Office 2013
Filemaker Pro v. 13
fastbike73
Utente Senior
 
Post: 220
Iscritto il: 23/04/14 10:54


Torna a Applicazioni Office Windows


Topic correlati a "[Excel 2013] Macro aggiorna fogli nascosti":


Chi c’è in linea

Visitano il forum: Nessuno e 12 ospiti