移除VBA编码保护Sub MoveProtect() Dim FileName As String FileName = Application.GetOpenFilename(Excel文件(.xls .xla).xls.xla VBA破解) If FileName = CStr(False) Then Exit Sub Else VBA