Help with VBA
Solved/Closed
amedotero
Posts
7
Registration date
Thursday 29 November 2012
Status
Member
Last seen
5 December 2012
-
29 Nov 2012 à 13:02
amedotero Posts 7 Registration date Thursday 29 November 2012 Status Member Last seen 5 December 2012 - 2 Dec 2012 à 11:43
amedotero Posts 7 Registration date Thursday 29 November 2012 Status Member Last seen 5 December 2012 - 2 Dec 2012 à 11:43
Related:
- Help with VBA
- Vba find - Guide
- Vba case like - Guide
- Vba send email with attachment - Guide
- Vba timer - Guide
- Create new sheet vba - Guide
2 responses
aquarelle
Posts
7181
Registration date
Saturday 7 April 2007
Status
Moderator
Last seen
14 February 2026
491
30 Nov 2012 à 17:59
30 Nov 2012 à 17:59
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 29 November 2012
Status
Member
Last seen
5 December 2012
2 Dec 2012 à 11:43
2 Dec 2012 à 11:43
It was perfect! Thanks a lot for your help! :)
