2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #54167 Fire/SOUL/CD félisten Delila_1 #54165
    Új Válasz #54167
    Ú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 Delila_1 #54165 üzenetére

    Ha kivitelezhető és semmi (az adott feladat) nem indokolja, akkor pont az a lényeg, hogy a makró ne tartalmazzon érvényes jelszavakat, se tömbben, se máshogy, mert adott esetben "simán" kiszedhető... Ha nincs titkosítva ez a VBA kód, akkor simán bele lehet nézni megfelelő fájlba (Excel egy ZIP ki lehet tömöríteni és a vbaProject.bin fájlban ott van minden)

    Ez a VBA kód
    Private Sub CommandButton1_Click()

    Jelszo = Application.InputBox(prompt:="Kérem a jelszót", Type:=2)
    If Jelszo = "xxx" Or Jelszo = "yyy" Then
    MsgBox "Jó jelszó"
    End If
    End Sub

    Ez meg a kicsomagolt Excel és annak vbaProject.bin állománya

    Látod, hogy látom? :B

    Fferi50
    Ahogy írtam, nem kell vizsgálni a jelszó helyességét, csak simán megnyitni a megadott jelszóval, ha jó, ha nem jó. Hisztizni fog ha nem jó, és amúgy is kérni fogja újra.

    Private Sub CommandButton1_Click()
    Jelszo = Application.InputBox(prompt:="Kérem a jelszót", Type:=2)
    Set MyWorkBook = Workbooks.Open(Filename:="C:\fájlneve", Password:=Jelszo)
    End Sub

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