Euro 2020 Last Man Standing Game spreadsheet wanted

dinje

Member
I have downloaded an ideal spreadsheet, but its password protected, despite many hrs, I have given up. The one i downloaded lets you use 10 players free, but there is only 4 of us, so even doubling up it leaves teams unpicked, if that makes sense.

Has anyone made an Excel spreadsheet (2019) they can share?

there are 4 of us, we want to be able to pick more than one team to ensure all teams are used.

we want to be able to put our names against all the teams, and the sheet to automate the teams positions when we put the scores in.

Cheers
 

Attachments

  • 1.JPG
    1.JPG
    283.9 KB · Views: 11
  • 2.JPG
    2.JPG
    146.5 KB · Views: 10
If you want to remove the worksheet password from the excel file.

- Press Alt+F11 on the keyboard to open the Visual Basic Editor
- From the Insert Menu select module
- Paste in the code below into the new module
- Close the Visual Basic Editor window
- In the spreadsheet select the View Menu and then Macros. Now select the PasswordBreaker macro
- Click ok on the pop up which should be displayed when the macro finishes running. The worksheets should now be unlocked.

——————————————————

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
 
Last edited:
Back
Top