Új hozzászólás Aktív témák

• #43036 Fire/SOUL/CD félisten RAiN91 #43035

  Új Válasz 2020-02-11 13:24:44 #43036

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz RAiN91 #43035 üzenetére

  Private Sub CommandButton1_Click()

Dim MySpecComputerName, MyComputerName As String

MySpecComputerName = "UBUL-PC"
MyComputerName = Environ("computername")
If UCase(MyComputerName) = UCase(MySpecComputerName) Then
MsgBox (MySpecComputerName & " gépén fut a makró")
'ide kerül a makró, amit futtatni szeretnél
Else
MsgBox (MyComputerName & " gépén NEM fut a makró")
End If

End Sub

  Felhasználónevet is be lehet olvasni, ha esetleg kell: UserName = Environ("username")

Új hozzászólás Aktív témák