The Alexsandra Spaces

Internet – Sicurezza – Excel & VBA

« Microsoft: progetto 30 e lode!
Excel :: Berto1980 »

Excel :: Morax

Pubblicato da Alexsandra su Novembre 8, 2007

sezione riservata a Morax prego gli altri utenti di postare quì consigli, suggerimenti esempi ma non altre problematiche…. Grazie ••• Ritorna alla pagina precedente •••

Questo è il quesito posto:

Vorrei impostare in una userform costruita da un pulsante questa procedura:

all’avvio della Userform TUTTI i fogli (oltre 100) contenuti nel file excel devono essere nascosti.
Premendo il pulsante tutti i fogli devono essere visibili.

Ho eseguito diverse prove ma risco solo a farlo foglio per foglio

Credo che esista un codice per fare ciò.

Questo post è stato pubblicato il Novembre 8, 2007 a 2:10 am ed è archiviato in Excel e VBA. Contrassegnato da tag: . Puoi seguire tutte le risposte a questo articolo attraverso il RSS 2.0 feed. Puoi lascia una risposta, oppure trackback dal tuo sito.

Una Risposta a “Excel :: Morax”

  1. Alexsandra detto

    Novembre 8, 2007 a 12:37 pm

    Archi ha qualche problema a casa, speriamo che risolva in fretta. (tanti auguroni)
    Prova questo codice

    Sub Proteggi_tutto() ‘ protezione di tutti i fogli
    Dim fogli As Integer
    fogli = ActiveWorkbook.Sheets.Count
    Application.ScreenUpdating = False
    For i = 1 To fogli
    Worksheets(i).Protect , Password:=”alex”
    Next i
    End Sub

    Sub sproteggi_tutto() ‘ sprotezione di tutti i fogli
    Dim fogli As Integer
    fogli = ActiveWorkbook.Sheets.Count
    Application.ScreenUpdating = False
    For i = 1 To fogli
    Worksheets(i).Unprotect , Password:=”alex”
    Next i
    End Sub

    associalo al tuo pulsante della userform e provalo.

    ciao

    Replica

Lascia una Risposta

XHTML: Puoi usare questi tag: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <pre> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

« Microsoft: progetto 30 e lode!
Excel :: Berto1980 »