Well i appreciate your contribution and what you are giving to people, but im stuck in something about Excel. My problem run like this: After I have finished my work, i save it to my computer. And here is where my struggle begins! I want this doc excel file be accessed only from THIS computer. not being copy or moved by any USB or any other way. Is there any way out to do such a thing? I thought of putting a macro instead. I mean making up a VBA code, like : if username is My Name (for example) then Open file, if else Close. So if someone else copies the file and open it from another computer, the moment the VBA code reads the username it wont open the file (because is another username). Can you help me with the VBA code? Or if there is any other way of not stealing it, can you show me a way what i can do? Thanks in advance! Sincerely, Sem Best regards!

Nowości

Jak sprawić, by dostęp do programu Excel był możliwy tylko z jednego komputera?

przewyższać

Sobota, 23 czerwca 2018

1 Odpowiedzi

5.4 tys. Wizyt

Głosów

odpiąć

Cóż, doceniam twój wkład i to, co dajesz ludziom, ale utknąłem w czymś o Excelu.

Mój problem wygląda tak:
Po skończonej pracy zapisuję ją na swoim komputerze. I tu zaczyna się moja walka! Chcę, aby dostęp do tego pliku doc excel był możliwy tylko z TEGO komputera. nie mogą być kopiowane ani przenoszone przez USB ani w żaden inny sposób.
Czy jest jakieś wyjście, aby zrobić coś takiego?

Pomyślałem o wstawieniu makra. Mam na myśli tworzenie kodu VBA, takiego jak: jeśli nazwa użytkownika to My Name (na przykład), to Otwórz plik, jeśli w przeciwnym razie Zamknij.
Jeśli więc ktoś inny skopiuje plik i otworzy go z innego komputera, w momencie, gdy kod VBA odczyta nazwę użytkownika, nie otworzy pliku (ponieważ jest to inna nazwa użytkownika).

Czy możesz mi pomóc z kodem VBA?

Albo jeśli jest inny sposób, żeby tego nie ukraść, czy możesz mi pokazać, co mogę zrobić?

Dzięki z góry!

Z poważaniem

Z pozdrowieniami!

Raj2018

5 lat temu

#1648

Głosów

odpiąć

Ten kod umożliwia zapisanie skoroszytu tylko jako samego.

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 Sub

Ten kod pozwoli na niezapisanie przez wszystkich oprócz tych, którzy wiedzą jak (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

Strony:
1

Nie ma jeszcze odpowiedzi na ten post.

Zaloguj się, aby opublikować odpowiedź

Musisz być zalogowany, aby móc wysłać odpowiedź. Zaloguj się za pomocą formularza po prawej stronie lub zarejestruj konto, jeśli jesteś tutaj nowy. Rejestracja tutaj "