Help with VBA
Solved/Closed
amedotero
Posts
7
Registration date
Thursday November 29, 2012
Status
Member
Last seen
December 5, 2012
-
Nov 29, 2012 at 01:02 PM
amedotero Posts 7 Registration date Thursday November 29, 2012 Status Member Last seen December 5, 2012 - Dec 2, 2012 at 11:43 AM
amedotero Posts 7 Registration date Thursday November 29, 2012 Status Member Last seen December 5, 2012 - Dec 2, 2012 at 11:43 AM
Related:
- Help with VBA
- Vba case like - Guide
- Excel online vba - Guide
- Vba timer - Guide
- Vba color index - Guide
- Vba excel mac - Guide
2 responses
Hello,
I put as password "12345" and I took a plage of cells "A2:C30" for example (you can change them into the macro) :
Regards
"Pour trouver une solution à ses problèmes, il faut s'en donner la peine."
I put as password "12345" and I took a plage of cells "A2:C30" for example (you can change them into the macro) :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:C30")) Is Nothing Then
ActiveSheet.Unprotect Password:="12345"
Target.Locked = True
ActiveSheet.Protect Password:="12345"
End If
End Sub
Regards
"Pour trouver une solution à ses problèmes, il faut s'en donner la peine."
amedotero
Posts
7
Registration date
Thursday November 29, 2012
Status
Member
Last seen
December 5, 2012
Dec 2, 2012 at 11:43 AM
Dec 2, 2012 at 11:43 AM
It was perfect! Thanks a lot for your help! :)
