VBA lock column if count is greater than 10%

Hi All,

I want to make an attendance sheet. I have a column as 'Name' and rest of the columns has date as their header.
Now for each day some one will mark "AL","P" or "H". I want to count those AL and if the count is greater than 10% of total head count no one should be allowed to enter any "AL" in that column.An error would pop up. This goes for all the columns.

The data set is like the one below:

Name | 01-Mar-2017 | 02-Mar-2017| 03-Mar-2017|......... so on

Any help is appreciated.
Thanks

Would very much like to see this one play out....Have very little knowledge of WorkSheet Change Event

Hi Leclerc, I understand and would have loved to upload a workbook but due to security issues I can not upload any files.
Can you please help.?

Thanks

Hi Sintek,Thanks for your reply. I did not find any code in the file attached.

"If they want to Type in "AL" and the count of "AL"'s in the column is more than 10% of the Amount of peoples names then a Message should pop up. "
If they want to Type in "AL" and the count of "AL"'s in the column is more than 10% of the Amount of peoples names then a error should pop-up PLUS no more AL should be allowed to be entered in that column.

Thanks.

Hi p24leclerc, it does exactly what I thought but I can't enter AL at once-menas selecting cell typing AL and cnt+enter,it throws an error.
Further,can I mail that portion of AL data as the error pops up on crossing 10%

I meant, when the message box pops up (you code does that) and the user click cancel/close button a mail would be sent with all the data marked as AL in that column pasted on the body of the mail.

Can you please help here too

Hi scottiex, tahnks for the link,I already went throught it but what I want is mailing the current range in the active column where the user is supplying the data in...this I am not getting.
Can you help