使用VBA对工作表进行保护后,数据有效性 的下拉菜单无法使用

Question

 1  With wk.ActiveSheet
 2         
 3             Cells.Select
 4             Cells.EntireColumn.AutoFit
 5             Cells.EntireRow.AutoFit
 6             Selection.Locked = False
 7             Selection.FormulaHidden = False
 8             Columns("A:F").Select
 9             Selection.Locked = True
10             Selection.FormulaHidden = False
11             .Protect  DrawingObjects:=False, Contents:=True, Scenarios:=False
12  End With

 

使用VBA对EXCEL工作表进行保护后,数据有效性 的下拉菜单无法使用

代码如上,对A:F列进行了保护,G列的数据有效性的下拉菜单却无法使用了.请高手帮忙解决一下.

　　　　　　　　　　　　　　　　　　　　　　　　　　　　为感!