Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Macro e protezione foglio

152 views
Skip to first unread message

Davide Sa

unread,
Dec 14, 2006, 8:48:00 AM12/14/06
to
Ciao a tutti, domanda:
ho un foglio excel con alcune colonne protette e con impostato il filtro
automatico, ho creato una macro che dovrebbe mostrarmi tutto nel caso sia
attivo il filtro su qualche colonna, come faccio a fare funzionare la macro?
idem se vado su:
Dati > filtro > il pulsante mostra tutto è spento, se tolgo la protezione
funziona.
L'errore della macro è "Errore di run-time '1004': Errore nel metodo
ShowAllData per la classe WorkSheet."

Grazie.

Mauro Gamberini

unread,
Dec 14, 2006, 9:19:37 AM12/14/06
to


tuoFoglio.Unprotect "Pippo"

'codice da eseguire

tuoFoglio.Protect "Pippo"


Sostituisci tuoFoglio e Pippo con il nome
del tuo foglio e la tua password e dai un'occhiatina
a Protect e Unprotect nella guida del vba di Excel.

--
---------------------------
Mauro Gamberini
http://www.riolab.org/


Davide Sa

unread,
Dec 14, 2006, 10:29:00 AM12/14/06
to
Scusa Mauro ma non so so dove mettere il codice e poi lo devo mettere per
tutta la cartella di lavoro.
Fammi sapere
Grazie

"Mauro Gamberini" ha scritto:

Mauro Gamberini

unread,
Dec 14, 2006, 10:43:30 AM12/14/06
to
> Scusa Mauro ma non so so dove mettere il codice e poi lo devo mettere per
> tutta la cartella di lavoro.
>

Io non lo so dove lo devi mettere.
Ti ho solo postato una possibile soluzione.
Questo per il foglio protetto:

Public Sub tuaSub()

'Codice da eseguire
'Adesso devo fare una operazione sul foglio protetto
'Tolgo la protezione
nomeFoglio.Unprotect "tuaPassword"

' Qui ci sarà il codice da eseguire

'Rimetto la protezione al foglio
nomeFoglio.Protect "tuaPassword"

'eventuale altro codice

End Sub

Se è la cartella ad essere protetta, sostituisci
nimeFoglio con ActiveWorkbook.

Mauro Gamberini

unread,
Dec 14, 2006, 10:44:34 AM12/14/06
to
<cut>

Per il foglio puoi anche sostituire:
nomeFoglio con ActiveSheet.

0 new messages