Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Nascondere dati usando immagine con password

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Nascondere dati usando immagine con password

Postdi BG66 » 01/07/19 09:12

Ciao a tutti,
per ragioni di trasparenza nei confronti degli utenti vorrei evitare di nascondere il foglio DBase.
Ma per ragioni di Privacy devo comunque evitare che il suo contenuto possa essere letto da persone non autorizzate.

Pensavo di usare come "barriera" un'immagine che possa essere attivata o disattivata con password.
E' fattibile?
https://www.dropbox.com/s/3wl442n8xe6tm1z/Gestione_AUTO_vForum.xlsm?dl=0

Grazie per l'aiuto
Gene
BG66
Excel2010
Avatar utente
BG66
Utente Senior
 
Post: 193
Iscritto il: 20/08/16 07:44

Sponsor
 

Re: Nascondere dati usando immagine con password

Postdi wallace&gromit » 01/07/19 09:36

Se gli utenti non sono molto "smanettoni" può funzionare.
Un'alternativa forse ancora più semplice (se puoi spostare i dati) è posizionare il tutto invece che a partire dalla cella A1, dalla AA101.
Bloccare gli scroll e accedere a quel punto con un pulsante.

Io uso questo sistema su un file che usano in parecchi e nessuno lo ha mai sabotato (non so dire se ci hanno provato senza riuscirci o se non ne hanno mai avuto l'intenzione).

Qualsiasi forma di blocco è comunque aggirabile da chi ha un minimo di conoscenze di vba.
stato 2014: Office2003/2013 su win7
Avatar utente
wallace&gromit
Utente Senior
 
Post: 1921
Iscritto il: 16/01/12 14:21

Re: Nascondere dati usando immagine con password

Postdi BG66 » 01/07/19 10:04

Ciao W&G,
in merito alla realizzazione pratica (mi riferisco all'immagine con password) riesci a darmi qualche indicazione o un link da seguire?

Gene
BG66
Excel2010
Avatar utente
BG66
Utente Senior
 
Post: 193
Iscritto il: 20/08/16 07:44

Re: Nascondere dati usando immagine con password

Postdi Anthony47 » 02/07/19 14:36

Se posizioni l'immagine e poi proteggi il foglio con password puoi ottenere quello che chiedi; dovrebbe bastare togliere la "spunta" alle opzioni "Seleziona celle bloccate" e "Seleziona celle sbloccate" in modo che non sia possibile posizionarsi sulle celle contenente i dati.

Quando sblocchi la protezione puoi selezionare e spostare l'immagine (e riposizionarla prima di riproteggere)

Con tutti i limiti della protezione offerta da Excel...

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 16453
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Nascondere dati usando immagine con password

Postdi BG66 » 02/07/19 20:43

Ciao Anthony,
funziona, tenuto conto dei tuoi dubbi e quelli di W&G, devo solo ragionare se può essere sufficiente questo semplice livello di protezione.
In ogni caso per agevolarmi nella manutenzione, pensavo ad una macro che attivando la password riducesse contemporaneamente la dimensione dell'immagine spostandola nell'angolo in basso a Sx e la sorella che faccia il contrario posizioni l'imagine ingrandendola.
Con il registratore ho provato a capire..l'effetto che fa ma non è funzionante:
Codice: Seleziona tutto
Sub riduzione()
'
' riduzione Macro
'
    ActiveWindow.SmallScroll Down:=-12
    Selection.ShapeRange.ScaleWidth 0.2368971257, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.2368971067, msoFalse, _
        msoScaleFromBottomRight
    ActiveWindow.SmallScroll Down:=6
    Selection.ShapeRange.IncrementLeft -208.5
    Selection.ShapeRange.IncrementTop -44.25
End Sub


PS Hai voglia anche di farmi capire come aumentare, nella tabella "Diario",le ore in "alle ore" (colonna G) inserendo la durata (colonna F) da sommare a "Dalle ore" (colonna E). Un semplice F+E sembra che non funzioni in una tabella.

Grazie
Gene
BG66
Excel2010
Avatar utente
BG66
Utente Senior
 
Post: 193
Iscritto il: 20/08/16 07:44

Re: Nascondere dati usando immagine con password

Postdi BG66 » 02/07/19 21:57

Ciao Anthony,
ignora la bozza da registratore, trovato qualcosa di meglio:
Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Application.ScreenUpdating = False
    Dim xRg As Range, sPic As Shape
      For Each sPic In ActiveSheet.Shapes
        If Target.Column > 1 Then
            Set xRg = Target.Offset(, -1)
            With sPic
              If TypeName(.OLEFormat.Object) = "Picture" Then
                  If .TopLeftCell.Address = xRg.Address Then
                      .Height = 450
                      .Width = 550
                  End If
              End If
            End With
        ElseIf Target.Column = 1 Then
            With sPic
                If TypeName(.OLEFormat.Object) = "Picture" Then
                   .Height = 60
                   .Width = 60
                End If
            End With
        End If
      Next sPic
    Application.ScreenUpdating = True
End Sub

Ma si ingrandisce cliccando a dx dell'immagine e si riduce cliccando nella colonna A indipendentemente dalla presenza della password.
Come adattarla per farla partire da un bottone legandola a PW?
https://www.dropbox.com/s/7jkry90h50w2esn/Gestione_AUTO_vForum1.xlsm?dl=0

Grazie se puoi.
Gene
BG66
Excel2010
Avatar utente
BG66
Utente Senior
 
Post: 193
Iscritto il: 20/08/16 07:44

Re: Nascondere dati usando immagine con password

Postdi Anthony47 » 03/07/19 02:05

Non farla complicata...
Sproteggi sul tuo foglio le celle A1 e B1, e riserva B1 per scriverci la password di sblocco.
Poi creati una Sub Sblocca e una Sub Blocca:
Codice: Seleziona tutto
Sub Sblocca()
Sheets("DBase").Select
On Error GoTo finEX
ActiveSheet.Unprotect Range("B1").Value
ActiveSheet.Shapes("Immagine 2").Visible = False
finEX:
End Sub


Codice: Seleziona tutto
Sub Blocca()
Sheets("DBase").Select
On Error GoTo finEX
With ActiveSheet.Shapes("Immagine 2")
    .Visible = True
    .Top = Range("C3").Top
    .Left = Range("C3").Left
End With
ActiveSheet.Protect Range("B1").Value
ActiveSheet.EnableSelection = xlUnlockedCells
Range("B1").ClearContents
finEX:
End Sub

La Sblocca prova a sproteggere il foglio usando la password che avrai scritto in B1 e poi rende l'immagine non visibile.
La Blocca invece protegge il foglio usando la password scritta in B1, rende l'immagine visibile e cancella B1.

Lancerai poi l'una o l'altra a seconda di cosa devi fare.
Oppure crei una unica macro che esegue la Blocca o la Sblocca a seconda dello stato di visibilita' dell'immagine:
Codice: Seleziona tutto
Sub FlipFlop()
If ActiveSheet.Shapes("Immagine 2").Visible = True Then
    Call Sblocca
Else
    Call Blocca
End If
End Sub


Quanto al calcolo orario, se in colonna E hai un orario e in colonna D hai un numero intero, allora la somma fara' lo stesso orario ma di N giorni dopo.
O scrivi la colonna D in formato orario, oppure in colonna G usi la formula
Codice: Seleziona tutto
=[@[Dalle ore]]+[@[Durata (h)]]/24


Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 16453
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Nascondere dati usando immagine con password

Postdi BG66 » 03/07/19 20:55

Ciao Anthony,
funziona tutto ma senza password :oops:
Cosa sbaglio??
https://www.dropbox.com/s/6xpkwqksk9e9jif/Gestione_AUTO_vAnthony.xlsm?dl=0

Gene
BG66
Excel2010
Avatar utente
BG66
Utente Senior
 
Post: 193
Iscritto il: 20/08/16 07:44

Re: Nascondere dati usando immagine con password

Postdi Anthony47 » 03/07/19 22:19

Hai messo le macro nel "modulo vba" del foglio Diario; ma questi moduli vanno usati solo per le macro di evento del foglio a cui si riferiscono (e' una semplificazione, ma trattandosi di "moduli di classe" il modo di far riferimento agli oggetti e' soggetto a regole particolari).
Ho spostato tutto in Modulo3 (va bene qualsiasi "modulo standard" del vba) e mi pare che il funzionamento sia regolare.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 16453
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Nascondere dati usando immagine con password

Postdi BG66 » 04/07/19 05:12

[RISOLTO]
Ciao Anthony,
scusami ...è stato proprio un errore da dilettante allo sbaraglio :neutral:
e non posso neanche tirare fuori la scusa del caldo perchè ieri sera ha anche piovuto!!

Grazie mille.
Gene
BG66
Excel2010
Avatar utente
BG66
Utente Senior
 
Post: 193
Iscritto il: 20/08/16 07:44

Re: Nascondere dati usando immagine con password

Postdi Anthony47 » 05/07/19 01:55

Starai invecchiando anche tu :D :D
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 16453
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Nascondere dati usando immagine con password":


Chi c’è in linea

Visitano il forum: Marius44, PcBase e 16 ospiti