Blocca riquadri usando VBA
Di recente ho pubblicato sui riquadri Congelamento in Excel, ecco come puoi farlo usando VBA:
Blocca righe
Righe("1:1").Seleziona ActiveWindow.FreezePanes = True
Blocca colonne
Range("A:A").Seleziona ActiveWindow.FreezePanes = True
Blocca righe e colonne
Range("B2").Seleziona ActiveWindow.FreezePanes = True
Sblocca riquadri
ActiveWindow.FreezePanes = False
Forza il salvataggio della cartella di lavoro senza bloccare i riquadri
Excel ci consente di controllare le cose attraverso gli eventi. Questo articolo non è una discussione dettagliata su cosa sono gli eventi o le loro caratteristiche. Fornisce invece un esempio di un evento WorkBook. Si tratta di eventi che si svolgono a livello di cartella di lavoro anziché in un particolare foglio di lavoro.
Tramite VBA possiamo controllare cosa succede in determinati eventi come prima della stampa o prima del salvataggio. Un problema comune che devo affrontare è che a un certo numero di persone con cui lavoro non piacciono i file con Freeze Panes su di loro.
Quindi, in questo articolo, metteremo insieme del codice che controllerà se Freeze Panes è attivo e, in tal caso, non salverà il file. Ciò significa che devo salvarlo senza bloccare i riquadri, facendo felici i miei colleghi !!
La cosa più importante degli eventi della cartella di lavoro è che devono essere salvati nella posizione corretta, a livello di cartella di lavoro.
Per accedere al livello della cartella di lavoro, seguire i passaggi seguenti:
1. Fare clic con il tasto destro su una cartella di lavoro di Excel - visualizzare il codice:
2. Verrà visualizzato:
3. Fare doppio clic su "Questa cartella di lavoro" e quindi selezionare "Cartella di lavoro" dal primo menu a discesa sul lato sinistro:
Vediamo che il valore sul lato sinistro è ora cambiato in "Apri" - con del codice per l'evento di apertura della cartella di lavoro. Questo codice ci consentirà di determinare cosa succede quando la cartella di lavoro si apre per la prima volta.
Tuttavia, vogliamo controllare cosa succede quando salviamo la cartella di lavoro. Quindi cambia il menu a discesa a destra in "Prima di salvare" . La schermata ora sarà simile a:
Inseriamo ora il seguente codice dopo la dichiarazione:
Se ActiveWindow.FreezePanes = True Then MsgBox "Blocca riquadri attivo - Il file NON è SALVATO" Annulla = True End If
In modo che il codice completo ora assomigli a:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If ActiveWindow.FreezePanes = True Then MsgBox "Freeze Panes is on - File NOT SAVED" Cancel = True End If End Sub
Ora salva il file e POI attiva Freeze Panes in qualsiasi finestra. Quindi - RIPRISTINA il file. Apparirà un messaggio che indica che "Blocca riquadri" è attivo e che il file non è stato salvato.
In effetti, il file non verrà salvato fino alla rimozione di Freeze Panes.
