0
Razveljavi
Glasov
Cenim vaš prispevek in to, kar dajete ljudem, vendar sem se nekaj zataknil pri Excelu.
Moj problem teče takole:
Ko končam svoje delo, ga shranim na svoj računalnik. In tukaj se začne moj boj! Želim, da se do te datoteke doc excel dostopa samo s TEGA računalnika. ne kopira ali premika preko USB-ja ali na kakršen koli drug način.
Ali obstaja izhod za kaj takega?
Namesto tega sem mislil postaviti makro. Mislim sestaviti kodo VBA, na primer: če je uporabniško ime Moje ime (na primer), potem Odpri datoteko, če drugače Zapri.
Torej, če nekdo drug kopira datoteko in jo odpre iz drugega računalnika, v trenutku, ko koda VBA prebere uporabniško ime, datoteke ne bo odprla (ker je drugo uporabniško ime).
Mi lahko pomagate s kodo VBA?
Ali če obstaja kakšen drug način, da ga ne ukradem, mi lahko pokažete, kaj lahko storim?
Hvala vnaprej!
S spoštovanjem, Sem
Lep pozdrav!
Moj problem teče takole:
Ko končam svoje delo, ga shranim na svoj računalnik. In tukaj se začne moj boj! Želim, da se do te datoteke doc excel dostopa samo s TEGA računalnika. ne kopira ali premika preko USB-ja ali na kakršen koli drug način.
Ali obstaja izhod za kaj takega?
Namesto tega sem mislil postaviti makro. Mislim sestaviti kodo VBA, na primer: če je uporabniško ime Moje ime (na primer), potem Odpri datoteko, če drugače Zapri.
Torej, če nekdo drug kopira datoteko in jo odpre iz drugega računalnika, v trenutku, ko koda VBA prebere uporabniško ime, datoteke ne bo odprla (ker je drugo uporabniško ime).
Mi lahko pomagate s kodo VBA?
Ali če obstaja kakšen drug način, da ga ne ukradem, mi lahko pokažete, kaj lahko storim?
Hvala vnaprej!
S spoštovanjem, Sem
Lep pozdrav!
0
Razveljavi
Glasov
Ta koda omogoča, da se delovni zvezek shrani samo kot sam.
Ta koda bo omogočila, da je ne shrani kdorkoli, razen tistim, ki znajo (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 SubTa koda bo omogočila, da je ne shrani kdorkoli, razen tistim, ki znajo (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- Stran:
- 1
Za to objavo še ni odgovorov.