Proteggere il file

Hai un problema con Excel?

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

Vuoi approfondire questo argomento?