一、直接输入：
1.选择要设置的单元格，譬如A1单元格；
2.选择菜单栏的“数据”→“有效性”→出现“数据有效性”弹出窗口；
3.在“设置”选项中→“有效性条件”→“允许”中选择“序列”→右边的“忽略空值”和“提供下拉菜单”全部打勾→在“来源”下面输入数据，譬如“1,2,3,4,5,6,7,8,9”(不包括双引号，分割符号“,”必须为半角模式)→按“确定”就OK了，再次选择该A1单元格，就出现了下拉菜单。
关闭你的文件，新开一Excel，同时按Alt和F11，进入VBA界面，右键点左上窗口的Thisworkbook，插入，模块，在右边出来的窗口中粘贴如下代码：
Sub MoveProtect()
Dim FileName As String
FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xla）,*.xls;*.xla", , "VBA破解")
[<] [187] [188] 189 [190] [191] [>]