Excel - VBA - výběr oblasti

[Branscombe]

Nazdárek ...

Mohl byste mi někdo prosím poradit jak vybrat oblast buňek v excelu ??
Potřebuji makro které mi vybere buňky A1:Jxx (xx = poslední použitá buňka ve sloupci "A")
Díky předem

PS: Jo a ještě kdyby tak náhodou někdo věděl jak zamknout VBA aby se nikdo kromě mě nemohl podívat do zdrojového kódu.

[navstevnik]

nekolik moznosti, z prikladu pouzij co vyhovi:

Kód: Vybrat vše

Option Explicit

Sub Blok()
' blok ve sloupcich D:E
  Dim Blok As Range
  With ActiveSheet
    Set Blok = Intersect(.UsedRange, .Range("d:e"))
  End With
  MsgBox Blok.Address
End Sub
Sub SetBlokUp()
' blok ve sloupci od A5, hleda smerem od posleniho radku na listu
  Dim Blok As Range
  Set Blok = ActiveSheet.Range("A5", [a65000].End(xlUp))
  MsgBox Blok.Address
End Sub
Sub SetBlokUp1()
' blok ve sloupci, hleda smerem od posleniho radku na listu
  Dim Blok As Range
  Set Blok = ActiveSheet.Cells(Rows.Count, "A").End(xlUp)
  MsgBox Blok.Address
End Sub
Sub SetBlokDown()
' blok ve sloupci, hleda smerem k prvni volne bunce od prvniho radku (A1)
  Dim Blok As Range
  With ActiveSheet
    Set Blok = .Range(.Range("A1"), .Range("A1").End(xlDown))
  End With
  MsgBox Blok.Address
End Sub
Sub SetBlokDown1()
' blok ve sloupci, hleda smerem k prvni volne od prvniho radku (A1)
  Dim Blok As Range
  Set Blok = ActiveSheet.Cells(1, "A").End(xlDown)
  MsgBox Blok.Address
End Sub

[Branscombe]

Paráda, díky ...
Funguje jak má ...

Ještě kdybyste někdo věděl jak zamknout vba abych se do nich dostal jen já. Aby mi tam ostatní uživatelé nemohli nic upravit ani si přečíst jak to vše funguje a hesla která tam jsou :-/

[X]

Nezamykej něco, co jsi ani neznal a musel se poradit. Pokud už někdo ví, kde VBA hledat, tak najde i způsoby, jak se tam dostat. A začátečníci ani neví, co to VBA je ...

[Branscombe]

To máš sice pravdu, ale potřebuji to zamknout jelikož v kódu VBA mám zapsány i hesla pro odemknutí sešitu. Takže alespoň nějakou ochranu potřebuji...

[X]

Excel VBA: Zamknutí projektu: http://www.office4you.cz/office4you/exc ... maker.html

[Branscombe]

Super, díky

[mike007]

Zamknutím VBA projektu si pomůžeš jen trochu. Chytřejší člověk si tvůj dokument se zamčeným VBA otevře v OpenOffice a všechny makra ti vykrade