Issue with Sheet Hidden

Hi! I am new at the forum, hope everyone it is ok. My name is Marina and I have to present a tool tomorrow at work and I do not know how to work with the following:

this tool objective is that users can submit their request trough a forms I have created and Visual Basic and when they finish they click on a button that saves the information they uploaded in two sheets that are supposed to be hidden for them (not for me, I have set a password)

The thing is that this Sheets are hidden but when information is submitted the Sheet where the information is loaded becomes visible. I do not want this to happen, this is the code that I have written:

Private Sub OkButton_Click()
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or ComboBox2.Value = "" Or TextBox6.Text = "" Then
MsgBox "Please complete all the required fields"
Exit Sub
Else
End If

TextBox2.SetFocus

Sheet3.Activate


If MsgBox("Save the request?", vbYesNo, "Warning") = vbNo Then
Call DeActivateSheet.Sheet3
Exit Sub
Else
End If


Sheet3.Visible = xlSheetVisible
Sheets("Sheet3").Select
Range("A1").Select



Do While Not ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Select
Loop

Dim row As Integer
row = 2
If Sheet3.Range("A2") = "" Then
ActIndex = "0"
Else
Do Until Sheet3.Range("A" & row + 5) = ""
ActIndex = Sheet3.Range("A" & row + 5)
row = row + 5
Loop
End If

ActiveCell.Value = Val(ActIndex) + Val(1)
ActIndex = ActiveCell.Value
ActiveCell.Offset(1, 0).Select


ActiveCell.Value = "Name of the request"
ActiveCell.Offset(0, 1).Value = TextBox6.Text

ActiveCell.Offset(1, 0).Value = "Date Issue"
ActiveCell.Offset(1, 1).Value = TextBox1.Text

ActiveCell.Offset(2, 0).Value = "Issue Description"
ActiveCell.Offset(2, 1).Value = TextBox2.Text

ActiveCell.Offset(3, 0).Value = "Impact if not fixed"
ActiveCell.Offset(3, 1).Value = TextBox3.Text

ActiveCell.Offset(4, 0).Value = "Submited By"
ActiveCell.Offset(4, 1).Value = TextBox5.Text

ActiveCell.Offset(5, 0).Value = "Gu affected"
ActiveCell.Offset(5, 1).Value = ComboBox4

ActiveCell.Offset(6, 0).Value = "Priority"
ActiveCell.Offset(6, 1).Value = ComboBox2


End
Cells.EntireRow.AutoFit
Cells.EntireColumn.AutoFit


If ComboBox4 = True Then
TextBox1.Text = ""
TextBox1.Enabled = False
TextBox1.Locked = True
TextBox2.Text = ""
TextBox2.Enabled = False
TextBox2.Locked = True
TextBox3.Text = ""
TextBox3.Text = ""
ComboBox3 = ""
UserForm1.ComboBox2 = False
End If

Sheets("Inicio").Select
HasSR = False
Me.Hide
Sheet3.Visible = xlSheetVeryHidden
MsgBox "Success!!!"

Call DeActivateSheet.Sheet3

End Sub

Do you have any idea why the Sheet is being displayed even if this hidden?

Thanks!

I don't know how to resolve this but could you please put your code in the correct tags It will help other users to read. Plus it's posting etiquette.

I am sorry for my mistake here it goes again:

this tool objective is that users can submit their request trough a forms I have created and Visual Basic and when they finish they click on a button that saves the information they uploaded in two sheets that are supposed to be hidden for them (not for me, I have set a password)

The thing is that this Sheets are hidden but when information is submitted the Sheet where the information is loaded becomes visible. I do not want this to happen, this is the code that I have written:

Private Sub OkButton_Click()
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or ComboBox2.Value = "" Or TextBox6.Text = "" Then
MsgBox "Please complete all the required fields"
Exit Sub
Else
End If

TextBox2.SetFocus

Sheet3.Activate


If MsgBox("Save the request?", vbYesNo, "Warning") = vbNo Then
Call DeActivateSheet.Sheet3
Exit Sub
Else
End If


Sheet3.Visible = xlSheetVisible
Sheets("Sheet3").Select
Range("A1").Select



Do While Not ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Select
Loop

Dim row As Integer
row = 2
If Sheet3.Range("A2") = "" Then
ActIndex = "0"
Else
Do Until Sheet3.Range("A" & row + 5) = ""
ActIndex = Sheet3.Range("A" & row + 5)
row = row + 5
Loop
End If

ActiveCell.Value = Val(ActIndex) + Val(1)
ActIndex = ActiveCell.Value
ActiveCell.Offset(1, 0).Select


ActiveCell.Value = "Name of the request"
ActiveCell.Offset(0, 1).Value = TextBox6.Text

ActiveCell.Offset(1, 0).Value = "Date Issue"
ActiveCell.Offset(1, 1).Value = TextBox1.Text

ActiveCell.Offset(2, 0).Value = "Issue Description"
ActiveCell.Offset(2, 1).Value = TextBox2.Text

ActiveCell.Offset(3, 0).Value = "Impact if not fixed"
ActiveCell.Offset(3, 1).Value = TextBox3.Text

ActiveCell.Offset(4, 0).Value = "Submited By"
ActiveCell.Offset(4, 1).Value = TextBox5.Text

ActiveCell.Offset(5, 0).Value = "Gu affected"
ActiveCell.Offset(5, 1).Value = ComboBox4

ActiveCell.Offset(6, 0).Value = "Priority"
ActiveCell.Offset(6, 1).Value = ComboBox2


End
Cells.EntireRow.AutoFit
Cells.EntireColumn.AutoFit


If ComboBox4 = True Then
TextBox1.Text = ""
TextBox1.Enabled = False
TextBox1.Locked = True
TextBox2.Text = ""
TextBox2.Enabled = False
TextBox2.Locked = True
TextBox3.Text = ""
TextBox3.Text = ""
ComboBox3 = ""
UserForm1.ComboBox2 = False
End If

Sheets("Inicio").Select
HasSR = False
Me.Hide
Sheet3.Visible = xlSheetVeryHidden
MsgBox "Success!!!"

Call DeActivateSheet.Sheet3

End Sub

Do you have any idea why the Sheet is being displayed even if this hidden?

Thanks!