进销存软件怎么破译密码（进存销破解版）

用友软件官网小编今天要给各位会计朋友分享进销存软件怎么破译密码的知识，其中也会对进存销破解版进行相关解读，希望能够解决你现在面临的财务软件问题！

本文目录：

• 1、进销存软件登陆时忘记密码，咋个整啊？？？
• 2、农资进销存管理系统密码忘记怎么办
• 3、进销存登录密码忘了 能找回来吗？
• 4、wps的通用进销存助手怎样撤消工作表保护，密码怎么弄？
• 5、美萍进销存免费软件忘记密码怎么办
• 6、谁有 Excel进销存记账本2.0 破解 密码

进销存软件登陆时忘记密码，咋个整啊？？？

解答：A)SQL企业管理器里可以查看密码：找到相应的数据库，在表里面找到表“t_base_loginUser”，打开所有行就可以看到操作员和密码。

B)若客户使用的是MSDE的数据库，可以把数据备份到SQL中再查看密码。

农资进销存管理系统密码忘记怎么办

首先登录进入农资进销存软件，在【系统管理】-【修改密码】，点击修改密码，输入新的密码，保存。然后重新登陆农资进销存软件，此时软件登陆需要输入新的密码，新密码能正常登陆，说明密码已经生效。

农资：

农用物资简称农资，一般是指在农业生产过程中用以改变和影响劳动对象的物质资料和物质条件，如农业运输机械、生产及加工机械、农药、种子、化肥、农膜等等。土地不是农用物资，而是农业劳动对象（农业生产过程中人们将劳动加于其上的物质对象），与农用物资相比，它具有数量有限，位置固定，功能不可代替，肥力可以再生等特点。

进销存登录密码忘了 能找回来吗？

关于这个问题要看使用什么软件

1、数据加密基本很高，软件开发公司也无法看到，只能清除

2、数据加密基本一般，可以查看（需要用一定方法）

3、无加密，直接在数据库查看即可

好易用免费软件用户名密码采用最高级别加密，无法查看和破解。且清除密码需要由客户公司负责人提出申请才能清除。

wps的通用进销存助手怎样撤消工作表保护，密码怎么弄？

按如下步骤操作：

首先，将文件后缀改为rar或者zip

第二步，双击打开文件，依次进入如下文件夹，【xl】、【worksheets】

第三步，找到有你要破解保护密码的工作表名称的档案，例如sheet1工作表对应的档案【sheet1.xml】。右键【用记事本打开】，搜索关键字【protect】，将有此关键字的整个句子（一对尖括号内）选中后删除

第四步，关闭记事本，弹出警告框，选择【保存】，【确定】

最后，关闭压缩文件，将文件后缀再改回excel文件类型（例如xlsx）。这时，再打开文件，工作表保护密码就已经没有了

美萍进销存免费软件忘记密码怎么办

在登陆界面一般都有找回密码的按钮吧。生财宝进销存是这样的。也可以联系客服问问。

谁有 Excel进销存记账本2.0 破解 密码

用以下方法，亲测可用！

Excel工作表保护密码清除2009-05-23 14:461，打开需要解除保护的EXCEL工作表；

2，选择工具---宏----录制新宏---输入名字如:aa；

3，停止录制(这样得到一个空宏)；

4，工具---宏----宏,选aa,点编辑按钮；

5，删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧)；

6，关闭编辑窗口；

7，工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,旧的密码自动提示，工作表也自动解除保护了。

内容如下：

==================================================================================

Public Sub AllInternalPasswords()

' Breaks worksheet and workbook structure passwords. Bob McCormick

' probably originator of base code algorithm modified for coverage

' of workbook structure / windows passwords and for multiple passwords

'

' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)

' Modified 2003-Apr-04 by JEM: All msgs to constants, and

' eliminate one Exit Sub (Version 1.1.1)

' Reveals hashed passwords NOT original passwords

Const DBLSPACE As String = vbNewLine vbNewLine

Const AUTHORS As String = DBLSPACE vbNewLine _

"Adapted from Bob McCormick base code by" _

