Macro et feuille protégée
Bonjour à tous,
Dans mon fichier j'ai créé une macro pour faire apparaitre la date, mais lorsque je verrouille ma feuille la macro non fonctionne plus bien-sur, question quelle méthode utilisée pour placer la commande de la macro et le déverrouillage et verrouillage de la feuille? j'ai consulté les anciens post mais ce n'est pas très clair pour moi. Je ne comprends pas la méthode, novice oblige, qui consiste à intégrer plusieurs actions
Merci d'éclairer ma lanterne!!
Bonjour
Un fichier est TOUJOURS le bienvenu
en début de macro tu mets
sheets("Nom de la feuille") ou activesheet.unprotect et le mot de passe
et en fin de macro tu mets
sheets("Nom de la feuille") ou activesheet.protect et le mot de passe
A+ François
Bonjour FanFan38,
Oui effectivement un fichier c'est plus parlant mais je n'ai pas masqué les données pro.
Je vais suivre tes explications et merci de ta réponse. Je reviens vers le forum en cas d'échec avec cette fois-ci le fichier joint.
Bonjour,
Je sèche quant à l'ordre ou je dois positionner cette ligne qui permet le déverrouillage/verrouillage de la feuille avec la macro
Je joins le fichier,
Merci pour votre aide
Sub Effacerdonnéesdequarts()
'
' Effacerdonnéesdequarts Macro
'
'
With Sheets("Exploitation") 'cette feuille
.Unprotect 'un mot de passe est optionel
.Range("M25:T38,J24:L38,I27,F24:H38,E27,B24:D38,A27,R5:T20,Q8,N5:P20,M8,J5:L20,I8,F5:H20,E8,B5:D20,A8,G1:H2").ClearContents
.Protect 'un mot de passe est optionel
End With
End SubBonjour à tous,
Merci pour vos réponses très utiles, je ne comprenais pas de quelle façon introduire cette ligne par rapport à la macro!!
L'apprentissage des connaissances est quotidienne,
Merci
re,
3eme réaction dans ce lien de Galopin01, collez ceci dans "thisworkbook"
Private Sub Workbook_Open()
For i = 1 To Worksheets.Count
Worksheets(i).Protect Password:="Galopin", UserInterfaceOnly:=True
Next
End Sub