Zip Multiple files via Excel VBA

Using this template zip the multiple files with their folder name in one path.
Ex, 
Assuming this path......  C:\Program Files\
In this folder it contain many folders.
Get directory list of folder names and give this list to this template under the name "FolderList:"
In "Your Path:" put the path above mentioned, (i.e., where the folders and files are located) and click the "GetZipfiles" button.


**Before using this template you must save as this file with the name "ConvertToZip.xls"


Click here to download ConvertToZip.xlt

LockCells with WorkSheet_Change event

Locking a cell is to prevent alteration of cell contents. 
In excel go to Format|Cells... then select Protection tab and ensure the Locked tick box is Unchecked for your destination range of cells. Then use the Tools|Protection|Protect Sheet... to protect the sheet and any unlocked cells will be locked against alteration when the worksheet change.


Code:
This is a worksheet event code, which means that it needs to be placed in the appropriate worksheet code module, not a standard code module.

Option Explicit 

Public Sub Worksheet_Change(ByVal Target As Range)
Call ApplyProtection(Range("A1:B20"))
Sheets("Sheet1").Protect Password:="password", UserInterfaceOnly:=True
End Sub

Private Sub ApplyProtection(thisRange As Range)
Dim thisCell As Range
ActiveSheet.Unprotect Password:="password"
For Each thisCell In thisRange
If IsEmpty(thisCell) Then
thisCell.Locked = False
Else
thisCell.Locked = True
End If
Next thisCell
ActiveSheet.Protect Password:="password", Contents:=True
End Sub