| | Post: 51 | Registrato il: 03/03/2014
| Città: TORINO | Età: 54 | Utente Junior | 2007 | | OFFLINE | |
|
31/05/2018 20:27 | |
Buona sera a tutti,
stiamo utilizzando il file in tanti, in rete, ci sono pulsanti collegati a codici e macro come anche impostazioni che non vorrei venissero cambiate.
Il file è già protetto ma dalla barra in alto è possibile nascondere pulsanti, visionare macro ecc..
E' possibile impedire qualsiasi modifica accidentale o meno?
. [Modificato da sputnik_r 31/05/2018 20:34] |
|
| | Post: 3.511 | Registrato il: 28/06/2011
| Città: AGORDO | Età: 70 | Utente Master | 2013 | | OFFLINE | |
|
31/05/2018 20:51 | |
Per i vari pulsanti (quali?), anche macro (certo).
>>>E' possibile impedire qualsiasi modifica accidentale o meno?
Di questo non sono sicuro Excel 2013 |
| | Post: 2.985 | Registrato il: 03/04/2013
| Utente Veteran | Excel 2000 - 2013 | | OFFLINE | |
|
31/05/2018 21:48 | |
Buona sera, sputnik; come ti ho anticipato in precedenza, le protezioni in Excel non sono il massimo della sicurezza. Quello che puoi fare è "rendere la vita difficile ai Colleghi pasticcioni". @sputnik_r, chiede:
Il file è già protetto ma dalla barra in alto è possibile nascondere pulsanti, visionare macro ecc..
E' possibile impedire qualsiasi modifica accidentale o meno?
Entrando nel meroto della tua richiesta potresti azzardare con: Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" Questo comando, magari inserito in "Workbook_Open", nasconde le "Barre multifunzione" Ovviamente il "Progetto - VBAProject" andrà protetto con password. A disposizione Buona serata. Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 856 | Registrato il: 24/04/2004
| Città: TERAMO | Età: 63 | Utente Senior | 2010 | | OFFLINE |
|
31/05/2018 22:24 | |
Ciao a tutti.
Oltre a quanto suggerito da Giuseppe sarebbe utile anche:
-disabilitare le combinazioni di tasti usando Application.OnKey
-disabilitare il menù contestuale con (se non ricordo male)
Application.CommandBars("Cell").Enabled = False
Prima di chiudere il file poi, è meglio rimettere tutto a posto perchè, ad esempio il menù contestuale rimarrà disabilitato per qualunque file fino a quando non lo si riabilita esplicitamente. __________________________
[Excel 2010]
-Condividere la conoscenza aumenta la ricchezza di tutti.
-Dai ad un uomo un pesce e lo avrai sfamato per un giorno; insegnagli a pescare e lo avrai sfamato per sempre. (Confucio)
-Il sonno della ragione genera mostri. (Francisco Goya) |
| | Post: 3.513 | Registrato il: 28/06/2011
| Città: AGORDO | Età: 70 | Utente Master | 2013 | | OFFLINE | |
|
31/05/2018 22:32 | |
Solo perchè si chiama "Zer0kelvin" (grande)
Faccio come desidera (anche se non sò come). [Modificato da raffaele1953 31/05/2018 22:36] Excel 2013 |
| | Post: 51 | Registrato il: 03/03/2014
| Città: TORINO | Età: 54 | Utente Junior | 2007 | | OFFLINE | |
|
01/06/2018 06:08 | |
GiuseppeMN, 31/05/2018 21.48:
Buona sera, sputnik; come ti ho anticipato in precedenza, le protezioni in Excel non sono il massimo della sicurezza. Quello che puoi fare è "rendere la vita difficile ai Colleghi pasticcioni". @sputnik_r, chiede:
Il file è già protetto ma dalla barra in alto è possibile nascondere pulsanti, visionare macro ecc..
E' possibile impedire qualsiasi modifica accidentale o meno?
Entrando nel meroto della tua richiesta potresti azzardare con: Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" Questo comando, magari inserito in "Workbook_Open", nasconde le "Barre multifunzione" Ovviamente il "Progetto - VBAProject" andrà protetto con password. A disposizione Buona serata. Giuseppe
Buongiorno Giuseppe, purtroppo ho provato a inserirlo in vari modi ma mi da sempre questo errore che allego. . [Modificato da sputnik_r 01/06/2018 06:09] |
| | Post: 52 | Registrato il: 03/03/2014
| Città: TORINO | Età: 54 | Utente Junior | 2007 | | OFFLINE | |
|
01/06/2018 06:20 | |
raffaele1953, 31/05/2018 20.51:
Per i vari pulsanti (quali?), anche macro (certo).
>>>E' possibile impedire qualsiasi modifica accidentale o meno?
Di questo non sono sicuro
Buongiorno,
mi basterebbe che non fosse possibile fare nulla o quasi, accidentalmente o meno, nascondendo o eliminando solo per questo file la barra dei menù di cuoi ho postato la 1à immagine.
Non serve che sia a prova di hacker per intenderci.
|
| | Post: 53 | Registrato il: 03/03/2014
| Città: TORINO | Età: 54 | Utente Junior | 2007 | | OFFLINE | |
|
01/06/2018 06:21 | |
Zer0kelvin, 31/05/2018 22.24:
Ciao a tutti.
Oltre a quanto suggerito da Giuseppe sarebbe utile anche:
-disabilitare le combinazioni di tasti usando Application.OnKey
-disabilitare il menù contestuale con (se non ricordo male)
Application.CommandBars("Cell").Enabled = False
Prima di chiudere il file poi, è meglio rimettere tutto a posto perchè, ad esempio il menù contestuale rimarrà disabilitato per qualunque file fino a quando non lo si riabilita esplicitamente.
Grazie ma è sicuro?
Non vorrei rischiare di far danni |
| | Post: 2.987 | Registrato il: 03/04/2013
| Utente Veteran | Excel 2000 - 2013 | | OFFLINE | |
|
01/06/2018 06:27 | |
Buona giornata, sputnik; l'unica cosa a cui posso pensare è che l'istruzione: Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" ,visto che la utilizzo con Excel 2013, non sia compatibile con Excel 2007. Ora sto uscendo, appena rientro vedo di documentarmi meglio. A disposizione Buon Lavoro. Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 54 | Registrato il: 03/03/2014
| Città: TORINO | Età: 54 | Utente Junior | 2007 | | OFFLINE | |
|
01/06/2018 06:57 | |
GiuseppeMN, 31/05/2018 21.48:
Buona sera, sputnik; come ti ho anticipato in precedenza, le protezioni in Excel non sono il massimo della sicurezza. Quello che puoi fare è "rendere la vita difficile ai Colleghi pasticcioni". @sputnik_r, chiede:
Il file è già protetto ma dalla barra in alto è possibile nascondere pulsanti, visionare macro ecc..
E' possibile impedire qualsiasi modifica accidentale o meno?
Entrando nel meroto della tua richiesta potresti azzardare con: Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" Questo comando, magari inserito in "Workbook_Open", nasconde le "Barre multifunzione" Ovviamente il "Progetto - VBAProject" andrà protetto con password. A disposizione Buona serata. Giuseppe
Con questo riesco a fare solo parzialmente quel che voglio... ma se ne vanno solo le linguette con i fogli e la barrra della formula. In questo caso però non mi da errori. ................................................................... Sub ViaRibbon() ActiveWindow.DisplayWorkbookTabs = False '(fogli) With Application .DisplayFormulaBar = False 'barra della formula .DisplayStatusBar = False 'barra di stato .ShowWindowsInTaskbar = False 'barra delle applicazioni di Windows End With End Sub Sub ConRibbon() ActiveWindow.DisplayWorkbookTabs = True '(fogli) With Application .DisplayFormulaBar = True 'barra della formula .DisplayStatusBar = True 'barra di stato .ShowWindowsInTaskbar = True 'barra delle applicazioni di Windows End With End Sub [Modificato da sputnik_r 01/06/2018 07:01] |
| | Post: 55 | Registrato il: 03/03/2014
| Città: TORINO | Età: 54 | Utente Junior | 2007 | | OFFLINE | |
|
01/06/2018 07:03 | |
GiuseppeMN, 01/06/2018 06.27:
Buona giornata, sputnik; l'unica cosa a cui posso pensare è che l'istruzione: Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" ,visto che la utilizzo con Excel 2013, non sia compatibile con Excel 2007. Ora sto uscendo, appena rientro vedo di documentarmi meglio. A disposizione Buon Lavoro. Giuseppe
Mi era sfuggito il msg..a dopo..grazie mille. |
| | Post: 56 | Registrato il: 03/03/2014
| Città: TORINO | Età: 54 | Utente Junior | 2007 | | OFFLINE | |
|
01/06/2018 07:10 | |
aggiungendo questo ottengo quel che voglio ma....
... è una quazzata però perché cliccando sulla finestra in alto riappare il menù...
viene solo nascosto...ma è esattamente quello che vorrei ma senza che sia così facile riattivarlo.
Application.DisplayFullScreen = True 'a schermo intero
. [Modificato da sputnik_r 01/06/2018 07:31] |
| | Post: 2.988 | Registrato il: 03/04/2013
| Utente Veteran | Excel 2000 - 2013 | | OFFLINE | |
|
01/06/2018 11:38 | |
Buona giornata, sputnik. @sputnik_r, in Risposta #6, scrive:
... purtroppo ho provato a inserirlo in vari modi ma mi da sempre questo errore che allego.
Potresti dare uno sgurado a questo Link: https://www.itware.com/blog-itware/office-productivity-tool/item/1006-istruzione-segreta-fa-sparire-riapparire-il-ribbondove vengono proposte diverse istruzioni proprio per Excel 2007. Fai sapere se riesci a risolvere. A disposizione. Buon lavoro. Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 57 | Registrato il: 03/03/2014
| Città: TORINO | Età: 54 | Utente Junior | 2007 | | OFFLINE | |
|
01/06/2018 11:59 | |
GiuseppeMN, 01/06/2018 11.38:
Buona giornata, sputnik. @sputnik_r, in Risposta #6, scrive:
... purtroppo ho provato a inserirlo in vari modi ma mi da sempre questo errore che allego.
Potresti dare uno sgurado a questo Link: https://www.itware.com/blog-itware/office-productivity-tool/item/1006-istruzione-segreta-fa-sparire-riapparire-il-ribbondove vengono proposte diverse istruzioni proprio per Excel 2007. Fai sapere se riesci a risolvere. A disposizione. Buon lavoro. Giuseppe
Ora ci guardo... il problema è che io a casa ho il 2007 mentre sul lavoro dove utilizziamo il file mi pare ci sia il 2003 Inoltre in quel file proposto, ho notato adesso che una volta scomparse le linguette dei fogli quando voglio far ricoparire tutto va tutto ok tranne che non mi ricompaiono più le linguette con i nomi dei fogli appunto... un bel casotto. Menomale che vale solo per quel file. |
| | Post: 58 | Registrato il: 03/03/2014
| Città: TORINO | Età: 54 | Utente Junior | 2007 | | OFFLINE | |
|
01/06/2018 12:53 | |
sputnik_r, 01/06/2018 11.59:
Ora ci guardo... il problema è che io a casa ho il 2007 mentre sul lavoro dove utilizziamo il file mi pare ci sia il 2003
Inoltre in quel file proposto, ho notato adesso che una volta scomparse le linguette dei fogli quando voglio far ricoparire tutto va tutto ok tranne che non mi ricompaiono più le linguette con i nomi dei fogli appunto... un bel casotto. Menomale che vale solo per quel file.
come nn detto...avevo questa riga impostata in entrambi i pulsanti a False...errore mio... ActiveWindow.DisplayWorkbookTabs = False '(fogli) |
| | Post: 2.989 | Registrato il: 03/04/2013
| Utente Veteran | Excel 2000 - 2013 | | OFFLINE | |
|
01/06/2018 19:21 | |
Buona sera, sputnik; @sputnik_r, in Risposta #15, srive:
... avevo questa riga impostata in entrambi i pulsanti a False... ActiveWindow.DisplayWorkbookTabs = False '(fogli)
"ActiveWindow.DisplayWorkbookTabs = False" nasconde solo l'elenco dei "NomeFoglio di lavoro attivi" @sputnik_r, in Risposta #15, srive:
... il problema è che io a casa ho il 2007 mentre sul lavoro dove utilizziamo il file mi pare ci sia il 2003
Se stiamo parlando di Excel 2003 la procedura per nascondere le Barre degli strumenti, è un pò più lunga ma più dettagliata. Excel 2000 - 2003 gestiscono le "Barre degli strimenti" in questo modo: - Strumenti - Personalizza - Barre degli strumenti Nel menù contestuale viene proposto l'elenco di tutte le Barre disponibili con un Flag su quelle visibili. I comandi VBA per gestire le Barre sono i seguenti: per "nascondere" una barra è possibile utilizzare il seguente comando: Application.CommandBars("NomeBarra").Visible = False contestualmente, per "visualizzare" una barra, è possibile utilizzare il seguente comando: Application.CommandBars("NomeBarra").Visible = True Voglio dire, potresti avere due Codici VBA; uno conterrà l'elenco delle Barre che si desidere nascondere, quindi impostato a False, metre l'altro lo stesso elenco impostato a True. Questo consetirebbe di nascondere le Barre all'apertura di Excel. In fase di modifica della struttura, il Personale autorizzato, potrebbe entrare in VBA e, tramite Password, attivare ll Codice VBA di visualizzazione delle Barre. Terminate le modifiche, potrà attivare il Codice VBA delegato a nascondere le Barre ed eseguire i Test che riterrà più opportuni sulle modifiche apportate al Foglio di lavoro; oppure salvare semplicemente il File. Con l'auspicio di essere stato sufficientemente esaustivo rimango a disposizione per eventuali ulteriori approfondimenti. Buona serata e buon fine settimana. Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 59 | Registrato il: 03/03/2014
| Città: TORINO | Età: 54 | Utente Junior | 2007 | | OFFLINE | |
|
01/06/2018 20:25 | |
Molto gentile Giuseppe.
Ora andrò via qualche gg poi tornerò a provare qualche soluzione
Per ora provvisoriamente ho utilizzato quel codice che ho postato su apertura file unito alla protezione progetto.
|
|
|