Vraag : Worksheet_Change

Ik heb een aantekenvel dat een genoemde waaier daarin geroepen „Col_M“ heeft.  Het is op een open geopend, onbeschermd blad.  De cellen in de waaier „Col_M“ hebben formules in hen en ik wil het proces gebruiken WorkSheet_Change om de verandering te verhinderen van de cellen in de waaier, in plaats van blad bescherm, opent het slot…. (lang verhaal) maar ik moet iets daar gebruiken andere toen de standaardbladbescherming method.

Is een manier om WorkSheet_Change aan montior te gebruiken dit gamma, en als een gebruiker trys om een celwaarde in dat gamma te veranderen om het tegen te houden, alarmeert verhindert geen chg wordt toegestaan en de verandering?

Col_M is een dynamische waaier zodat worden de rijen de hele tijd toegevoegd en geschrapt en het zou niet moeten van belang zijn dat de rijen worden toegevoegd of weggehaald.  Dit proces zou niet van rijen moeten geven wordt toegevoegd of wordt geschrapt van Col_M, en het zou voor dat moeten toestaan, geeft enkel geen cel uit voor de cellen in Col_M range.

Can dit zelfs wordt gedaan?  Gelieve te adviseren en dank. - R-

Antwoord : Worksheet_Change

Hello R,

dit men zou nog beter moeten werken: in de vorige versie, kon de gebruiker meer dan één cel selecteren en de formules schrappen. De versie nu in bijlage staat slechts de toevoeging of de schrapping van *complete*rijen of kolommen toe. Al andere celmanipulatie op de waaier „col_M zal“ niet toegestaan worden.

juicht, teylyn toe
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

Privé SubWorksheet_Change (Doel ByVal als Waaier)
Als om te snijden niet (Doel, Waaier („col_M“)) Is dan niets
    Application.EnableEvents = Vals
    Als Target.Rows.Count = Waaier („A1“, Cellen (Rows.Count, „A“)). Rows.Count toen
        Application.EnableEvents = Waar
        Sub van de uitgang
    Eind als
    Als Target.Columns.Count = Waaier („A1“, Cellen (1, Columns.Count)). Columns.Count toen
        Application.EnableEvents = Waar
        Sub van de uitgang
    Eind als
    Application.Undo
    MsgBox „u kan gehele kolommen of rijen, niet veranderingscellen slechts opnemen of schrappen.“
    Application.EnableEvents = Waar
Eind als
Sub van het eind
Andere oplossingen  
 
programming4us programming4us