"Norman Harker and JE McGimpsey"

Const HEADER As String = "AllInternalPasswords User Message"

Const VERSION As String = DBLSPACE "Version 1.1.1 2003-Apr-04"

Const REPBACK As String = DBLSPACE "Please report failure " _

"to the microsoft.public.excel.programming newsgroup."

Const ALLCLEAR As String = DBLSPACE "The workbook should " _

"now be free of all password protection, so make sure you:" _

DBLSPACE "SAVE IT NOW!" DBLSPACE "and also" _

DBLSPACE "BACKUP!, BACKUP!!, BACKUP!!!" _

DBLSPACE "Also, remember that the password was " _

"put there for a reason. Don't stuff up crucial formulas " _

"or data." DBLSPACE "Access and use of some data " _

"may be an offense. If in doubt, don't."

Const MSGNOPWORDS1 As String = "There were no passwords on " _

"sheets, or workbook structure or windows." AUTHORS VERSION

Const MSGNOPWORDS2 As String = "There was no protection to " _

"workbook structure or windows." DBLSPACE _

"Proceeding to unprotect sheets." AUTHORS VERSION

Const MSGTAKETIME As String = "After pressing OK button this " _

"will take some time." DBLSPACE "Amount of time " _

"depends on how many different passwords, the " _

"passwords, and your computer's specification." DBLSPACE _

"Just be patient! Make me a coffee!" AUTHORS VERSION

Const MSGPWORDFOUND1 As String = "You had a Worksheet " _

"Structure or Windows Password set." DBLSPACE _

"The password found was: " DBLSPACE "$$" DBLSPACE _

"Note it down for potential future use in other workbooks by " _

"the same person who set this password." DBLSPACE _

"Now to check and clear other passwords." AUTHORS VERSION

Const MSGPWORDFOUND2 As String = "You had a Worksheet " _

"password set." DBLSPACE "The password found was: " _

DBLSPACE "$$" DBLSPACE "Note it down for potential " _

"future use in other workbooks by same person who " _

"set this password." DBLSPACE "Now to check and clear " _

"other passwords." AUTHORS VERSION

Const MSGONLYONE As String = "Only structure / windows " _

"protected with the password that was just found." _

ALLCLEAR AUTHORS VERSION REPBACK

Dim w1 As Worksheet, w2 As Worksheet

Dim i As Integer, j As Integer, k As Integer, l As Integer

Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer

Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer

Dim PWord1 As String

Dim ShTag As Boolean, WinTag As Boolean

Application.ScreenUpdating = False

With ActiveWorkbook

WinTag = .ProtectStructure Or .ProtectWindows

End With

ShTag = False

For Each w1 In Worksheets

ShTag = ShTag Or w1.ProtectContents

Next w1

If Not ShTag And Not WinTag Then

MsgBox MSGNOPWORDS1, vbInformation, HEADER

Exit Sub

End If

MsgBox MSGTAKETIME, vbInformation, HEADER

If Not WinTag Then

MsgBox MSGNOPWORDS2, vbInformation, HEADER

Else

On Error Resume Next

Do 'dummy do loop

For i = 65 To 66: For j = 65 To 66: For k = 65 To 66

For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

With ActiveWorkbook

.Unprotect Chr(i) Chr(j) Chr(k) _

Chr(l) Chr(m) Chr(i1) Chr(i2) _

Chr(i3) Chr(i4) Chr(i5) Chr(i6) Chr(n)

If .ProtectStructure = False And _

.ProtectWindows = False Then

PWord1 = Chr(i) Chr(j) Chr(k) Chr(l) _

Chr(m) Chr(i1) Chr(i2) Chr(i3) _

Chr(i4) Chr(i5) Chr(i6) Chr(n)

MsgBox Application.Substitute(MSGPWORDFOUND1, _

"$$", PWord1), vbInformation, HEADER

Exit Do 'Bypass all for...nexts

End If

End With

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

Loop Until True

On Error GoTo 0

End If

If WinTag And Not ShTag Then

MsgBox MSGONLYONE, vbInformation, HEADER

Exit Sub

