Sayın @Refaz beyin yardımları ile oluşturduğum çalışma sayfamda makro kodu çalışmadan önce sayfa koruma kaldırma ve sonrasında sayfa korumaya alma yapabilir miyiz? Yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("D4 : D23")) Is Nothing Then
Cancel = True
With Target
.Font.Name = "Wingdings"
.Font.Size = 14
.HorizontalAlignment = xlCenter
End With
If Target.Value = "ü" Then
Target.Value = "x"
Else
Target.Value = "ü"
End If
End If
End Sub
Range("D4 : D23"))D4 ile : D23 birleşik olacak.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("D4 : D23")) Is Nothing Then
Cancel = True
With Target
.Font.Name = "Wingdings"
.Font.Size = 14
.HorizontalAlignment = xlCenter
End With
If Target.Value = "ü" Then
Target.Value = "x"
Else
Target.Value = "ü"
End If
End If
End Sub
Range("D4 : D23"))D4 ile : D23 birleşik olacak.