Sharing part of workbook

[tbones]

Hello,
I run a football prediction league on facebook. Basically I put onto a facebook post around 10 matches per week. Each player copies the matches and adds their scores to them. What I have been doing then is once the matches have been played I manually check them against the results and then add the totals onto a spreadsheet.
I am doing slightly different for the year as I have created a work book with the master table which is populated by 38 spreadsheets which represents the week number of the game form Gameweek 1 to 38.
Each of the spreadsheets has a master table with the fixtures on it. Once I populate the fixtures it then populates the same info for each player within each worksheet so in the master table on the spreadsheet it would read A versus B, c versus d, e versus f and so on. This then populates each fixture list for upto 25 players. At the moment once I have all the predictions in I then manually input these to the players fixture list on their part of the table. Once done and the matches have been played I then input the actual results into the master table which is then linked to everyones predictions. If they predict the correct score then they win a point. The total points for each player then is populated onto a different worksheet .

So the question I am asking for this is that for each gameweek spreadsheet there are 25 different tables 1 for each player. Is there a way of linking their individual table on the spreadsheet to them so that they can populate it them selves without being able to populate the other players in the game.

I may not have put this right... In an ideal world there would be a website that each player could put their predictions into and then this is compiled automatically to a spreadsheet that would then populate once the results have come in... a bit like fantasy football web pages,

Any help would be amazing

 

[Candyman8019]

for that you'd need to do something like:

private sub worksheet_open()
   Dim Ws As Worksheet
   
If Now() >= DateValue("30/08/2023") Then

   For Each Ws In Worksheets
      Ws.Cells.Locked = True
      Ws.Protect "Pword"
   Next Ws
End If
End Sub