Why can't I change a players variables?

I am trying to change the WalkSpeed, the position, and a value but the script wont change it. After testing I found that the function works so it must be the code inside it.

Server Script:

game.ReplicatedStorage.CloseShop.OnServerEvent:Connect(function(player)
	game.Workspace[player.Name]:FindFirstChild("Humanoid").WalkSpeed = 16
	game.Workspace[player.Name].HumanoidRootPart.CFrame = game.Workspace.TPClosePart.CFrame
	wait(2)
	player.InShop.Value = false
end)

Local script:

game.ReplicatedStorage.CloseShop:FireServer()

The first parameter of the OnServerEvent is always the player that fired it so you can simply get the character directly from it

so what you can do is:

game.ReplicatedStorage.CloseShop.OnServerEvent:Connect(function(player)
	local character = player.Character
  	local humanoid = character:WaitForChild("Humanoid")
	humanoid.WalkSpeed = 16
	character.HumanoidRootPart.CFrame = workspace.TPClosePart.CFrame
    wait(2)
    player.InShop.Value = false
end)