zamknout list...citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Zobrazit stlpce
MS Excel
Téma: Zobrazit stlpce 
Zaslal/a Dunkaninko 22.2.2011 10:46
Mam skryte stlpce (napr C, D).Potreboval by som poradit ako zabranit zobrazenie tychto skrytych stlpcov (po vybrati stlpca B a E, kliknuti pravym tlacitkom mysi, nedovolit zobrazit). Je to mozne nejakym makrom? Dakujem
Skusil som to nasledovnym makrom
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
MsgBox "Nemôžete upravovať stĺpce C a D"
Columns(5).Select
End If
End Sub
Funguje to pokial sucasne vyberiem B a E. Ak vsak vyberiem len stlpec B, alebo nejaku bunku v tomto stlpci makro sa mi samozrejme aktivuje.
Ak by bola podmienka ze su sucasne vybrate stlpce B a E na spustenie makra, problem by bol vyrieseny. Neviem takuto podmienku zapracovat. Alebo cez VBA to nie je mozne?
Zamknutie listu by asi nepomohlo, lebo stlpce C a D musia byt za urcitych podmienok pre uzivatela k dispozicii pre vkladanie novych udajovcitovat
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
MsgBox "Nemôžete upravovať stĺpce C a D"
Columns(5).Select
End If
End Sub
Funguje to pokial sucasne vyberiem B a E. Ak vsak vyberiem len stlpec B, alebo nejaku bunku v tomto stlpci makro sa mi samozrejme aktivuje.
Ak by bola podmienka ze su sucasne vybrate stlpce B a E na spustenie makra, problem by bol vyrieseny. Neviem takuto podmienku zapracovat. Alebo cez VBA to nie je mozne?
Zamknutie listu by asi nepomohlo, lebo stlpce C a D musia byt za urcitych podmienok pre uzivatela k dispozicii pre vkladanie novych udajovcitovat
Bunky, ktere mohou uzivatele menit pridejte do seznamu oblasti, ktere jsou povoleny k upravam a zamknete list - melo by to fungovat...
pokud budete trvat na makru, tak by to slo takto:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B:$E" Then
MsgBox "Nelze upravovat sloupce C a D"
End If
End Subcitovat
pokud budete trvat na makru, tak by to slo takto:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B:$E" Then
MsgBox "Nelze upravovat sloupce C a D"
End If
End Subcitovat
Ano, to je to riesenie, ktore som potreboval.
Dakujemcitovat
Dakujemcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články