Nascondere dati usando immagine con password

[BG66]

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

[wallace&gromit]

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.

[BG66]

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

[Anthony47]

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

[BG66]

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]

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

[Anthony47]

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

[BG66]

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

Gene

[Anthony47]

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

[BG66]

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

Grazie mille.
Gene

[Anthony47]

Starai invecchiando anche tu