úprava xls souborů

[KRTa123]

Zdravim,
mam nasledujici problem. Z db v Accessu vyexportuji nekolik xls souboru. Lisi se pouze poctem radku (0 - cca 200) a maji nekolik pevnych sloupcu.

Potrebuji ve vsech souborech hromadne uzamknout nektere bunky, aby useri nemohli editovat obsah.


Premyslel jsem o nejakem VBA kodu. nejlepe, kdybych ho mohl spoustet primo accessu, abych ho mohl pridat rovnou za export.

Diky

Krtek

[Reklama]

[KRTa123]

heh tak jsem našel odpověd na první část otázky:

Sub SpustitMakroExcelu()
Dim XL As Object

On Error GoTo Chyba
Set XL = CreateObject("Excel.Application")

XL.Workbooks.Open Application.CurrentProject.Path & "\Dotaz.xls"
XL.Run "Module2.ZobrazitHlaseni"
XL.ActiveWorkbook.Close
XL.Quit

Set XL = Nothing
Exit Sub


Chyba:
MsgBox Err.Number & " " & Err.Description
End Sub

otestoval jsem v accessu a jde to :)