Questione : Worksheet_Change

Ho un manuale che ha una gamma chiamata in esso ha chiamato “Col_M„.  È su uno strato sbloccato e non protetto aperto.  Le cellule nella gamma “Col_M„ hanno formule in loro e voglio utilizzare il processo di WorkSheet_Change per impedire il cambiamento delle cellule nella gamma, anziché lo strato proteggo, serratura sblocco…. (storia lunga) ma devo usare qualcosa altro allora la protezione standard method.

Is dello strato là un senso usare WorkSheet_Change al montior questa gamma e se trys dell'utente per cambiare un valore delle cellule in quella gamma per arrestarla, non avvisare chg sono permessi ed impedire il cambiamento? il

Col_M è una gamma dinamica in modo da le file stanno aggiungendo e cancellato continuamente e non dovrebbe importare che le file si aggiungano o tolte.  Questo processo non dovrebbe cura delle file si aggiunge o cancellato da Col_M e dovrebbe tenere conto quello, appena nessuna cellula pubblica per le cellule nel Col_M range.

Can che questo persino be è fatto?  Raccomandare prego e ringraziamenti. - R- class= del

Risposta : Worksheet_Change

Ciao R,

questo dovrebbe funzionare ancora migliore: nella versione precedente, l'utente potrebbe selezionare più di una cellula e cancellare le formule. La versione ora allegata permette soltanto l'inserzione o l'omissione delle file o delle colonne del *complete*. Tutta la altra manipolazione delle cellule sulla gamma “col_M„ non sarà permessa.

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

Worksheet_Change secondario riservato (obiettivo di ByVal come gamma)
Se non intersecare (obiettivo, gamma (“col_M„)) Allora è niente
    Application.EnableEvents = falso
    Se Target.Rows.Count = gamma (“A1„, cellule (Rows.Count, “A„)). Rows.Count allora
        Application.EnableEvents = allineano
        Uscire il sommergibile
    Concluder se
    Se Target.Columns.Count = gamma (“A1„, cellule (1, Columns.Count)). Columns.Count allora
        Application.EnableEvents = allineano
        Uscire il sommergibile
    Concluder se
    Application.Undo
    MsgBox “che potete inserire o cancellare soltanto le intere colonne o le file, non cellule del cambiamento.„
    Application.EnableEvents = allineano
Concluder se
Concludere il sommergibile
Altre soluzioni  
 
programming4us programming4us