Word
Excel
PowerPoint
Access
Outlook
ECDL
Poradna - přástup pro jedno PC
Vložení příspěvkuhlavní kategorie | zpět | + odpovědět na toto téma
| přástup pro jedno PC - diskuze na toto téma |
| Dobrá den, jde udělit přístup, pro daný sešit, pouze na jeden počítač?
Děkuji Při otevření souboru zjistit uživatele nebo Pc.
Private Sub Workbook_Open()
Dim uzivatel_1 As String
Dim uzivatel_2 As String
uzivatel_1 = Environ("USERNAME")
uzivatel_2 = Environ("COMPUTERNAME")
If uzivatel_1 <> "Novak" Then Application.Quit
End Sub Odpověď |
