rendre un onglet une fois créé insupprimable

[amauryde]

Bonjour le forum,

Voici ce que je souhaite faire:
J'ai un bouton qui me créé des onglets et j'aimerai rendre ces onglets créés insupprimables mais que l'on puisse les renommés si besoin est.

Avez vous une petite idée?


Voici mon code de création d'onglet:

Merci à vous

 

[Papou-net]

Re : rendre un onglet une fois créé insupprimable

Bonjour amauryde,

Une suggestion : il suffit de protéger le classeur pour empêcher la suppression de feuilles.

Seulement, tu ne pourras plus modifier les noms des onglets, à moins de déprotéger le classeur manuellement (ou alors, il faut prévoir un formulaire pour opérer cette modification)

Afin que la macro de ton bouton "Creaccion" fonctionne, il te faut la modifier comme suit :

Private Sub CommandButton1_Click()
Dim Faute As Long
  If Me.TextBox1 = "" Then Exit Sub
  ActiveWorkbook.Unprotect
  On Error Resume Next
  Sheets(Me.TextBox1.Text).Visible = True
  Faute = Err.Number
  On Error GoTo 0
  If Faute > 0 Then
   Sheets("Datos").Copy before:=Sheets("Final")
    ActiveSheet.Name = Me.TextBox1
  Else
    MsgBox "Hoja que existe ya"
  End If
  ActiveWorkbook.Protect Structure:=True, Windows:=False
End Sub

Espérant avoir répondu.

Cordialement.

 

[amauryde]

Re : rendre un onglet une fois créé insupprimable

merci "Papounet",

je vais essayer de creer ce formulaire pour opérer la modification par l'utilistaeur si besoin est

 

[amauryde]

Re : rendre un onglet une fois créé insupprimable

"tu ne pourras plus modifier les noms des onglets, à moins de déprotéger le classeur manuellement "

peux tu m'expliquer comment faire car dans protection de la feuille ca ne marche pas (clic droit sur le nom de l'onglet)

modif: j'ai trouvé