RE: Hromadna zmena read only

From: Likavcan, Alexander (Alexander.Likavcan@volkswagen.sk)
Date: 26. 02. 2003, 11:40 CET

  • Next message: Cascaval: "Re: k bezpecnosti browserov" 
    Zdar a silu Simona, dna 26.02.2003 si napisal(a):

> Dobry den
> 
> mam takovy problemek. Mam tu 250 tabulek, vsechny s atributem "doporuceno
pro
> read only". Tam je vsude urcita bunka J3 s datumem, kterou budu potrebovat
u
> vsech zmenit na jine datum. Pak mozna vsechny zase vytisknout, ale na to
uz
> makro mam.
> Otazka zni: jde vsude zmenit to, aby se uz neptal jako read only? Nebo jak
> otevrit Excel sesit tak, aby se automaticky odkleplo read only NO a pak
> pokracovalo v makru?
> Postup bude takovy, ze bude potreba otevrit sesit, odklepnout dotaz na
makra -
> ENABLE, dotaz na read only - NO, pak zmenit J3 na hodnotu treba 2.1.2003,
> vytisknout a zavrit. A to u vsech sesitu, ktere jsou v adresari.
> Pokud bych to delala i kolegum, pak by mohlo jit o radove 1000 tabulek a
to uz
> by byla darda.
> 
> Mate nejaky napad? Nespecha to nijak zvlast, tak do konce tydne by to bylo
> super.
> 
> Pokud je to prilis, tak by mi i stacilo, kdyby se dalo hromadne odstranit
to
> read only.
> 
> Diky moc
> 
> S.
> 
Sub otvaracia_utilitka()
Set fs = Application.FileSearch
'Napis adresar z ktoreho to ma tahat...
Adresar = CurDir

With fs
    .LookIn = Adresar
    .Filename = "*.xls"
    .SearchSubFolders = False
    .Execute
  MsgBox "Počet nájdených súborov: " & .FoundFiles.Count
        For i = 1 To .FoundFiles.Count
        z = .FoundFiles(i)
        Otvor_a_spracuj (z)
  

        Next i
End With
        MsgBox "Práca ukončená."
Application.ScreenUpdating = False
End Sub

Sub Otvor_a_spracuj(xlsFile)
Workbooks.Open xlsFile, 0, False, , , , True
'a pokracuj dalej
End Sub


s pozdravom
AleXXX
-- 

Remember: there are no strangers in the world,
only friends who have not yet met.
  • Next message: Cascaval: "Re: k bezpecnosti browserov"

    This archive was generated by hypermail 2.1.6 : 26. 02. 2003, 11:48 CET