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
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.
Ezt egy sorba kell írni, vedd ki előle az aposztrófot:
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.
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"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!
