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

• #54167 Fire/SOUL/CD félisten Delila_1 #54165

  Új Válasz 2025-02-27 09:45:13 #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?

  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