0
Disfare
voti
Bene, apprezzo il tuo contributo e quello che stai dando alle persone, ma sono bloccato in qualcosa su Excel.
Il mio problema funziona in questo modo:
Dopo aver finito il mio lavoro, lo salvo sul mio computer. Ed è qui che inizia la mia lotta! Voglio che questo file doc excel sia accessibile solo da QUESTO computer. non essere copiato o spostato da qualsiasi USB o altro modo.
C'è una via d'uscita per fare una cosa del genere?
Ho pensato invece di mettere una macro. Intendo creare un codice VBA, come: se il nome utente è Il mio nome (ad esempio), quindi Apri file, in caso contrario Chiudi.
Quindi, se qualcun altro copia il file e lo apre da un altro computer, nel momento in cui il codice VBA legge il nome utente non aprirà il file (perché è un altro nome utente).
Potete aiutarmi con il codice VBA?
O se c'è un altro modo per non rubarlo, puoi mostrarmi un modo per cosa posso fare?
Grazie in anticipo!
Cordiali saluti, Sem
Cordiali saluti!
Il mio problema funziona in questo modo:
Dopo aver finito il mio lavoro, lo salvo sul mio computer. Ed è qui che inizia la mia lotta! Voglio che questo file doc excel sia accessibile solo da QUESTO computer. non essere copiato o spostato da qualsiasi USB o altro modo.
C'è una via d'uscita per fare una cosa del genere?
Ho pensato invece di mettere una macro. Intendo creare un codice VBA, come: se il nome utente è Il mio nome (ad esempio), quindi Apri file, in caso contrario Chiudi.
Quindi, se qualcun altro copia il file e lo apre da un altro computer, nel momento in cui il codice VBA legge il nome utente non aprirà il file (perché è un altro nome utente).
Potete aiutarmi con il codice VBA?
O se c'è un altro modo per non rubarlo, puoi mostrarmi un modo per cosa posso fare?
Grazie in anticipo!
Cordiali saluti, Sem
Cordiali saluti!
Questo codice consente di salvare la cartella di lavoro solo come se stessa.
Questo codice consentirà di non essere salvato da chiunque tranne coloro che sanno come (application.enableevents).
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
Cancel = True
MsgBox "Sorry, you can only save this workbook with its original name."
End If
End SubQuesto codice consentirà di non essere salvato da chiunque tranne coloro che sanno come (application.enableevents).
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
MsgBox ("All File Save and File Save As commands in this sheet ONLY have been turned OFF. Pretty cool, huh??")
End Sub- Pagina :
- 1
Non ci sono ancora risposte per questo post.