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

• #23401 Delila_1 veterán slashing #23400

  Új Válasz 2014-09-23 11:22:12 #23401

  Ú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

  

  Delila_1

  veterán

  válasz slashing #23400 üzenetére

  Azért egy másik, ami azt figyeli, hogy a saját felhasználói neveddel léptél-e be.

  Sub mmmm()
  Dim nev$
  nev$ = Application.InputBox("Add meg a neved!", "Név bekérése", , , , , , 2)
  If nev$ <> Environ("username") Then
  MsgBox ("Te kis huncut, nem vagy jogosult a füzetet használni!"), vbOKOnly + vbExclamation
  Exit Sub
  Else
  MsgBox "Tovább..."
  'makró többi része
  End If
  End Sub

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