Viết chương trình chọn cặp đấu ngẫu nhiên

[tranviethung]

Mình có file excel đã protect các sheet, pass chung là soluzionaindra. Giờ muốn viết 1 macro tự động bỏ protect của tất cả các sheet trong file. Mong các bạn giúp đỡ, mình gửi kèm file nhé:

 

[rollover79]

Bạn tham khảo thử file này xem sao.

 

[SA_DQ]

Thêm một tham khảo cho bạn!

Option Explicit
[B]Sub SV2()[/B]
Dim lRw As Long, Wj As Long, Rd As Byte
Dim StrC As String

lRw = [a65500].End(xlUp).Row
For Wj = 2 To lRw
   Randomize:        Rd = 9 + Int(16 + 15 * Rnd())
   If Rd Mod 2 = 1 Then
      StrC = StrC & Right("0" & CStr(Wj), 2)
   Else
      StrC = Right("0" & CStr(Wj), 2) & StrC
   End If
Next Wj
Range([c1], Cells(lRw, "D")).Clear
For Wj = 2 To (lRw - 1) \ 2 + 1
   Cells(Wj, "C") = Cells(CInt(Left(StrC, 2)), "A")
   Cells(Wj, "D") = Cells(CInt(Mid(StrC, 3, 2)), "A")
   StrC = Mid(StrC, 5)
Next Wj 
[B]End Sub[/B]

 

[tranviethung]

Bỏ Protect các sheet trong fíle!

Mình có file excel đã protect các sheet, pass chung là soluzionaindra. Giờ muốn viết 1 macro tự động bỏ protect của tất cả các sheet trong file. Mong các bạn giúp đỡ, mình gửi kèm file nhé: Vì mình có nhiều file dạng đó, mà lại đi chọn từng sheet gõ pass vào thì mất rất nhiều thời gian!!!