Skúšam to porovnávať touto cestou, ale nedarí sa:
Sub OPEN_SUBOR()
Dim nazS As Workbook,cestaS As String,souborS As String, Kods as String
KodS = "abcd" 'toto na konci vymaže
cestaS = ActiveWorkbook.Path
souborS = ActiveWorkbook.Name
On Error GoTo Error_Handler
Set nazS = Workbooks.Open(Filename:=cestaS & "\" & souborS, Password:="", writeresPassword:=KodS)
Error_Handler:
"Tu niečo vykona"
Err.Clear
Set nazS = Nothing
End Sub
Help ako ďalej (stačí aj nápad), dopredu vďaka!citovat
Sub OPEN_SUBOR()
Dim nazS As Workbook,cestaS As String,souborS As String, Kods as String
KodS = "abcd" 'toto na konci vymaže
cestaS = ActiveWorkbook.Path
souborS = ActiveWorkbook.Name
On Error GoTo Error_Handler
Set nazS = Workbooks.Open(Filename:=cestaS & "\" & souborS, Password:="", writeresPassword:=KodS)
Error_Handler:
"Tu niečo vykona"
Err.Clear
Set nazS = Nothing
End Sub
Help ako ďalej (stačí aj nápad), dopredu vďaka!citovat