arkadaşlar.formüller silinmesin diye şifre koymak istiyorum.şifre koyduğum zaman makrolar hata veriyor.ne yapmalıyım.
Ekli dosyalar
-
383.5 KB Görüntüleme: 12
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Option Explicit
Sub ÖRNEK()
ActiveSheet.Unprotect "12345"
'Kodlarınız...
ActiveSheet.Protect "12345"
End Sub
Sub ÖRNEK()
ActiveSheet.Unprotect "12345"
......KODLARINIZ.....
ActiveSheet.Protect 12345, DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowFiltering:=True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [c:l]) Is Nothing Then Exit Sub
ActiveSheet.Unprotect "12345"
If Target.Column = 3 Then Cells(Target.Row, "B") = Now
If Target.Column = 12 Then Cells(Target.Row, "M") = Now
ActiveSheet.Protect 12345, DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowFiltering:=True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect 12345
If Target.Column = 3 Then Cells(Target.Row, "B") = Now
If Target.Column = 12 Then Cells(Target.Row, "M") = Now
ActiveSheet.Protect 12345, DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowFiltering:=True
End Sub