新建一个文件，打开VBA编辑器新建一个模块输入以下代码Sub MoveProtectDim FileName As String FileName = ApplicationGetOpenFilenamequotExcel文件*xls *xla *xlsm，*xls*xla*xlsmquot， ，...