'移除VBA编码保护

'移除VBA编码保护
Private Function MoveProtect()
  Dim FileName As String
  FileName = Application.GetOpenFilename("Excel文件(*.xls), *.xls,Excel文件(*.xla), *.xla", , "VBA破解")
  If FileName = False Then
     Exit Function
  Else
     VBAPassword FileName, False
  End If
End Function