Vai al contenuto principale

Come applicare il blocco / sblocco dei riquadri a più fogli di lavoro contemporaneamente?

Supponendo che tu abbia una grande cartella di lavoro che contiene centinaia di fogli di lavoro, e ora devi applicare il Blocca riquadri per congelare tutti i fogli di lavoro contemporaneamente. Con la funzione Blocca riquadri di Excel, puoi semplicemente bloccare un solo foglio di lavoro alla volta, c'è un modo per congelare o sbloccare tutti i fogli di lavoro immediatamente in una volta in Excel?

Applica Blocca riquadri a tutti i fogli di lavoro contemporaneamente con il codice VBA

Applica Unfreeze Panes a tutti i fogli di lavoro contemporaneamente con il codice VBA

Applica i riquadri Blocca / Sblocca a tutti i fogli di lavoro contemporaneamente con un clic con Kutools per Excel


È possibile utilizzare il codice seguente per applicare i riquadri di congelamento a tutti i fogli di lavoro, eseguire i seguenti passaggi:

1. Se si desidera bloccare tutti i fogli di lavoro nella stessa posizione, selezionare una cella che si desidera bloccare nel foglio di lavoro e quindi tenere premuto Shift per selezionare tutte le schede dei fogli.

2. Tieni premuto il ALT + F11 chiavi e apre il file Finestra di Microsoft Visual Basic, Applications Edition.

3. Clic inserire > Modulie incolla il codice seguente nel file Finestra del modulo.

Codice VBA: blocca tutti i fogli di lavoro contemporaneamente in Excel

Sub Freeze()
'Updateby Extendoffice
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Application.ActiveWorkbook.Worksheets
    Ws.Activate
    With Application.ActiveWindow
        .FreezePanes = True
    End With
Next
Application.ScreenUpdating = True
End Sub

4. E poi premere F5 chiave per eseguire questo codice e tutti i fogli di lavoro sono stati applicati con i riquadri di congelamento nella stessa posizione.

Nota: Se tutti i fogli di lavoro non sono selezionati e le celle attive di ogni foglio di lavoro si trovano in posizioni diverse, i riquadri di congelamento si troveranno nei diversi punti delle celle attive.


Se sono applicati più fogli di lavoro con i riquadri di congelamento in Excel, come potresti sbloccarli alla volta tranne sbloccarli uno per uno?

1. Avvia la tua cartella di lavoro a cui sono stati applicati i fogli di lavoro con i riquadri di congelamento.

2. Tieni premuto il ALT + F11 chiavi e apre il file Finestra di Microsoft Visual Basic, Applications Edition.

3. Clic inserire > Modulie incolla il codice seguente nel file Finestra del modulo.

Codice VBA: sblocca tutti i fogli di lavoro contemporaneamente in Excel

Sub UnFreeze()
'Updateby Extendoffice
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Application.ActiveWorkbook.Worksheets
    Ws.Activate
    With Application.ActiveWindow
        .FreezePanes = False
    End With
Next
Application.ScreenUpdating = True
End Sub

4. E poi premere F5 chiave per eseguire questo codice e tutti i fogli di lavoro applicati con i riquadri di congelamento sono stati sbloccati contemporaneamente.


Se non hai familiarità con i codici VBA, ecco uno strumento potente- Kutools for Excel, suo Blocca riquadri più fogli di lavoro e Sblocca riquadri più fogli di lavoro le utilità possono aiutarti a congelare o sbloccare tutti i fogli di lavoro della cartella di lavoro corrente contemporaneamente.

Nota:Per applicare questo Blocca riquadri più fogli di lavoro, in primo luogo, dovresti scaricare il file Kutools for Excele quindi applica la funzione in modo rapido e semplice.

Dopo l'installazione Kutools for Excel, per favore fai come questo:

1. Seleziona una cella in cui desideri applicare il riquadro di blocco per tutti i fogli di lavoro, in questo caso faccio clic sulla cella B2, vedi screenshot:

doc congelare tutti i fogli 1-1

2. Quindi fare clic Kutools Plus > Foglio di lavoro > Blocca riquadri più fogli di lavoro, vedi screenshot:

3. E poi a tutti i tuoi fogli di lavoro sono stati applicati i riquadri di congelamento nella stessa posizione della cella B2.

Note:: Se desideri sbloccarli immediatamente, devi solo applicare la funzione Sblocca più fogli di lavoro facendo clic su Kutools Plus> Foglio di lavoro > Sblocca riquadri più fogli di lavoro.

Scarica e prova gratuitamente Kutools per Excel ora!


Kutools for Excel: con più di 300 utili componenti aggiuntivi di Excel, liberi di provare senza limitazioni in 30 giorni. Scarica e prova gratuita ora!

I migliori strumenti per la produttività in ufficio

Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   Più di 50 Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

scheda kte 201905


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is it possible to do it on selected worksheets only?

what would i need to change in the code.
This comment was minimized by the moderator on the site
Hi, Fernando,

To apply the freeze pane to selected sheets, please use the following code:



Sub Freeze()

'Updateby Extendoffice

Dim Ws As Worksheet

Dim xArrName As Variant

Dim xS

xArrName = Array("Sheet2", "Sheet3") 'Change the sheet names to your need

Application.ScreenUpdating = False

For Each xS In xArrName

Set Ws = Worksheets(xS)

If Not Ws Is Nothing Then

Ws.Activate

With Application.ActiveWindow

.FreezePanes = True

End With

End If

Next

Application.ScreenUpdating = True

End Sub



Please try it, thank you!
This comment was minimized by the moderator on the site
This would work but i would need to change every time i try and run it in a different workbook.

Is it possible for the macro to be modified to the sheets i select in the main pane by clicking on one and pressing shift and selecting the other ones?
This comment was minimized by the moderator on the site
want to be able to freeze top row on multiple worksheets
This comment was minimized by the moderator on the site
I tried this in my workbook and it worked very well. thanks
This comment was minimized by the moderator on the site
dear all, I have a test in my workbook, have a good note that before you apply this macro, please move the mouse to the cell that you need to apply freeze pane in the sheet. it's really helpful. this info is what I am looking for. thank you very much Lan
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations