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

• Fire/SOUL/CD félisten

  #54167

  #54165 Delila_1

  2025-02-27 09:45:13

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  #54165 Delila_1

  #54165 Delila_1

  Magában a makróban meg lehet adni (pl. egy tömbben), hogy melyik jelszavakat fogadhatja el.
  Ha nem jó az input, zárja be a füzetet.

  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