Proteggere il file

  • Help me: come proteggere un file excel di Visitorsvba
    Ciao ragazzi,
    ho un file excel con dentro un programmino vba.
    lo regalerò solo ad un amico.
    come posso evitare che il file venga divulgato senza il mio consenso?
    le mie protezioni sul file sono:
    1-protezione del codice vba
    2-imporre ad utilizzare il file nella cartella "documenti" (se si sposta non si apre)
    3-proteggere i fogli (formule)
    4-mettere una password con scadenza d'uso (es. fino al 01-01-07)
    5-nascondere i fogli durante l'uso delle userform
    nonostante tutte queste protezioni:
    1-se si disabilitano le macro i fogli possono essere visualizzati (con formato -

    fogli - scopri)
    2-può essere copiato e utilizzato (se si scopre il punto 2, 4 se si rinnova la scadenza).
    conoscete altre protezioni?(es. impedire la copia?)
    grazie

    Apoben64 di Benvenuto !
    Non essendoci alcuna protezione perfetta, puoi almeno complicare ,se così si può dire , la vita a chi desidera scorpire il codice, inibendo ad esempio la barra degli strumenti .
    questo è il codice.

    l'esempio lo trovi a questo link :
    http://mio.discoremoto.alice.it/apoben64

    un saluto luca
     
    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
     Call sparCommandBar(True)
    End Sub
    
    Private Sub Workbook_Open()
        Call sparCommandBar(False)
    End Sub
    
    '*********************in un modulo :
    
    Option Explicit
    
    Sub sparCommandBar(ByVal bolSp As Boolean)
    
    Dim cmbBar As CommandBars
    Dim I As Integer
    
    Set cmbBar = Application.CommandBars
        For I = 1 To Application.CommandBars.Count
            cmbBar(I).Enabled = bolSp
        Next I
    End Sub
    

    Protezione di Mauro
    Un documento excel non potrà mai essere sicura al 100%, ad ogni modo puoi proteggere il documento in lettura scrittura:

    scegliere salva con nome dal menu file.
    scegliere opzioni generali dal menu strumenti.
    digitare una password nella casella password di scrittura e scegliere ok.
    quando si assegna una password, annotarla e conservarla in un luogo sicuro.

    ciao mauro

    Protezione - seguito di Ricky53
    Aggiungerei, sempre per rendere complicato il tutto, le seguenti istruzioni che nascondono la barra della formula, la barra di stato, le instezioni di riga e di colonna e i nomi dei fogli.

    per riattivare utilizzare le macro per impostare tutto a "true"

    ciao ricky53

     
    ' da eseguire in tutti i fogli
    Sub Disattivazione1()
        With ActiveWindow
            .DisplayHeadings = False
            .DisplayWorkbookTabs = False
        End With
    end sub
    
    
    ' da eseguire una sola volta per file excel
    Sub Disattivazione2()
        With Application
            .DisplayFormulaBar = False
            .DisplayStatusBar = False
            .ShowWindowsInTaskbar = False
    
        End With
    End Sub

    di Visitorsvba
    Grazie ragazzi per le vostre risposte.

    scusate per il ritardo.

    grazie ancora

    Protezione - utilizzo di Ricky53
    Per completezza del tuo quesito ci fai sapere se le soluzioni proposte ti sono state utili e se le hai potute inseire nel tuo codice.
    grazie.
    ciao,
    ricky53