Excel password Breake code

❀ 👉 અહીં એક્સલ સીટમાં લગાવેલ પાસવર્ડ ભૂલી ગયા તો આ કોડની મદદથી એ પાસવર્ડ અનલોક કરી શકાશે...

❆ Excel password Breake code ❆

❆ ➯ Excel password Breake code site Click here

  .  👉  ➯ Excel password Breake code site
  


 wel_come 

	 Excel password Breake code site 
    
	  soon_ 
    

❆ ➯ Hide All Worksheets Using VBA code click Here

   ➯ Hide All Worksheets Using VBA  
  Below is the VBA code that will hide all the worksheets except the current/active worksheet:

'This macro will hide all the worksheet except the active sheet
Sub HideAllExceptActiveSheet()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> ActiveSheet.Name Then ws.Visible = xlSheetHidden
Next ws
End Sub

 
 ➯ If you want to hide the sheets so that these can not be unhidden, use the below code:  

 'This macro will hide all the worksheet except the active sheet
 Sub HideAllExcetActiveSheet()
 Dim ws As Worksheet
 For Each ws In ThisWorkbook.Worksheets
 If ws.Name <> ActiveSheet.Name Then ws.Visible = xlSheetVeryHidden
 Next ws
 End Sub


  ➯ Unhide All Worksheets Using VBA 
  Below is the code that will unhide all the hidden worksheets in the workbook.

'This code will unhide all sheets in the workbook
Sub UnhideAllWoksheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Visible = xlSheetVisible
Next ws
End Sub

❆ ➯ Excel Sheet password Breake code Click here

  . ➯ Excel password Breake code :
➩In the Above White Space Enter the below Code. Do not change the code just copy paste:
➩je protect sheet no password todvo hoi tene select kro 
Alt+f11 key press kro
open thase visual basic aditor
select
project explorer(ctrl+R)
select sheet and right click to select  view code
and type code   ⤵️ 

Sub PasswordBreaker()
    'Breaks worksheet password protection.
    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)
         Exit Sub
    End If
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
End Sub

 
 

 ➩ Then save and
   press  f5  key to display sheet password
  remember passward and enter to unlock sheet
  ➩Now Click on the Run Button or press F5: 

❆ ➯ More...

 ❆ ➯ This section is working mode ...
 

Follow @jpsutariya1