Jelszó

Ez a téma lezárásra került a moderátor által. A lezárás oka: Próbálj meg normális, a problémát jól körülíró címet adni a témádnak!
Jelszó
2022-05-17T17:39:44+02:00
2022-05-17T18:45:05+02:00
2022-08-12T09:05:31+02:00
tolmacs
Jziasztok,

szeretnék megnyitni egy jelszóval védett fájlt makróval.
Találtam több megoldási javaslatot is, azonban egyik sem működik
Meg tudná mondani valaki, hogy mit csinálok rosszul?

Előre is köszönöm szépen a válaszokat.

Sub teruletvezetoknek()

WorksheetFunction.Application.DisplayAlerts = False

Dim Route As Variant
Dim File As String
Dim Password As Variant
Password = "xxxx"

Route = "K:\Improduktív idők\Területvezetőknek.xlsm"
 File = "Területvezetőknek.xlsm"

'Workbooks.Open Filename:="K:\daten\Huebner\Allgem\DISZPONENSEK_harmonika\Improduktív idők\Területvezetőknek.xlsm", Password:="xxxx"

Workbooks.Open Filename:="K:\daten\Huebner\Allgem\DISZPONENSEK_harmonika\Improduktív idők\Területvezetőknek.xlsm"

Password = "xxxx"
    
With Workbooks("Területvezetőknek.xlsm")
Workbooks("Területvezetőknek.xlsm").Sheets("kimutat").Unprotect "xxxx"
Cells.Locked = False
End With
Mutasd a teljes hozzászólást!
Szia!

Mit értesz az alatt, hogy nem működik? Hibajelzést kapsz? 
Egyáltalán védett módon, jelszóval van elmentve a megnyitandó fájlod?
Először ne kapcsold ki a DisplayAlerts funkciót, hogy lást a hibaüzenetet. 

'Workbooks.Open Filename:="K:\daten\Huebner\Allgem\DISZPONENSEK_harmonika\Improduktív idők\Területvezetőknek.xlsm", Password:="xxxx"

Ezt egy sorba kell írni, vedd ki előle az aposztrófot:

Workbooks.Open Filename:="K:\daten\Huebner\Allgem\DISZPONENSEK_harmonika\Improduktív idők\Területvezetőknek.xlsm", Password:="xxxx"
A Password a megnyitás egyik paramétere.
Ha változókban adod meg a fájl paramétereit, akkor azt is használhatod. (Úgy látom az elérési út nem azonos a route változódban megadottal - de mivel teljes nevet írtál ki, ez most nem számít.)
A makrónál légy szíves a programsor (</>) kapcsolót használni (kijelölöd a teljes makrót és rákattintasz erre a kapcsolóra), így látszani fog normálisan a makró.
Üdv.
Mutasd a teljes hozzászólást!

Ez a téma lezárásra került a moderátor által. A lezárás oka: Próbálj meg normális, a problémát jól körülíró címet adni a témádnak!
abcd