Good evening,
For the problem described I got a forward but not what I want even with the code below I can write the desired table for Registered Users:

 Protected Sub Button1_Click (ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
            If (UserId = 1 Or UserInfo.IsInRole ("Administrators") Or UserInfo.IsInRole ("Registered Users") Or UserInfo.IsInRole ("Subscribers")) Then


                Dim myConnection As New SqlConnection (ConfigurationManager.ConnectionStrings ("SiteSqlServer"). ToString)
                'As String Dim SQLString
                Dim cmd As SqlCommand = New SqlCommand ("Ivi_EnvMail_Newsletter", myConnection)

                Try



                    cmd.CommandType = CommandType.StoredProcedure

                    cmd.Parameters.Add (New SqlParameter ("@ email", SqlDbType.VarChar, 100))
                    cmd.Parameters.Item ("@ email"). Value = Me.TextBoxMail.Text




                    myConnection.Open ()

                    cmd.ExecuteNonQuery ()

                Catch ex As Exception
                    Response.Write (ex.ToString)
                End Try

                myConnection.Close ()
                TextBoxMail.Text () = ""


                Me.pnl1.Visible = True
            End If
        End Sub

but to do so in the module settings I'd have to have the active checkbox in the edit module and this can not happen, that's gotta be the module visible but not editable by registerd users.

Help please