‘壹’ 共享电脑打不开要输密码怎么办
1. 局域网访问工作组计算机共享文件要输密码,输了密码也进不去
方法如下：
1、启用guest来宾帐户：我的电脑→左侧有个“控制面板”→单击→用户帐户→gueast→启用→重启电脑。
2、控制面板→管理工具→本地安全策略→本地策略→用户权利指派里，“从网络访问此计算机”中加入guest帐户，而“拒绝从网络访问这台计算机”中删除guest帐户。
3、我的电脑→工具→文件夹选项→查看→去掉“使用简单文件共享（推荐）”前的勾。
4、设置共享文件夹：在想要共享的文件夹或者打印机上点击右键，通过“共享和安全”选项即可设置共享。
5、控制面板→管理工具→本地安全策略→本地策略→安全选项里，把“网络访问：本地帐户的共享和安全模式”设为“仅来宾-本地用户以来宾的身份验证”（可选，汪竖尘此项设置可去除访问时要求输入密码的对话框，也可视情况设为“经典-本地用户以自己的身份验证”）。
6、右击“我的电脑”→“属性”→“计算机名”，该选项卡中有没有出现你的局域网工作组名称，如“work”等。然后单击“网络 ID”按钮，开始“网络标识向导”：单击“下一步”，选择“本机是商业网络的一部分，用它连接到其他工作着的计算机”；单击“下一步”，选择“公司使用没有域的网络”；单击“下一步”按钮，然后输入你的局域网的工作组名，如“work”，再次单击“下一步”按钮，最后单击“完成”按钮完成设置。 如果经过以上步骤，没解决，请再往下看：
7、检查本地连接是否被禁用，右击“本地连接”→“启用”。
8、关闭网络防火墙；
9、检查是否启用了域，是否加入了该域并检查域设置；
10、检查是否关闭了server服务；
11、检查本地连纤李接IP、子网掩码、网关及DNS设置是否有误；
12、“本地连接”→属性→常规，检查是否安装了“Microsoft网络文件和打印机共享”、“Microsoft网络客户端”以及TCP/IP协议；
13、某些局域网游戏和软件须安装BEUI协议。而且网上有文章说，在小型局域网中，微软在WinXP中只支持的TCP/IP协议和NWLink IPX/SPX/BIOS兼容协议表现不尽如人意，在小型局域网（拥有200台左右电脑的网络）中BEUI是占用内存最少、速度最快的一种协议。
2. 电脑共享打不开了
电脑共享后在电脑上打不开共享文件解决办法 ：
一、如果出现“找不到网络路径”的报错，先PING一下IP地址。如果PING不通，需要先确认它是否连在网络或者网络连通性是否正常。然后查看是否启用了防火墙或者屏蔽掉了相应的端口。如果PING IP地址是正常的，但PING目标机器的计算机名不通，则需要查看是否是网络名称解析有问题。先查看是所有客户端机器有问题还是某一台机器有问题。如果是所有机器的名称解析都有问题，那么你需要到网络的DNS或WINS服务器上检查了。如果只是某一台机器有问题，你需要先检困禅查一下hosts和lmhosts文件；如果正常，可以重新注册一下DNS名字。
二、如果出现“xxx计算机无法访问，您可能没有权限使用网络资源。请与这台服务器的管理员联系以查明您是否有访问权限”的报错，这可能是计算机的安全设置被改动过了，导致目标计算机无法被访问。可以采取以下步骤解决：
1.打开“我的电脑”，在菜单上选择“工具”->；“文件夹选项”->；“查看”，清除“使用共享向导（推荐）”的选择。
2.右键点击“我的电脑”，选择“管理”，选择“本地用户和组”->；“用户”，右键点击Guest用户，选“属性”，清除“帐户已禁用”的选择。
3.点击“开始”->；“运行”，输入secpol.msc，选择左边的“本地策略”->；“用户权力分配”，双击右边的“从网络访问此计算机”，保证其中有Everyone，双击左边的“拒绝从网络访问此计算机”，保证其是空的。
4.选择左边的“本地策略”->；“安全选项”，a.确认右边的“网络访问：本地帐户的共享与安全模式”为“经典”；b.确认右边的“Microsoft网络客户：为通讯启用数字签名（总是）”为“已停用”；c.确认右边的“Microsoft网络客户：为通讯启用数字签名（如果服务器允许）”为“已启用”；d.确认右边的“Microsoft网络服务器：为通讯启用数字签名（总是）”为“已停用”；e.确认右边的“Microsoft网络服务器：为通讯启用数字签名（如果服务器允许）”为“已启用”。
5.重新启动计算机。
3. 我的电脑设置的文件共享,但并没有设置密码,为什么其他电脑打不开
1、网卡协议中选有“MICROSOFT文件与打印机共享”。
2、工作组名称相同（计算机（右键）-属性-高级系统设置-计算机名：可以查看和更改）。
3.网络类型 （打开网络和共享中心---公用网络，点击可以直接更改）由“公共网络“ 更改为”工作网络“。
4、打开网络和共享中心-更改高级共享：出现列表后，前3项要选启用
5.想要共享的文件夹：右键-属性-共享：要设置共享（选高级共享--启用共享）。
6.控制面板-用户账户-管理其他账户-guest来宾账户-启用。
‘贰’ excel表格打不开需要密码的解决方法
在网络上下载的数据文档或许有一些是需要进行密码验证的，这个时候如果没有密码不能打开文档，因此需要密码破解来完成打开文档。接下来是我为大家带来的excel表格打不开需要密码的解决 方法 ，供大家参考。
excel表格打不开需要密码的解决方法：
打不开有密码解决步骤1：建一个EXCEL文件“BOOK1”，在工具栏空白位置，任意右击，选择Visual Basic项，弹出Visual Basic工具栏：
打不开有密码解决步骤2：在Visual Basic工具栏中，点击“录制”按钮，弹出“录制新宏”对话框，选择“个人宏工作簿”：
打不开有密码解决步骤3：选择“个人宏工作簿”后按确定，弹出如下“暂停”按钮，点击停止：
打不开有密码解决步骤4：在Visual Basic工具栏中，点击“编辑”按钮：
打不开有密码解决步骤5：点击“编辑”按钮后，弹出如下图的编辑界面：
找到“VBAProject(PERSONAL.XLS)-模块-模块1(也可能是模块N-其他数字)”
双击模块1-将右边代码内容清空
打不开有密码解决步骤6：复制“工作保护密码破解”代码到右边框中，点保存，然后关闭“BOOK1”
打不开有密码解决步骤7：运行需要解密的“EXCEL文件”，在Visual Basic工具栏中，点击“运行”按钮
打不开有密码解决步骤8：点击“运行”按钮后，弹出“宏”对话框，
点击运行“PERSONAL.XLS!工作保护密码破解”这个宏
打不开有密码解决步骤9：运行“PERSONAL.XLS!工作保护密码破解”这个宏后，
如下图示意就可以 解除工作表的密码保护了
(这个图，如果工作表中有多组不同密码，
每解开一组，就会提示一次，也就说可能会出现几次)
工作表保护密码破解(代码)
=========请复制以下内容=============
Public Sub 工作表保护密码破解()
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"作者:McCormick JE McGimpsey "
Const HEADER As String = "工作表保护密码破解"
Const VERSION As String = DBLSPACE & "版本 Version 1.1.1"
Const REPBACK As String = DBLSPACE & ""
Const ZHENGLI As String = DBLSPACE & " hfhzi3—戊冥 整理"
Const ALLCLEAR As String = DBLSPACE & "该工作簿中的工作表密码保护已全部解除!!" & DBLSPACE & "请记得另保存" _
& DBLSPACE & "注意：不要用在不当地方，要尊重他人的劳动成果!"
Const MSGNOPWORDS1 As String = "该文件工作表中没有加密"
Const MSGNOPWORDS2 As String = "该文件工作表中没有加密2"
Const MSGTAKETIME As String = "解密需花费一定时间,请耐心等候!" & DBLSPACE & "按确定开始破解!"
Const MSGPWORDFOUND1 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _
"如果该文件工作表有不同密码,将搜索下一组密码并修改清除"
Const MSGPWORDFOUND2 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _
"如果该文件工作表有不同密码,将搜索下一组密码并解除"
Const MSGONLYONE As String = "确保为唯一的?"
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
Else
On Error Resume Next
Do 'mmy 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 & ZHENGLI, vbInformation, HEADER
End Sub
‘叁’ 电脑文件夹打开需要密码怎么设置
1、首岁前喊先用鼠标右键目标文件夹，在其右键菜单中点击属性选项。
