Any way to compact this code?

Yes.

Usually, when you have variables that you are naming A1, A2, etc, it's a sign that you should be using a list:

local As = {s.A1, s.A2, s.A3, s.A4}
-- They are now As[1], As[2], As[3], and As[4]
-- which is more easily programmatically accessible because `1` is a value
-- instead of a part of the name.

You then write a loop that goes over them all:

for _, A in pairs(As) do
	A.Visible = false
end

If you frequently are setting the visible property of these, I would suggest making a function:

function show(visible)
	for _, A in pairs(As) do
		A.Visible = visible
	end
end

show(true) -- all visible
show(false) -- all invisible

If you have a lot of things in s that you want, it might be a good idea to use :GetChildren() instead.

If you moved the script out of there, then it's likely that all of the children would be the things you want. Otherwise, you would need to filter them somehow (e.g., they are all Frames, perhaps?):

local As = s:GetChildren()
for _, A in pairs(As) do
	if A:IsA("Frame") then
		A.Visible = false
	end
end