Sub BreakPassword() 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 Exit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub
Czy spotkałeś się wykonaniem tego makr na pliku w sharepoint? Bo po uruchomieniu tracę kontakt z klikiem na wiele godzin, a skrypt chyba nic nie daje
To makro albo zadziała bardzo szybko albo wcale, na pewno nie może trwać to godzinami. Generalnie w Sharepoint jest problem z uruchamianiem makr:
https://support.microsoft.com/pl-pl/office/praca-z-makrami-j%C4%99zyka-vba-w-programie-excel-dla-sieci-web-98784ad0-898c-43aa-a1da-4f0fb5014343