Discussion :

[DIDIDIDA]

Bonjour tout le monde
dans mon code vba je fais appel aux noms de mon classeur, et ces feuilles, alors je voudrai verouiller la case renommer pour mon classeur et pour ces feuille bien sur!!!mais pour ça je ne sais pas comment il faut proceder? merci pae avance

[tomy7]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Range("A1").Value = "bibi" Then
Range("A1").Locked = True
End If
End Sub

apres il te suffit d acitver ta protection de feuille
activesheet. protect ....

ou

tools > protection....

[DIDIDIDA]

salut tomy, tout d'abord merci pour ta réponse;
je viens d'essayer ton code mais je pense qu'il verouille les cellules de la feuile seulement par ce que j'ai pu la renomomer! et moi mon bute c'est de fais un truc pour qu'on puisse pas renommer!

[tomy7]

verrouille tes cellules tous simplement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
private sub workbook_open ()
If range ("  : ").value = "bibi" then 
range ("  : ").locked
activesheet.protect userinterfaceonly = true
end sub

sinon fais le manuellement

[DIDIDIDA]

tomy je ne sais pas si j'étais claire? moi je cette fois ci je ne veux pas vérouiller les cellules! pour ça tu m'avais déjà montrer comment faire! mais là il s'agit de verouiller le nom des feuilles et du classeur!!bon tu me dis que je peux le faire manuelment je vais essayer de voir plus dans les propriétés du fichier.

[tomy7]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Public x As Boolean
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    UsrFrm_MDP.Show
    If x = True Then
        x = False
        Cancel = False
    Else
        Cancel = True
    End If
End Sub

Pièce jointe 27345


sub userform

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Bt_Annuler_Click()
    Unload Me
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Bt_Valider_Click()
    If TxtMdp.Text = "ton mots de passe" Then
        ThisWorkbook.x = True
    Else
        MsgBox "Invalid Password", vbOKOnly + vbExclamation, "ERROR"
    End If
    Unload Me
End Sub
Private Sub TxtMdp_Change()
    TxtMdp.PasswordChar = "*"
End Sub

tiens essaye sa sinon