『壹』 共享電腦打不開要輸密碼怎麼辦
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、首歲前喊先用滑鼠右鍵目標文件夾，在其右鍵菜單中點擊屬性選項。