End If

On Error Resume Next

For Each w1 In Worksheets

'Attempt clearance with PWord1

w1.Unprotect PWord1

Next w1

On Error GoTo 0

ShTag = False

For Each w1 In Worksheets

'Checks for all clear ShTag triggered to 1 if not.

ShTag = ShTag Or w1.ProtectContents

Next w1

If ShTag Then

For Each w1 In Worksheets

With w1

If .ProtectContents Then

On Error Resume Next

Do 'Dummy do loop

For i = 65 To 66: For j = 65 To 66: For k = 65 To 66

For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

.Unprotect Chr(i) Chr(j) Chr(k) _

Chr(l) Chr(m) Chr(i1) Chr(i2) Chr(i3) _

Chr(i4) Chr(i5) Chr(i6) Chr(n)

If Not .ProtectContents Then

PWord1 = Chr(i) Chr(j) Chr(k) Chr(l) _

Chr(m) Chr(i1) Chr(i2) Chr(i3) _

Chr(i4) Chr(i5) Chr(i6) Chr(n)

MsgBox Application.Substitute(MSGPWORDFOUND2, _

"$$", PWord1), vbInformation, HEADER

'leverage finding Pword by trying on other sheets

For Each w2 In Worksheets

w2.Unprotect PWord1

Next w2

Exit Do 'Bypass all for...nexts

End If

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

Loop Until True

On Error GoTo 0

End If

End With

Next w1

End If

MsgBox ALLCLEAR AUTHORS VERSION REPBACK, vbInformation, HEADER

End Sub

==============================================================================

Excel表格密码保护的解除方法

表格受密码保护时，我们修改数据Excel弹出“您试图更改的单元格或图表受保护，因而是只读的。若要修改受保护单元格或图表，请先使用‘撤消工作表保护’命令(在‘审阅’选项卡的‘更改’组中)来取消保护。可能会提示您输入密码。这时候我们可以用VBA宏代码破解法来破解表格保护密码：第一步：打开该文件，先解除默认的“宏禁用”状态，方法是点击工具栏下的“选项”状态按钮，打开“Microsoft Office安全选项”窗口，选择其中的“启用此内容”，“确定”。再切换到“视图”选项卡，点击“宏”→“录制宏”，出现“录制新宏”窗口，在“宏名”定义一个名称为：PasswordBreaker，点击“确定”退出；第二步：再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“编辑”，打开“Microsoft Visual Basic”编辑器，用如下内容替换右侧窗口中的所有代码：

Sub PasswordBreaker()

Dim i As Integer, j As Integer, k As Integer

Dim l As Integer, m As Integer, n As Integer

Dim i1 As Integer, i2 As Integer, i3 As Integer

Dim i4 As Integer, i5 As Integer, i6 As Integer

On Error Resume Next

For i = 65 To 66: For j = 65 To 66: For k = 65 To 66

For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

ActiveSheet.Unprotect Chr(i) Chr(j) Chr(k) _

Chr(l) Chr(m) Chr(i1) Chr(i2) Chr(i3) _

Chr(i4) Chr(i5) Chr(i6) Chr(n)

If ActiveSheet.ProtectContents = False Then

MsgBox "One usable password is " Chr(i) Chr(j) _

Chr(k) Chr(l) Chr(m) Chr(i1) Chr(i2) _

Chr(i3) Chr(i4) Chr(i5) Chr(i6) Chr(n)

ActiveWorkbook.Sheets(1).Select

Range("a1").FormulaR1C1 = Chr(i) Chr(j) _

Chr(k) Chr(l) Chr(m) Chr(i1) Chr(i2) _

Chr(i3) Chr(i4) Chr(i5) Chr(i6) Chr(n)

Exit Sub

End If

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

End Sub

第三步：再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“执行”，密码就现形了

第四步：点击“撤消工作表保护”，然后输入密码即可解除锁定；

以上就是关于进销存软件怎么破译密码的详细解读，同时我们也将进存销破解版相关的内容进行了解答，如果未能够解读您的疑问，请在评论区留言或者添加客服微信。