Nascondi Colonne

Hai un problema con Excel?

Nuova discussione

Nascondi Colonne
di Gerry (utente non iscritto) data: 03/01/2014 09:24:54
Salve devovo risolvere un problema con eXcel ma non sono sicuro si possa fare, perciò ho deciso di chiedere aiuto a delle persone esperte.
Espongo il problema
In un file excel contenente diversi fogli nel folio 3 ci sono impostate 3 serie di colonne che dovranno contenere dei dati, e a sua volta saranno nascoste e dovranno essere scoperte quando si pigia un pulsante.
Esempio
Colonne ("A:I") Dati 1
Colonne ("J:S") Dati 2
Colonne ("T:AC") Dati 3

A questo punto nascondo tutte le colonne e creerò tre pulsanti che a sua volta mostreranno solo Dati 1 o Dati 2 o Dati 3 In base al pulsante clikkato.
Volevo chiede se possibile bloccare la la barra multifunzione la voce scopri e nascondi colonne anche con la richiesta di password se si tenta di visualizzare le colonne nascoste da pulsanti che non siano quelli creati da mè e posizionati sul foglio.

Spero che sia una cosa fattibile, ringrazio per l'aiuto
di Gerry (utente non iscritto) data: 03/01/2014 16:23:33
Salve c'è qualche utente esperto che può darmi una mano a risolvere il problema esposto?
Grazie
di Raffaele53 (utente non iscritto) data: 03/01/2014 16:43:09
Il registratore d'excel aiuta. Non è il massimo però se le colonne fossero C:E
Columns("C:E").Hidden = True 'nasconde
Columns("C:E").Hidden = False 'si vedono

Poi mettere un password sul foglio e facile (la macro prima la toglie e poi la rimette)
di Gery (utente non iscritto) data: 03/01/2014 17:23:04
Grazie Raffaele53, se possibile la passwor deve essere richiesta solo se le colonne verranno scoperte usando il comando posto sulla barra di excel.
se invece vengono usati i pulsanti che ho creato e posizionato sul foglio la password non deve essere richiesta.
il probleme è che le colonne devono essere visibili solo con i pulsanti.
Spero che sia possibile?

di Raffaele_53 (utente non iscritto) data: 04/01/2014 15:43:59
Solo se si tratta del foglio1 ed una password = pippo

Sub nascondi_1()
Sheets("Foglio1").Unprotect "pippo"
Columns("A:AC").Hidden = True
Columns("A:I").Hidden = False
Range("A1").Activate
Sheets("Foglio1").Protect "pippo"
End Sub
Sub nascondi_2()
Sheets("Foglio1").Unprotect "pippo"
Columns("A:AC").Hidden = True
Columns("J:S").Hidden = False
Range("J1").Activate
Sheets("Foglio1").Protect "pippo"
End Sub
Sub nascondi_3()
Sheets("Foglio1").Unprotect "pippo"
Columns("A:AC").Hidden = True
Columns("T:AC").Hidden = False
Range("T1").Activate
Sheets("Foglio1").Protect "pippo"
End Sub

Vuoi Approfondire?