• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Blokovanie buniek

Zaslal/a miska 3.10.2013 16:34

Ahojte, vedel by mi niekto prosim poradit, ako naprogramovat zablokovanie buniek v stlpci v tabulke po tom, ako je zadana hodnota do jednej bunky v stlpci? Moze sa to aj rozne menit, len akonalhe je zadana hodnota do niektorej z buniek stlpca, vsetky ostatne bunky v stlpci musia byt vyprazdnene. Dakujem

Zaslat odpověď >

---

Pavlus(3.10.2013 20:33)#015515

Bez makra se to dělá na kartě "Revize" s pomocí: "Zamknout list", "Odemknout list" a "Povolit uživatelům úpravy oblastí", nebo přímím nastavením buněk "Formát buněk / Zámek" a tady označit či neoznačit "Zamknout".
Když to chceš s makrem, tak využij stejného principu...
P.

Např.:
Po uzamčení listu bude možné upravovat buňku A1:
Range("A1").Locked = FalseUzamčení listu:
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=Truecitovat

AL(3.10.2013 21:51)#015520

cez udalosť Worksheet_Change, aby sa to necyklilo, tak budeš musieť asi ešte zamedziť spúšťaniu udalostí cez EnableEvents = Falsecitovat

miska(3.10.2013 22:43)#015521

hm a nejak tak v kope by ste mi nepovedali prosim ten kod? Lebo programovat v tom vobec neviem a bez makra to zrejme takto nepojde...Ak tam potrebujem tu podmienku, ze uzamknut stlpec vtedy, akonahle je vyplnene jedno z jeho policok. Nieco ako option button, len to potrebujem vyznacit v bunke istym vlastnym znakom...citovat

AL(3.10.2013 23:09)#015522

hm, a že by si sem dal vzor? No, ale prosíš pekne, tak tu máš nástrel. Najprv musíš odomknúť oblasť buniek, v ktorej to chceš aplikovať, potom zamknúť list (stačí zamknúť, bez hesla):

Do kódového okna listu, v ktorom to chceš používať, vlož nasledujúci kód (a uprav si v ňom oblasť, pre ktorú to chceš aplikovať):Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyRange As Range, Isect As Range
Set MyRange = [A1:M100] 'tu si urci oblast, v ktorej chces to zamykanie uplatnit
Set Isect = Intersect(MyRange, Target)
If Not Isect Is Nothing Then
ActiveSheet.Unprotect
If Target.Value <> "" Then
Isect.EntireColumn.Locked = True
End If
ActiveSheet.Protect
End If
Set MyRange = Nothing
Set Isect = Nothing
End Subcitovat

miska(4.10.2013 16:31)#015547

dakujem velmi pekne..
skusila som ale vypisuje mi tam chybu"Unable to Set the Locked Property of the Range Class", ked skusam nieco vpisat do slpca v ktorom uz je vpisana hodnotacitovat

AL(4.10.2013 16:42)#015548

Tak to máš smolu, písala si: "ako naprogramovat zablokovanie buniek v stlpci v tabulke po tom, ako je zadana hodnota do jednej bunky v stlpci"

Naučte sa sem vkladať prílohy, v ktorých to chcete poriešiť a jasne definovať zadanie, "ked skusam nieco vpisat do slpca v ktorom uz je vpisana hodnota" odporuje tomu, čo si chcela na začiatku...

Chybová hláška je fajn, ale ja si nebudem vytvárať súbor, aby som ju nasimuloval a zistil jej príčinu, to prepáč...citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse