مجموعه مقالات اکسل

تابع isblank در اکسل

تابع isblank در اکسل

pivot table در اکسل

pivot table در اکسل به زبان ساده

آموزش تابع sln در اکسل

کار با تابع sln در اکسل

آموزش تابع min در اکسل

کار با تابع min در اکسل

تابع PPMT در اکسل

نحوه محاسبه قسط با تابع PPMT در اکسل

تابع تابع getpivotdata در اکسل

تابع getpivotdata در اکسل

آموزش تابع maxa در اکسل

کار با تابع maxa در اکسل

آموزش تابع row در اکسل

کار با تابع row در اکسل

انتقال داده از اکسل به spss مرحله به مرحله

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

نحوه برداشتن قفل اکسل به صورت گام به گام